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

天云上人

  主要代码如下：
, e( j  o% ~5 p9 y8 j
. I7 p# {- G2 v; n) m% U4 m5 @2 Svoid RegisterDBSource(CString strDSName, CString strDBPath)
7 u; y1 P* z+ P" y# Y* w5 o{
' e4 c& C/ t" e/ u HKEY hKey;
+ d) T8 c1 V6 i: k, M& V    DWORD nLabel;
0 y" N( x8 `8 t9 ]1 O; ]
3 g+ @9 k2 m6 ^% m CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
6 C1 f9 f+ b. A# }) a7 A3 f1 f CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
3 n: k6 c' @9 d# v; l) ]
2 t% H/ u: |) M& P/ u8 g% `2 c if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;
/ D: n5 }! b/ t6 c6 G2 b
CString strDataSource = strBaseKey + _T("\\") + strDSName;
" I' I2 G2 i7 o) q9 r8 Z7 u# w
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
$ ?& z) `) s( M/ b" G CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
, L7 D, N. ~4 X3 U7 J" q CString strFIL = _T("Ms Access;");
CString strUID = _T("");



RegCreateKeyEx(HKEY_CURRENT_USER,
3 r6 r1 A0 O; W# i. L              strMid,
       0,
7 e3 \; F' e1 s# T! C% I     NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
3 w+ \5 Y" }  E* M$ t     NULL,
    &hKey,
; `& V9 |  N/ D) V0 N) z, Y     &nLabel );//获取数据源键值句柄
  t" `0 a! E, E/ J& y+ O. E
2 {: s8 d1 L# m$ v' ^ RegSetValueEx(hKey,
  v/ {2 t7 Q, B2 \& |8 Q      strDSName,
1 e2 {+ h, j3 |" r      0,
0 z' S- z  M6 ~. G. q, H      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
3 y) `8 T7 P, g) _      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
: C. q1 V; D; X, @: ?0 _* A
! W+ D( M6 }, ^ RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
. B% [. a/ H7 _  @- T    0,
/ T( b! k4 K# f, D2 f  j    NULL,
   REG_OPTION_NON_VOLATILE,
+ W; s* y# v; M7 {9 r    KEY_ALL_ACCESS,
   NULL,
. |8 Y+ \) {& B7 e4 K    &hKey,
   &nLabel );//创建数据源子键

RegSetValueEx(hKey,
/ D: i; V2 [! g* K- k      _T("DBQ"),
     0,
: p9 ~' r' b# x9 \' ~) D0 O      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

9 u' C" |1 x8 P0 E# i  RegSetValueEx(hKey,
" `$ n$ F/ i' K9 r, t            _T("Driver"),
& A: V! k8 [$ t" K2 \( ~* s3 U      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
' G8 p' w: z( q( R- r
0 V9 Z; ?' G: c RegSetValueEx(hKey,
     _T("FIL"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
( t( t5 ?1 A5 y# E7 X: j      strlen((LPCTSTR)strFIL)+1);//表的类型

! \2 f8 f  ~" A; ~4 V RegSetValueEx(hKey,
     _T("UID"),
7 g+ x# S5 X1 y) W      0,
7 _5 i, {0 ]# E6 Q2 |      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
" [9 `  h( M: R# u9 [/ h      strlen((LPCTSTR)strUID)+1);//必须项
0 G: Y" Z3 `2 b9 X7 T2 e! l

DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
6 J2 v2 `1 Q1 r4 V; u6 t     _T("DriverId"),
    0,
    REG_DWORD,
- T2 s5 d# H, y5 A6 Q     (const BYTE *)(&DriverId),
* h& W( T8 h9 X2 F. w     sizeof(DWORD));//必须项
1 P  |8 ~) B1 Y# S1 g
2 K0 m6 q: U: X& A2 F! T
DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
) o8 u6 e  H2 f- I1 K+ ~      _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}

' t. O, c/ }' M7 U
8 b2 D' J: v7 b- d0 q4 H) u
; d; R3 g3 u: O  z  i3 A2 j1 D2 Y调试环境：WINDOWS2000 + VC6.0 + VSP5.0