问题2,如果不想手动配置,可以事先做好注册表。双击就好了。或者Delphi自己写注册表。<br><br>注册表配置ODBC的详细例子 <br>提交日期:2003-11-20 <br> <br>关键词:ODBC 注册表 <br>【思路】:先在ODBC中配置然后到注册表中去看有什么增加,然后照样写进去就可以了,但是这样做有一个问题,SQL Server默认是用命名管道,如果要用TCP/IP协议请在注册表中找1433,就能找到它是在那里.照样写进去就OK了。<br>var<br> reg : TRegistry;<br>begin<br> reg := TRegistry.Create;<br> //建立一个Registry实例<br> with reg do<br> begin<br> RootKey:=HKEY_LOCAL_MACHINE;<br> //设置根键值为HKEY_LOCAL_MACHINE<br> //找到Software/ODBC/ODBC.INI/ODBC Data Sources<br> if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources' True) then<br> begin<br> //注册一个DSN名称<br> WriteString( 'DSN' 'SQL Server' );<br> end<br> else<br> begin<br> //创建键值失败<br> ShowMessage('增加ODBC数据源失败');<br> exit;<br> end;<br> CloseKey;<br>//找到或创建Software/ODBC/ODBC.INI/masdsn 写入DSN配置信息<br> if OpenKey('Software/ODBC/ODBC.INI/DSN' True) then<br> begin<br> WriteString( 'Driver' 'C:/Windows/System/sqlsrv32.dll' );<br> WriteString( 'LastUser' 'Username' );<br> WriteString( 'Password' 'password' );<br> WriteString( 'Server' 'ServerName' );<br> end<br> else<br> //创建键值失败<br> begin<br> Showmessage('增加ODBC数据源失败');<br> exit;<br> end;<br> CloseKey;<br> Free;<br> ShowMessage('增加ODBC数据源成功');<br>end;<br> <br>//以上程序是写到system里的,当然同样可以写到当前用户里!