什么意思,如果是指动态创建ODBC DSN,
一种办法是改注册表,见其他帖子,另一种是:
function SQLConfigDataSource(HWndParent:THandle;fRequest:integer;
Driver,Attributes
Char):integer;
stdcall; external ODBCCP32.DLL';
function InstallODBCDriver(dbfile:string):integer; begin
result := SQLConfigDataSource(0,ord(ODBC_ADD_SYS_DSN),
'Sybase SQL Anywhere 5.0',
PChar('DBF=' + PChar(dbfile) + #0
+ 'DSN=MyODBC_DSN' + #0
+ 'DESCRIPTION=Description of MyODBC_DSN' + #0
+ 'KeysInSQLStatistics=1' + #0
+ 'TranslationName=Sybase SQL Anywhere 5.0 Transl' + #0
+ 'TranslationOption=1' + #0
+ #0)); end;
把相应内容改为SQL Server的就可以了。