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

天云上人

  主要代码如下：

' a- e" Y- A0 n( G! R) Q8 h/ dvoid RegisterDBSource(CString strDSName, CString strDBPath)
  w; g! Q- U& p# n9 x" ]9 _{
: Q; z. ]3 a* j/ l# a. O HKEY hKey;
   DWORD nLabel;
3 S1 D( }9 L7 ~! Q5 K9 L5 b3 D0 d
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
; Y' g% y/ X+ J- z+ z' p+ j CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
- E6 M) m1 b+ q$ p5 y% f/ s) Q
if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;
2 ^8 a2 A  H5 `. u4 q
CString strDataSource = strBaseKey + _T("\\") + strDSName;
# T3 T# l7 G9 g. e8 v" K! Q
! r) R: t* M! c3 q CString strMdb = _T("Microsoft Access Driver (*.mdb)");
* S4 S' {: v2 Q9 Q CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
" I9 R/ W, Z0 e' l CString strFIL = _T("Ms Access;");
. L# h; x0 d. l& w9 _9 s, R. W2 k CString strUID = _T("");
3 \  y& N8 _" E; y
# t% X$ G' u* ^0 |* Q
1 C! s9 S# s4 \1 b* o4 K8 X6 O) W
RegCreateKeyEx(HKEY_CURRENT_USER,
0 l" W# n! K6 i/ Z$ \& ^$ R( ~              strMid,
6 ]6 R4 h9 \" B6 {) }        0,
& f% }' p" y1 u" E* }5 \7 a     NULL,
, A+ N$ y7 P6 q* E! P/ M# V3 j     REG_OPTION_NON_VOLATILE,
& j0 M3 b* `6 s0 l) C5 y0 G     KEY_ALL_ACCESS,
    NULL,
    &hKey,
+ e( h& N2 t0 p9 e, J     &nLabel );//获取数据源键值句柄
$ a  n4 m. V; B, W1 e1 N) t
  z$ L1 x  f9 M+ P. v3 _  N RegSetValueEx(hKey,
     strDSName,
* ~8 W0 S" f/ b6 ?2 J" |/ z2 O      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
4 q' V% y% Q  Q. V# x( f" a
RegCreateKeyEx(HKEY_CURRENT_USER,
% V3 O; X# T1 Q4 Z  h          strDataSource,
8 a0 u- L  e5 m1 T    0,
  S) u. c+ p& ?4 h  n3 T    NULL,
* k1 R$ C1 T4 S4 d$ c    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
* e+ N3 ^# v! A6 f8 }1 p* V8 Z6 I    &hKey,
! Z$ D4 @( F9 R- t    &nLabel );//创建数据源子键
) T6 S  p- X' i" H; c8 ~
( ~0 _) b0 m! A# y3 r, o) d RegSetValueEx(hKey,
     _T("DBQ"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
4 s- e" p+ d8 r2 T1 U2 g      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

  RegSetValueEx(hKey,
! K% D! u5 u; g5 ?0 c8 j8 Y) F            _T("Driver"),
0 p4 o. H1 h2 a0 q) U  S8 m      0,
     REG_SZ,
. T; ?; G, E  |7 j1 t      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

7 A1 o7 `# s* H3 u2 t) {0 N) \' k RegSetValueEx(hKey,
     _T("FIL"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型
' T/ I6 j0 {7 M+ x
RegSetValueEx(hKey,
0 q4 F* m2 C# K# D3 E/ I      _T("UID"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
5 U. [. B: l) f      strlen((LPCTSTR)strUID)+1);//必须项


: V4 y( T0 o. f DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
    0,
    REG_DWORD,
; Y) Z, D& g, Y5 l* K5 |6 @8 Z3 e  e     (const BYTE *)(&DriverId),
& d$ i3 N4 z4 Y9 F" D     sizeof(DWORD));//必须项
% p+ q7 Y5 Q# U! H; R3 U

DWORD SafeTrans = (DWORD)0;
. v# N) m- Y: g4 z" _  _" L/ y2 x RegSetValueEx(hKey,
& v, M3 T* A: [' a0 i! d7 z      _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
0 k. ~. R* F# g2 j" N      sizeof(DWORD));//可选项
. L; j2 o  B1 Q! l' W9 f' x}
" t% L$ z  k: w/ t+ i, b* O+ k
2 X$ b7 h" ?8 h: l; v' g

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