ODBC-Verknüpfung auslesen

[Nalincah]

Ist es irgendwie im "ODBC-Datenquellen-Administrator" (START/Einstellungen/Systemsteuerung/Verwaltung/Datenquellen (ODBC)) unter "System-DSN" die Einträge auszulesen und in Delphi übernehmen???

[neolithos]

Ein ausschnitt aus meiner Komponente

Delphi-Quellcode:

type
  TDSNEnumProc = procedure (asDSN, asDriver : String; apData : Pointer);

procedure TSQLEnviroment.EnumDataSources(afTyp: TDSNTypes; apEnumProc : TDSNEnumProc; apData : Pointer);
const
  ciFirstFetch : array [TDSNTypes] of SQLUSMALLINT =
    (SQL_FETCH_FIRST, SQL_FETCH_FIRST_SYSTEM, SQL_FETCH_FIRST_USER);

var cDSN : array [0..SQL_MAX_DSN_LENGTH] of Char;
    cDriver : array [0..1023] of Char;
    iLenDSN,
    iLenDriver : SQLSMALLINT;
begin
  if SQLCheck(SQLDataSources(hHandle, ciFirstFetch[afTyp],
       @cDSN, SQL_MAX_DSN_LENGTH + 1, iLenDSN,
       @cDriver, 1024, iLenDriver)) <> SQL_NO_DATA then
     repeat
       apEnumProc(cDSN, cDriver, apData); // übergebe
     until SQLCheck(SQLDataSources(hHandle, SQL_FETCH_NEXT,
       @cDSN, SQL_MAX_DSN_LENGTH + 1, iLenDSN,
       @cDriver, 1024, iLenDriver)) = SQL_NO_DATA;
end;

SQLCheck prüft nur ob ein Fehler vorliegt.

[Nalincah]

Sorry, aber ich peil da garnix
Kannst du mir vielleicht erklären, wie ich das damit mache und mir die Procedure ne Listbox füllt

[neolithos]

um eine ListBox zu füllen brauchst du bloß den cDSN-Wert anzufügen. cDriver ist eine Zusatzinfo.

Desweiteren brauchst du die ODBC-Core-Api.

Frag mich nicht wo man die herbekommt. Weiß es nämlich selbst nicht mehr.

[Gollum]

Hallo,

die entsprechenden Einträge sthen in der Registy unter: "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"

[Alexander]

Du kannst es auch aus der REgistry auslesen:
http://swissdelphicenter.ch/de/showcode.php?id=1131

[Nalincah]

Danke, klappt!

Um das ganze einfacher zu machen: Wie ist es möglich den Dialog aufzurufen, den man bekommt wenn man doppelt auf die TADOConnection klickt, bzw. dann auf "Aufbauen"???

[Alexander]

Hi ich rate mal, meinst du das hier:
http://www.delphipraxis.net/internal...956&highlight=


Nutzt du eigentlich den Code des Links von mir?
Wenn ja, funktioniert irgendwie nicht ganz. er liest irgendwie nur die Benutzer-DNS-Einträge aus.
Ich muss mich damit mal näher beschäftigen...
Alexander