如何利用ODBC动态建立与SQL Server的联接(50分)

我用BDE作连接件做了一个数据库应用程序，安装后需手工配制ODBC数据源。我想让程序
自动配制ODBC数据源。请各位大虾鼎力支持。

var
i : integer;
strTemp : string;
begin
i :=CreateSQLServerDsn('SQL Server DSN名', '服务器名', '用户名'); // database名无参数，请在函数中设置
strTemp:=CreateAccessDsn('access DSN名', 'access文件名');

// if i= 5 then
// ShowMessage('创建SQL server ODBC连接成功!'+#13#10+#13#10+strTemp);
// if i= 0 then
/ ShowMessage('创建SQL server ODBC连接失败!'+#13#10+#13#10+strTemp);

//***************/
unit CreateODBC;
interface
uses
Windows, SysUtils, Registry, Forms;

Function CreateSQLServerDsn(const FDSN,FServer,FUser:String):Integer;
Function CreateAccessDsn(const myDSN, strFileName:String):string;
Function CreateAccessUserDsn(const myDSN, strFileName:String):string;

implementation

Function CreateSQLServerDsn(const FDSN,FServer,FUser:String):Integer;
var
RegisterTemp:TRegistry;
s : string;
bTemp : boolean;
begin
RegisterTemp:=TRegistry.Create;
with RegisterTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;
//首先判断此DSN是否已经存在，如在，则不用继续下去
if OpenKey('Software/ODBC/ODBC.INI/'+FDSN,False) then
begin
CloseKey;
bTemp:=DeleteKey('Software/ODBC/ODBC.INI/'+FDSN);
end;
CloseKey;
//判断SQL Server的驱动程序是否已经安装
If OpenKey('Software/ODBC/ODBCINST.INI/ODBC Drivers',False) then
begin
s:=ReadString('SQL Server');
if UpperCase(S)<>'INSTALLED' then
begin
CloseKey;
Result:=2;
Free;
exit;
end;
end
else
begin
CloseKey;
Result:=3;
Application.MessageBox('SQL Server驱动程序没有安装，请安装Office97/2000或者安装win98中的PWS以安装Sql server的ODBC驱动程序','注意', MB_OK);
Free;
exit;
end;
CloseKey;
//寻找SQL Server的驱动程序路径
If OpenKey('Software/ODBC/ODBCINST.INI/SQL Server',False) then
begin
s:=ReadString('Driver');
if S='' then
begin
CloseKey;
Result:=2;
Application.MessageBox('SQL Server驱动程序没有安装，请安装Office97/2000或者安装win98中的PWS以安装Sql server的ODBC驱动程序','注意', MB_OK);
Free;
exit;
end;
end
else
begin
CloseKey;
Result:=2;
Application.MessageBox('SQL Server驱动程序没有安装，请安装Office97/2000或者安装win98中的PWS以安装Sql server的ODBC驱动程序','注意', MB_OK);
Free;
exit;
end;
CloseKey;
//注册一个DSN名称
If OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources',True) then
WriteString(FDSN,'SQL Server')
else
begin
CloseKey;
Result:=1;
Application.MessageBox('注册表键值Software/ODBC/ODBC.INI/ODBC Data Sources打开出错', '注意', MB_OK);
Free;
exit;
end;
CloseKey;
if OpenKey('Software/ODBC/ODBC.INI/'+FDSN,True) then
begin
WriteString('Database','你的database名');
WriteString('Driver',S);
WriteString('LastUser',FUser);
WriteString('Server',FServer);
Result:=5;
end
else
begin
CloseKey;
Result:=1;
Free;
exit;
end;
CloseKey;
Free;
end;

end;

// Result:=0;
// Result:='此ODBC 的DSN已经存在，创建失败';
// Result:=3;
// Result:='操作系统中ODBC驱动程序没有安装，请检查控制面板的ODBC设置是否存在？';
// Result:=2;
// Result:='Access的ODBC驱动程序没有安装';
// Result:=1;
// Result:='ODBC驱动程序没有安装';
// result :=5;
// result :='成功' ;

Function CreateAccessDsn(const myDSN, strFileName:String):string;
var
registerTemp : TRegistry;
bData : array[ 0..0 ] of byte;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp 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( myDSN, 'Microsoft Access Driver (*.mdb)' );
end
else
begin//创建键值失败
Result :='增加ODBC数据源失败';
exit;
end;
CloseKey;

//找到或创建Software/ODBC/ODBC.INI/MyAccess,写入DSN配置信息
if OpenKey('Software/ODBC/ODBC.INI/'+MyDSN,True) then
begin
WriteString( 'DBQ', strFileName);//数据库目录
WriteString( 'Description', '我的新数据源' );//数据源描述
WriteString( 'Driver', 'C:/PWIN98/SYSTEM/odbcjt32.dll' );//驱动程序DLL文件
WriteInteger( 'DriverId', 25 );//驱动程序标识
WriteString( 'FIL', 'Ms Access;' );//Filter依据
WriteInteger( 'SafeTransaction', 0 );//支持的事务操作数目
WriteString( 'UID', '' );//用户名称
bData[0] := 0;
WriteBinaryData( 'Exclusive', bData, 1 );//非独占方式
WriteBinaryData( 'ReadOnly', bData, 1 );//非只读方式
end
else//创建键值失败
begin
Result :='增加ODBC数据源失败';
exit;
end;
CloseKey;

//找到或创建Software/ODBC/ODBC.INI/MyAccess/Engines/Jet
//写入DSN数据库引擎配置信息
if OpenKey('Software/ODBC/ODBC.INI/'+MyDSN+'/Engines/Jet',True) then
begin
WriteString( 'ImplicitCommitSync', 'Yes' );
WriteInteger( 'MaxBufferSize', 512 );//缓冲区大小
WriteInteger( 'PageTimeout', 10 );//页超时
WriteInteger( 'Threads', 3 );//支持的线程数目
WriteString( 'UserCommitSync', 'Yes' );
end
else//创建键值失败
begin
Result :='增加本地 accessODBC数据源失败!';
exit;
end;
CloseKey;

Result :='增加新本地 access ODBC数据源成功!';
Free;
end;

end;

Function CreateAccessUserDsn(const myDSN, strFileName:String):string;
var
registerTemp : TRegistry;
bData : array[ 0..0 ] of byte;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
// RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
RootKey:=HKEY_Current_USER;//设置根键值为HKEY_LOCAL_MACHINE

//找到Software/ODBC/ODBC.INI/ODBC Data Sources
if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources',True) then
begin //注册一个DSN名称
WriteString( myDSN, 'Microsoft Access Driver (*.mdb)' );
end
else
begin//创建键值失败
Result :='增加ODBC数据源失败';
exit;
end;
CloseKey;

//找到或创建Software/ODBC/ODBC.INI/MyAccess,写入DSN配置信息
if OpenKey('Software/ODBC/ODBC.INI/'+MyDSN,True) then
begin
WriteString( 'DBQ', strFileName);//数据库目录
WriteString( 'Description', '我的新数据源' );//数据源描述
WriteString( 'Driver', 'C:/PWIN98/SYSTEM/odbcjt32.dll' );//驱动程序DLL文件
WriteInteger( 'DriverId', 25 );//驱动程序标识
WriteString( 'FIL', 'Ms Access;' );//Filter依据
WriteInteger( 'SafeTransaction', 0 );//支持的事务操作数目
WriteString( 'UID', '' );//用户名称
bData[0] := 0;
WriteBinaryData( 'Exclusive', bData, 1 );//非独占方式
WriteBinaryData( 'ReadOnly', bData, 1 );//非只读方式
end
else//创建键值失败
begin
Result :='增加ODBC数据源失败';
exit;
end;
CloseKey;

//找到或创建Software/ODBC/ODBC.INI/MyAccess/Engines/Jet
//写入DSN数据库引擎配置信息
if OpenKey('Software/ODBC/ODBC.INI/'+MyDSN+'/Engines/Jet',True) then
begin
WriteString( 'ImplicitCommitSync', 'Yes' );
WriteInteger( 'MaxBufferSize', 512 );//缓冲区大小
WriteInteger( 'PageTimeout', 10 );//页超时
WriteInteger( 'Threads', 3 );//支持的线程数目
WriteString( 'UserCommitSync', 'Yes' );
end
else//创建键值失败
begin
Result :='增加本地 accessODBC数据源失败';
exit;
end;
CloseKey;
Result :='增加新本地 accessODBC数据源成功';
Free;
end;
end;
end.

直接通过BDE连接数据库就可以了，
如果是刚开始学我建议你使用ADO去连接MS SQL,
BDE对于新手在开发系统中会有很多莫名其妙的问题产生，
想对去ADO现在的执行效率比较高，
如果要自动配置连接ODBC使用直接操作注册表的方法。好象在Software/ODBC下面，
具体内容可以参照里面的内容

最好在安装程序里面，配好ODBC，
不要使用你的程序来配，这样不好
安装程序可以配置ODBC，当然是通过注册表，比较简单，也合乎常理

haha,twos，我想知道你用的是什么安装程序，能否告知小鱼

[8D]通过修改注册表注册SQL SERVER的信息就可以了，当然你的connection也一定要是动态设定的，呵呵[8D]

楼主怎么不搜索一下:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=651407
http://www.delphibbs.com/delphibbs/dispq.asp?lid=685902
http://www.delphibbs.com/delphibbs/dispq.asp?lid=540767
http://www.delphibbs.com/delphibbs/dispq.asp?lid=490244

谢谢！