在VC中动态加载 ODBC的方法

ChinaItLab

佚名

2007-5-20

保存本文

推荐给好友

收藏本页

欢迎进入.NET社区论坛，与200万技术人员互动交流 >>进入

//创建 ODBC数据源在注册表中的子键

lReturn=::RegCreateKeyEx(HKEY_LOCAL_

MACHINE,(LPCTSTR)strSubKey,0,NULL,REG_OPTION

_NON_VOLATILE,KEY_WRITE,NULL,＆ hKey,＆ dw);

if(lReturn != ERROR_SUCCESS)

return false;

//设置数据源的各项参数

CString strDbq=strSourceDb;

CString strDriver=sysDir;

DWORD dwDriverId=25;

CString strFil=" MS Access" ;

CString strPwd=strSourceName;

DWORD dwSafeTransactions=0;

CString strUid=strSourceName;

::RegSetValueEx (hKey," DBQ" ,0L,REG_SZ,

(CONST BYTE＊ )((LPCTSTR) strDbq),strDbq .GetLength ()) ; ::RegSetValueEx (hKey," Description" ,0L,REG_SZ,(CONST BYTE＊ )((LPCTSTR)strDescription),strDescription.GetLength());

::RegSetValueEx (hKey," Driver" ,0L,REG_SZ,(CONST BYTE＊ )((LPCTSTR)strDriver),strDriver .GetLength ());

::RegSetValueEx (hKey," DriverId" ,0L,REG_DWORD,(CONST BYTE＊ )(＆ dwDriverId),sizeof(dw));

::RegSetValueEx (hKey," FIL" ,0L,REG_SZ,

(CONST BYTE＊ )((LPCTSTR) strFil),strFil .GetLength ())；

::RegSetValueEx (hKey," PWD" ,0L,REG_SZ,

(CONST BYTE＊ )((LPCTSTR)strPwd),strPwd.GetLength ()) ; ::RegSetValueEx (hKey," SafeTransactions" ,0L,

REG_DWORD,(CONST BYTE＊ )(＆ dwSafeTransactions),sizeof(dw));

::RegSetValueEx (hKey," UID" ,0L,REG_SZ,

(CONST BYTE＊ )((LPCTSTR)strUid),strUid .GetLength ()); ::RegCloseKey(hKey);

//创建 ODBC数据源的 Jet子键

strSubKey＋ =" \\Engines\\Jet" ;

lReturn=::RegCreateKeyEx (HKEY_LOCAL_MACHINE ,(LPCTSTR)strSubKey,0,NULL,REG_OPTION_NON_

VOLATILE,KEY_WRITE,NULL,＆ hKey,＆ dw);

if(lReturn != ERROR_SUCCESS)

return false;

//设置该子键下的各项参数

CString strImplict=" " ;

CString strUserCommit=" Yes" ;

DWORD dwPageTimeout=5;

DWORD dwThreads=3;

DWORD dwMaxBufferSize=2048;

::RegSetValueEx (hKey," ImplictCommitSync" ,0L,REG_SZ,(CONST BYTE＊ )((LPCTSTR)strImplict),strImplict.GetLength ()＋ 1);

::RegSetValueEx (hKey," MaxBufferSize" ,0L,REG_DWORD,(CONST BYTE＊ )(＆ dwMaxBufferSize),sizeof(dw));

::RegSetValueEx (hKey," PageTimeout" ,0L,REG_DWORD,(CONST BYTE＊ )(＆ dwPageTimeout),sizeof(dw));

::RegSetValueEx (hKey," Threads" ,0L,REG_DWORD,(CONST BYTE＊ )(＆ dwThreads),sizeof(dw));

::RegSetValueEx (hKey," UserCommitSync" ,0L,REG_SZ,(CONST BYTE＊ )((LPCTSTR)strUserCommit),strUserCommit.GetLength ());

::RegCloseKey (hKey);