[收藏]通过写入注册表添加ODBC数据源

天云上人

  主要代码如下：

void RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
   DWORD nLabel;

9 a6 f2 H- y& w' E  B& Y CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
( S; R% P  ?- M' G( S; ]9 v2 ^) `2 d CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

" h$ L3 i" Z( `. u4 q/ I2 |  ? if(strDSName.IsEmpty()) return;
! x3 g% F  t6 u7 y" l6 E if(strDBPath.IsEmpty()) return;

0 P1 B* l) G+ @" \2 A8 [; K7 } CString strDataSource = strBaseKey + _T("\\") + strDSName;
% u% {  @0 f( z/ ^! e) J
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
9 C' p. U3 v" z3 X CString strUID = _T("");

8 ?5 N& p6 {0 [; k

- X. R/ o4 p4 y RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
5 s" K. w5 I# c& O        0,
5 l* G$ v* U7 B% `6 @     NULL,
) v  d& x7 j% _     REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
    NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
     strDSName,
  \# b) N; H% O- T8 W      0,
     REG_SZ,
* f3 n# e1 X8 l; \1 z3 h      (const unsigned char *)((LPCTSTR)strMdb),
4 \5 d4 B/ ~# g) N      strlen((LPCTSTR)strMdb)+1);///设置数据源类型

RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
   0,
   NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
/ `" O- r% B% K- o    NULL,
   &hKey,
- L/ F* o$ k/ [) {( D    &nLabel );//创建数据源子键
9 k/ p) x; m% Y2 r
RegSetValueEx(hKey,
     _T("DBQ"),
! I4 a0 R* A/ t, s      0,
9 T4 ]5 o4 _1 _4 R* O9 r      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
& I" C. y: R9 |7 P: r  f
  RegSetValueEx(hKey,
           _T("Driver"),
1 P- T( D) T+ j: S: v      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
5 C$ D$ i- P" f      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
     _T("FIL"),
     0,
) a2 K/ W% J8 [( m- e2 ?% |      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型
* J0 A8 u- a( d$ M, [
RegSetValueEx(hKey,
3 k7 U9 o/ v2 m( B5 y8 ?; f8 |; ~' p/ O      _T("UID"),
5 ?) k# O0 u% N( F, M2 E      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
9 \% Z5 r( \6 D7 H      strlen((LPCTSTR)strUID)+1);//必须项


' Z  _( w: L6 S8 U DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
    0,
* k! s5 d, e+ K% i" ?, h2 {% r     REG_DWORD,
6 E) C2 }$ O7 j" [) q6 R' a     (const BYTE *)(&DriverId),
2 @6 u; x+ }7 J; j) r& }- m0 H     sizeof(DWORD));//必须项

4 Q4 V% C( I& v& U8 c2 \' `! U
DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
/ ]3 V' `( B! _! d      _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
1 S) n* x: B# r6 E! e/ z$ S      sizeof(DWORD));//可选项
: A4 j7 o7 D7 O0 R" |* E& s5 C* v: D}
+ S2 N. c* B: V) N# s
% u$ l( A8 z" [5 `5 c  z  P
, Z$ \, ~! ~& b
调试环境：WINDOWS2000 + VC6.0 + VSP5.0