//创建 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子键

 
　
说明：本教程来源互联网或网友上传或出版商，仅为学习研究或媒体推广，wanshiok.com不保证资料的完整性。

 2/2   首页 上一页 1 2