ODBC Question

[xinyiman]

How do I see what I odbc active on the machine? Let me explain, how do I know the names of ODBC installed on the machine? Thanks

[theo]

What do you mean?
Drivers list, DSN, ... ?

[xinyiman]

Dsn is the list that the driver list

[theo]

?

[xinyiman]

the other is the unche

[xinyiman]

What do you mean?
Drivers list, DSN, ... ?

Driver List and DSN List! 

[spitofland]

If I understand your question correctly, then I had the same question.
http://www.lazarus.freepascal.org/index.php/topic,9563.0.html

The answer I received was very helpful. It led me to this website:
http://www.delphi3000.com/articles/article_3584.asp

[xinyiman]

If I understand your question correctly, then I had the same question.
http://www.lazarus.freepascal.org/index.php/topic,9563.0.html

The answer I received was very helpful. It led me to this website:
http://www.delphi3000.com/articles/article_3584.asp

I had already tried to connect to that link, but will not let me open. You open it and do a copy paste here the content? Thanks

[spitofland]

I'm sorry that link does appear to be broken now. Here is the function that I created based on the information from that link. It retrieves the information from the registry. I hope this helps you.

This function fills a ComboBox with a list of ODBC DSNs availiable on the system. It should get the User DSNs and the System DSNs. You need to include the 'Registry' Unit in the Uses section.

Code: [Select]

procedure TLoginPrompt.GetDSNList;
var
  aStringList : TStringlist;
  aStrings1   : TStrings;
  aStrings2   : Tstrings;

  aRegistry   : TRegistry;
  aInt        : Integer;
  tempInt     : Integer;
Begin
  aStringlist:=TStringlist.Create;
  aStrings1:=TStringlist.Create;
  aStrings2:=TStringlist.Create;

  aRegistry:= Tregistry.Create;
  With aRegistry do Begin
    RootKey:=HKEY_CURRENT_USER;
    OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',False);
    GetValueNames(aStrings1);
  End;
  aRegistry.Free;

  aRegistry:= Tregistry.Create;
  With aRegistry do Begin
    RootKey:=HKEY_LOCAL_MACHINE;
    OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',False);
    GetValueNames(aStrings2);
  End;
  aRegistry.Free;

  aStringlist.AddStrings(aStrings1);
  aStrings1.Free;
  aStringlist.AddStrings(aStrings2);
  aStrings2.Free;
  aStringlist.Sort;
  ComboBox1.Clear;
  tempInt := 0;
  for aInt:=0 to aStringList.Count-1 do begin
    if Trim(aStringList[aInt]) <> '' then begin
      ComboBox1.Items.Add(Trim(aStringList[aInt]));
      INC(tempInt);
    end;
  end;
End;

[Lacak2]

Another approach is using ODBC32 API:
SQLDataSources()
SQLDrivers()

See here: http://www.delphipages.com/forum/showthread.php?t=107542

[xinyiman]

I'm sorry that link does appear to be broken now. Here is the function that I created based on the information from that link. It retrieves the information from the registry. I hope this helps you.

This function fills a ComboBox with a list of ODBC DSNs availiable on the system. It should get the User DSNs and the System DSNs. You need to include the 'Registry' Unit in the Uses section.

Code: [Select]

procedure TLoginPrompt.GetDSNList;
var
  aStringList : TStringlist;
  aStrings1   : TStrings;
  aStrings2   : Tstrings;

  aRegistry   : TRegistry;
  aInt        : Integer;
  tempInt     : Integer;
Begin
  aStringlist:=TStringlist.Create;
  aStrings1:=TStringlist.Create;
  aStrings2:=TStringlist.Create;

  aRegistry:= Tregistry.Create;
  With aRegistry do Begin
    RootKey:=HKEY_CURRENT_USER;
    OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',False);
    GetValueNames(aStrings1);
  End;
  aRegistry.Free;

  aRegistry:= Tregistry.Create;
  With aRegistry do Begin
    RootKey:=HKEY_LOCAL_MACHINE;
    OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',False);
    GetValueNames(aStrings2);
  End;
  aRegistry.Free;

  aStringlist.AddStrings(aStrings1);
  aStrings1.Free;
  aStringlist.AddStrings(aStrings2);
  aStrings2.Free;
  aStringlist.Sort;
  ComboBox1.Clear;
  tempInt := 0;
  for aInt:=0 to aStringList.Count-1 do begin
    if Trim(aStringList[aInt]) <> '' then begin
      ComboBox1.Items.Add(Trim(aStringList[aInt]));
      INC(tempInt);
    end;
  end;
End;

Is a multi-platform method?

[xinyiman]

And how do I get the list of tables after I connected to DB via ODBC?

TODBCConnection.GetTableNames();

 function always returns an error!

[Lacak2]

TODBCConnection.GetTableNames();

 function always returns an error!

Which error ? Which DB ?
(for me it works ok)

[xinyiman]

TODBCConnection.GetTableNames();

 function always returns an error!

Which error ? Which DB ?
(for me it works ok)

Error: The metadata is not available for this type of database.
DB: MySql 5.1.41-community via tcp/ip
OS: Windows Xp SP3

[Lacak2]

Do you call GetTableNames(..., true); with second argument "SystemTables"=true ?
If yes, then this is missing feature in TODBCConnection ... see: http://bugs.freepascal.org/view.php?id=13893#bugnotes