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

天云上人

  主要代码如下：
3 [" J8 h( ^1 F  q3 g- D
( Z, K; r. u' i0 ~: C) yvoid RegisterDBSource(CString strDSName, CString strDBPath)
% X% C, \7 I* j$ R; L  I6 c{
3 _: y/ T  T6 B/ {* u HKEY hKey;
   DWORD nLabel;
0 G7 C9 r$ B1 a( E; G+ L! s1 U
) |) S5 A# i% Z CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
4 R7 K& p7 O& F0 D" x0 T
if(strDSName.IsEmpty()) return;
2 m0 J0 p0 U; i. m; w4 {7 k5 Q if(strDBPath.IsEmpty()) return;
+ v4 D' A$ \0 g1 S
CString strDataSource = strBaseKey + _T("\\") + strDSName;
2 C* u+ K2 e5 z6 z) _
! v9 F) R: D- T4 f& D0 i5 R) d CString strMdb = _T("Microsoft Access Driver (*.mdb)");
* D9 W/ F% _7 b CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
6 \1 Q) x. s' @6 Z1 | CString strUID = _T("");
, V" W$ o& g/ \4 I$ S9 F3 X

8 M' s/ n2 E+ A- W2 }
RegCreateKeyEx(HKEY_CURRENT_USER,
1 N+ S; b& _% N+ p4 y4 `: x: D              strMid,
       0,
    NULL,
5 c1 Y. }* b1 v. H& O. ~     REG_OPTION_NON_VOLATILE,
6 p0 J& ?* w4 d6 F6 `, D     KEY_ALL_ACCESS,
    NULL,
. T8 I$ t, Y' W+ m3 \     &hKey,
    &nLabel );//获取数据源键值句柄
: N) D4 f8 Q- ~" N
RegSetValueEx(hKey,
4 R" _& m% Q' M5 u7 m: j      strDSName,
- E9 }' \) P' s8 c      0,
     REG_SZ,
- @+ D2 y9 o/ J% y: |2 L. r      (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型

RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
3 o2 u1 N. {, r! B1 H    0,
" v/ J9 j- c/ U) a2 F& V    NULL,
   REG_OPTION_NON_VOLATILE,
- a) i8 w& Y; O' M& H  d/ W    KEY_ALL_ACCESS,
# }6 `7 Q6 }2 T, C    NULL,
   &hKey,
   &nLabel );//创建数据源子键
" D/ Y  {9 H  \/ @. c% L# [
RegSetValueEx(hKey,
     _T("DBQ"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
% O; r3 o, O3 Z; e+ S$ R3 ]      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

) ^' c  `& o4 E# D- k4 q& O9 ]  RegSetValueEx(hKey,
           _T("Driver"),
0 m/ Y! G; `' l. v. a: @      0,
     REG_SZ,
/ T, {3 B1 e9 l4 H      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
     _T("FIL"),
     0,
: c+ K- p5 Q) s3 e1 j2 d: a      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
4 Z$ x5 E) g, \  d2 e3 g- b; k8 p      strlen((LPCTSTR)strFIL)+1);//表的类型
9 b# z: Z4 e' X9 d( Z3 [1 R
RegSetValueEx(hKey,
5 z5 i/ w' w6 K1 c' q. X      _T("UID"),
3 W* y$ G3 S9 u7 `% d; `      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
1 n* _& K. e% F, k      strlen((LPCTSTR)strUID)+1);//必须项
- ]; s# d  E' F9 [* u+ p3 Y* u
0 x; `4 T1 q) P
6 G: P" J5 n" @9 F DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
    0,
, I5 X7 k) K. V; _- C) K     REG_DWORD,
! }, C4 k/ [7 C* k: S     (const BYTE *)(&DriverId),
/ z/ k; R8 i7 }0 W     sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
9 p/ x) T) Z7 S2 Q) T      0,
     REG_DWORD,
% }" o" P0 A% J& z2 D. k+ v, n7 g9 r      (const BYTE *)(&SafeTrans),
7 C/ n) Z8 H. b4 e! y      sizeof(DWORD));//可选项
4 _  m! u9 c! T4 O) B}
, w; P2 ^; `2 o% X! L2 |" q" q


: z: J$ `& o4 E3 s5 N调试环境：WINDOWS2000 + VC6.0 + VSP5.0