请问怎么配置带有ODBC数据源的的信息?我在windows目录下加了带有数据源的odbc.ini文件但不行。(200分)

景冰

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在安装好后控制面板的ODBC DSN中就有USER DSN信息,如何实现?请各位帮忙。
 
写注册表:
Var
MyReg:TRegistry;
begin
MyReg:=TRegistry.Create(Application);
try
begin
MyReg.RootKey:=HKEY_CURRENT_USER;
//YourLinkName:你的用户自定义数据源DSN
MyReg.OpenKey(Software/ODBC/ODBC.INI/YourLinkName/',true);
MyReg.WriteString('DataBaseFile',YourDataBasePath+'MyDataBase.DB');
MyReg.WriteString('DataBaseName','YourName');
MyReg.WriteString('Description','A Test');
//此处根据你用数据库来写自己看看注册表吧!
MyReg.WriteString('Driver',YourODBCDRIVERDLLName);
MyReg.WriteString('PWD','YourPassWord');
MyReg.WriteString('UID','YourUserName');
MyReg.CloseKey;
//自定义系统DSN名为:YourLinkDRV
MyReg.OpenKey('/Software/ODBC/ODBC.INI/ODBC Data Sources/',true);
MyReg.WrriteString('YourLinkName','YourLinkDRV');
MyReg.CloseKey;
MyReg.RootKey:=HKEY_LOCAL_MACHINE;
MyReg.OpenKey('/Software/ODBC/ODBCINST.INI/YourLinkDRV',True);
//驱动程序名:YourODBCDRIVERDLLName
MyReg.WriteString('Drive',YourODBCDRIVERDLLName);
MyReg.WriteString('Setup',YourODBCDRIVERDLLName);
MyReg.CloseKey;
MyReg.OpenKey('SoftWare/ODBC/ODBCINST.INI/ODBC Drivers/',true);
MyReg.WriteString(YourODBCDRIVERDLLName,'Installed');
MyReg.CloseKey;

end;
finally
MyReg.Free;
end;

end;
 
杜宝,你好。
这样是可以的,但还要那个odbc.ini文件吗?另外,我发现只要加入HKEY_CURRENT_USER
中的部分就可以了,不要HKEY_LOCAL_MACHINE中的,是这样的吗?
 
【请及时提前或结束您的问题,谢谢合作!】
 
odbc.ini文件???
不知道,可能是Win3.X下使用的吧,为了保持兼容,win98也保留了下来,如同Win.ini和System.ini.
一般我就是用上述的方法实现,其它的没试过,这是一个标准的例程,不加HKEY_LOCAL_MACHINE不知道
有没有影响。
 
谢谢你,杜宝
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
902
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部