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

天云上人

  主要代码如下：
1 n9 J1 B4 b* P
0 ]8 y% k/ }) r  Lvoid RegisterDBSource(CString strDSName, CString strDBPath)
& l% K1 ~/ f- q1 C{
8 @9 M) |: J+ }9 [ HKEY hKey;
   DWORD nLabel;

CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
9 z  R! m5 L0 O5 s
1 t/ ^0 Q0 z7 ?8 M9 j' A6 E if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

+ o: h- i4 Y6 @) R* E7 b: Y CString strDataSource = strBaseKey + _T("\\") + strDSName;
  m  c3 K- d' g5 P6 f' r5 |7 ]
( \$ Q: `7 i7 G7 R  S( M! z& U CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
, x8 Y  O& s2 _& W- J- ` CString strUID = _T("");


  }" _5 m$ w# @: ]( n
% |; C! p7 y# Y8 B$ @ RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
8 u) T9 |0 g1 u8 j0 W2 x" E" F     NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
    NULL,
. m! B, M% d- J     &hKey,
    &nLabel );//获取数据源键值句柄
' ]7 d/ q+ V  P- i3 A) Y9 p% ^: |
RegSetValueEx(hKey,
5 G; c! U  Y9 z. d, f6 j# Z      strDSName,
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
& I, _7 d1 T1 N& x$ d. |      strlen((LPCTSTR)strMdb)+1);///设置数据源类型

6 h9 P, V; x/ h& e- f+ L: X8 K RegCreateKeyEx(HKEY_CURRENT_USER,
1 E* E! [% C1 L5 Q          strDataSource,
   0,
   NULL,
8 B9 @- G7 S3 r( a( h    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
   &hKey,
) t( |, v/ h' I    &nLabel );//创建数据源子键
& A' }6 y2 {4 g6 b! N9 ^
RegSetValueEx(hKey,
4 d0 ^9 F% @- t: ?( J) j5 W      _T("DBQ"),
" z  J# j" @) Y& K' r  `      0,
; Z8 c8 \9 b4 H6 @! }      REG_SZ,
$ K$ x. r5 c* h2 ~& V      (const unsigned char *)((LPCTSTR)strDBPath),
  z; v  D- O7 d      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

1 x3 a, r) X+ b" l3 B  RegSetValueEx(hKey,
* h2 B" \0 f$ a0 k% p            _T("Driver"),
0 f. J  P/ Q5 f3 x      0,
* L7 _# b2 ~. A6 d+ W) w( z      REG_SZ,
% T* R0 O* _$ X& w6 }; E/ Y      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

3 j7 r3 C" g; K$ U RegSetValueEx(hKey,
; k! H( o3 U+ l8 ]; V      _T("FIL"),
6 m; @5 G7 N) [+ A      0,
* e" w3 Y; l- R# ~  R! Z      REG_SZ,
8 p, ]! h' p) b6 {# o  F3 O4 S  \      (const unsigned char *)((LPCTSTR)strFIL),
% c8 y* P& e' l0 t# D      strlen((LPCTSTR)strFIL)+1);//表的类型

& h8 N: H6 ]6 Q  M2 O5 p RegSetValueEx(hKey,
     _T("UID"),
/ B7 _! \  y3 G* K% w  p$ y4 `      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
! W6 Q% V) `7 g7 }+ x      strlen((LPCTSTR)strUID)+1);//必须项
2 H+ P6 P* [: [, t* X1 s8 V. Q% Y* t

1 i0 E+ t, a  C$ {1 Q: N% k4 c% K DWORD DriverId = (DWORD)25;
1 R" T0 [9 L! o' {! t: D6 f. N RegSetValueEx(hKey,
8 `6 }! [3 l0 v: B0 Z     _T("DriverId"),
    0,
- T6 f3 \- U: W* L     REG_DWORD,
1 G2 v! R: }) C/ b- J6 Y2 \     (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
  ?: N7 V* G1 N+ R/ ^1 X' c% z; A) U* f RegSetValueEx(hKey,
9 p9 I  S: S* N  [' X      _T("SafeTransactions"),
) y4 [) `' }& Y- n4 ]( S5 l      0,
$ x% b6 i& v: t, W- L. r      REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
. R4 i( h! d) a3 t5 q}


! Z5 }2 _" @2 `9 H3 d$ N1 Y
* X2 o6 R) k) n/ o0 {/ y- s  s调试环境：WINDOWS2000 + VC6.0 + VSP5.0