动态配置连接SQL Server的ODBC
作者: , 出处:专家博客, 责任编辑: jinpu,
2006-10-10 06:00
如何在程序中动态配置连接SQL Server的ODBC，以便增加程序的可移植性呢?下面给出一个例子以供参考。
如何在程序中动态配置连接SQL Server的ODBC，以便增加程序的可移植性呢?下面给出一个例子以供参考。
建立一个system DSN:
| GetMem(WinDir,256); GetWindowsDirectory(WinDir,128); ////////////////////////////////////////////// MyReg:=TRegistry.Create; MyReg.RootKey:=HKEY_LOCAL_MACHINE; if not MyReg.KeyExists('SoftWareODBCODBC.INI_ODBC_Name')then begin MyReg.OpenKey('SoftWareODBCODBC.INI_ODBC_Name',True); end else begin MyReg.OpenKey('SoftWareODBCODBC.INI_ODBC_Name',False); end; MyReg.WriteString('Database','_dataBaseName '); MyReg.WriteString('Driver',WinDir+'System32SQLSRV32.dll'); MyReg.WriteString('LastUser',_帐号); MyReg.WriteString('Server','(local)'); MyReg.CloseKey; //////////////////////////////////// if not MyReg.KeyExists('SoftWareODBCODBC.INIODBC Data Sources')then begin MyReg.OpenKey('SoftWareODBCODBC.INIODBC Data Sources',True); end else begin MyReg.OpenKey('SoftWareODBCODBC.INIODBC Data Sources',False); end; MyReg.WriteString('_ODBC_Name','SQL Server'); MyReg.CloseKey; MyReg.Free; |
其中带“_”的为自定义的字符串。
- 本文关键词：
