如何获得ODBC中数据源的列表将其列入到ListBox中?(50分)

  • 主题发起人 主题发起人 飞雪轩主
  • 开始时间 开始时间

飞雪轩主

Unregistered / Unconfirmed
GUEST, unregistred user!
如何获得ODBC中数据源的列表,用户DSN,系统DSN下的已配置的。并将其列入到ListBox中?
 
这个问题急用,还请大家多多帮忙!
 
注册表中HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBC.INI
 
还有注册表中HKEY_CURRENT_USER/Software/ODBC/ODBC.INI
 
可不可以给出示范代码,本人将不胜感激。
 
加入register单元,然后读注册表。
 
uses
Registry;
procedure TForm1.Button2Click(Sender: TObject);
var
reg:TRegistry;
begin
combobox1.Clear;
combobox2.Clear;
//('系统DSN: ');
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if Not reg.OpenKey('/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources',false) then
showmessage('false');
reg.GetValueNames(combobox1.items);
Reg.CloseKey;

//('用户DSN: ');
reg.RootKey:=HKEY_CURRENT_USER;
if Not reg.OpenKey('/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources',false) then
showmessage('false');
reg.GetValueNames(combobox2.items);
Reg.CloseKey;
reg.Free;
end;
 
接受答案了.
 
后退
顶部