1 do >
[oledb] ; Tudo após esta linha é um DB VELHO que initstring Provider=SQLOLEDB.1; =MYCOMPNAME \ ServerInstance da origem de dados; Security=SSPI Integrated; Persiste a segurança Info=False; Catalog=MyDBName inicial; o class= >
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
nome de arquivo do var: corda; Lista: TStrings; ds, CI: corda; começar Nome de arquivo: = “C:\yourfilename.udl”; Lista: = TStringList.Create; tentativa List.Delimiter: = “; ”; List.StrictDelimiter: = retificar; List.LoadFromFile (nome de arquivo); List.DelimitedText: = lista [2]; ds: = List.Values [“origem de dados”]; CI: = List.Values [“catálogo inicial”]; ShowMessage (ds + ''+ CI); finalmente List.Free; extremidade; extremidade;