发信人: tw1978()
整理人: (2000-12-05 19:18:16), 站内信件
|
我来教你！
呵呵。。。。。。。。。。。
这是我自己做的配置ODBC的程序
思路：先在ODBC中配置然后到注册表中去看有什么增加，
然后照样写进去就可以了，但是这样做有一个问题，
SQL Server默认是用命名管道，如果要用TCP/IP协议
请在注册表中找1433，就能找到它是在那里.照样写进去就OK了。
var
reg : TRegistry;
begin
reg := TRegistry.Create;
//建立一个Registry实例
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
//设置根键值为HKEY_LOCAL_MACHINE
//找到Software\ODBC\ODBC.INI\ODBC Data Sources
if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
begin
//注册一个DSN名称
WriteString( 'DSN', 'SQL Server' );
end
else
begin
//创建键值失败
ShowMessage('增加ODBC数据源失败');
exit;
end;
CloseKey;
//找到或创建Software\ODBC\ODBC.INI\masdsn,写入DSN配置信息
if OpenKey('Software\ODBC\ODBC.INI\DSN',True) then
begin
WriteString( 'Driver', 'C:\Windows\System\sqlsrv32.dll' );
WriteString( 'LastUser', 'Username' );
WriteString( 'Password', 'password' );
WriteString( 'Server', 'ServerName' );
end
else
//创建键值失败
begin
Showmessage('增加ODBC数据源失败');
exit;
end;
CloseKey;
Free;
ShowMessage('增加ODBC数据源成功');
end;
以上程序是写到system里的，当然同样可以写到当前用户里！
如果看不明白，可以E-mail我来讨论！
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.105.146.58]
|
|