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

天云上人

  主要代码如下：
) a2 h3 x/ {; d) u/ N+ p% b6 B& x, J
( Z6 V( Q4 f& Q- u3 O6 G3 B* f0 Svoid RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
; ~* q5 [! J' |+ T- e    DWORD nLabel;

8 b$ ^* ^9 B; E CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
" f) g3 S% C+ y( a7 A8 }5 v/ E. J: u) Y CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;

CString strMdb = _T("Microsoft Access Driver (*.mdb)");
; E$ Z0 _1 V# a, _/ _ CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
1 m( @2 ?  L5 i4 V# o7 t2 V% l& K CString strUID = _T("");
: d. t# v5 y) v- e/ t9 z: i' K) z- v

+ `. |; w7 \6 d3 a7 m/ P% k6 U1 R
% J5 d. I! n. |$ r6 j+ V7 j RegCreateKeyEx(HKEY_CURRENT_USER,
/ I& l- W3 O8 n  I+ V7 v1 k              strMid,
) I6 w/ I$ }$ i& {  ^        0,
. U* f, n) T/ u  Z& U2 J9 R     NULL,
; x# l( c; q' Q- J* k: s) ~     REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
    NULL,
5 B% @: n/ h& i     &hKey,
( O0 p+ x1 E5 r/ u0 r4 M0 ]' b7 \     &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
6 |( }' Z! @1 F$ m      strDSName,
6 Y) A: _. @$ `3 {      0,
, B! u5 o) ]+ u7 W      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
- K( G/ a9 o* Q6 s      strlen((LPCTSTR)strMdb)+1);///设置数据源类型

RegCreateKeyEx(HKEY_CURRENT_USER,
, I7 e5 ^  \% ]9 x1 P          strDataSource,
+ P+ ~* I" g, O1 W- r1 N    0,
* U- T0 I: r* h- Y/ ?$ Z) W8 k    NULL,
7 ^- K1 z% k$ L/ M( I4 p2 Z2 C) X3 f    REG_OPTION_NON_VOLATILE,
3 X4 S' P# f1 G    KEY_ALL_ACCESS,
8 [! t6 C' Z9 S: r3 i    NULL,
   &hKey,
   &nLabel );//创建数据源子键

RegSetValueEx(hKey,
+ v5 F; m/ w5 i      _T("DBQ"),
     0,
     REG_SZ,
2 T: W# u3 m9 ~: W2 V      (const unsigned char *)((LPCTSTR)strDBPath),
/ V7 T8 l8 o* A0 C" Z      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
% B9 L& y( s1 Z, F3 w6 W
  RegSetValueEx(hKey,
           _T("Driver"),
2 L3 N7 K. T0 M6 }" R8 O      0,
     REG_SZ,
' m2 g; p! l  ]; [0 `, b      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

, `  o) ^. F$ M RegSetValueEx(hKey,
     _T("FIL"),
, N( ~' \# C/ G) n6 Y, O      0,
* t8 p8 r/ ^0 z- H% Y      REG_SZ,
  E- g/ ^0 D6 m7 k& i0 l3 s0 W; l      (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

. h' e2 Y% u9 [3 S RegSetValueEx(hKey,
     _T("UID"),
     0,
( g0 U' [/ o' }      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
! y, f5 B# W- G, y, Q$ M; P& N      strlen((LPCTSTR)strUID)+1);//必须项


DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
9 a; ^1 X# h# B: S1 d$ V     0,
( y# n8 l! p: X. H     REG_DWORD,
    (const BYTE *)(&DriverId),
. w0 Y' Q6 M1 Q/ k7 W     sizeof(DWORD));//必须项

1 f" f* O. a' D
DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
6 X  x8 I' X  R2 ?" K      0,
     REG_DWORD,
( h* \" F* F2 N' y3 Q/ T! i      (const BYTE *)(&SafeTrans),
3 \) o0 ?, ^0 K  P5 {$ [) ~; D      sizeof(DWORD));//可选项
}

7 C* w/ A2 S- C6 ~$ T( d

调试环境：WINDOWS2000 + VC6.0 + VSP5.0