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

天云上人

  主要代码如下：

void RegisterDBSource(CString strDSName, CString strDBPath)
( p2 F' M/ y7 D$ |3 F{
HKEY hKey;
   DWORD nLabel;
/ v6 _! X2 J2 o5 J0 b2 e
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

8 j* i5 l, w  }' T/ X2 t% v( r if(strDSName.IsEmpty()) return;
! S8 D' u* _  x if(strDBPath.IsEmpty()) return;
* W7 K/ O0 v  d) v  `# }
! z6 |; T3 c* H- A3 C. G& l# ? CString strDataSource = strBaseKey + _T("\\") + strDSName;
/ K; ]  P) a" r# e' ]8 p5 k% y: s
( Z  y4 y" t% R4 S. U0 \+ J! A CString strMdb = _T("Microsoft Access Driver (*.mdb)");
# u( \9 @, Y" G6 [# ^" J& [9 s CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
3 H" ^+ R. P7 `3 O- I) n CString strFIL = _T("Ms Access;");
CString strUID = _T("");


5 Y/ K" d# }( H
RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
5 H( \  V1 T% y! O" X% D        0,
3 _" U5 ]. ^! {0 x! F; P     NULL,
# l9 g8 y- l. b. P) f     REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
9 `( ^" k8 D% Q     NULL,
8 l/ M$ p) M, t' P+ L     &hKey,
: P7 R+ \2 ~* `! @% t- D     &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
- A/ c* W1 C- A  U      strDSName,
+ [& v9 z, D' [( Z! Y$ ?      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型

0 v1 x4 n( H) b* y- L+ Q RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
   0,
   NULL,
  q# x# Z) `1 V    REG_OPTION_NON_VOLATILE,
  ?4 g, J9 ^3 q7 M- @    KEY_ALL_ACCESS,
( L# ]! a: o6 H$ F: t! L; G6 O2 F6 N    NULL,
   &hKey,
   &nLabel );//创建数据源子键
# C6 E1 N7 ]( @/ {  ]% J! b/ G* |& ~
RegSetValueEx(hKey,
; |. u" [) R" e      _T("DBQ"),
7 j/ R/ V: h3 L9 K4 [2 Y1 D      0,
2 N( d; u6 |2 y7 f1 s5 r, `* M# I      REG_SZ,
6 q; ?: n: S: \6 m* f, Z6 c: w! I) _      (const unsigned char *)((LPCTSTR)strDBPath),
. a* |& @2 g2 A: {5 G      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
0 b! n& V4 l- E. K/ f% W
  RegSetValueEx(hKey,
           _T("Driver"),
     0,
     REG_SZ,
5 b' v, C3 W1 Y- D4 j& n      (const unsigned char *)((LPCTSTR)strDBDriver),
: H" q+ x* X" W      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

0 g! V) y1 G2 [" B/ x RegSetValueEx(hKey,
     _T("FIL"),
     0,
     REG_SZ,
8 L: ?! J& i4 Z: I9 L, }2 j$ k' D      (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

RegSetValueEx(hKey,
3 r" }' r  H( i& X0 C% T      _T("UID"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
$ _0 B: J& \( Z! m) q2 S' E

0 U) v- w/ r0 `9 t' H/ E DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
% `- v4 K+ q2 e7 W     0,
8 @; [, k7 q! H5 d, u     REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项

  D; ^- x' Y7 J' \' P8 R
  |; k$ o9 y9 ~* v# w( ` DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
9 g7 x! p2 f: Q9 j8 M2 r      _T("SafeTransactions"),
* p+ Z$ X9 w( J9 `1 c4 o$ i( Q      0,
1 v! E" j0 c9 k; E      REG_DWORD,
+ W' T7 k9 y- D4 z% F      (const BYTE *)(&SafeTrans),
) K, F& O. J) E' o; y      sizeof(DWORD));//可选项
- n' H4 z& g9 D2 F1 }9 K}

5 A1 ?: w9 G% V

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