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

天云上人

  主要代码如下：
/ @* U# J5 y' N6 N
# K' ?- e* Q+ n7 J; r& Tvoid RegisterDBSource(CString strDSName, CString strDBPath)
- E! s$ o$ A5 W. W; f2 x{
5 @- R4 Q8 L$ i5 q9 { HKEY hKey;
   DWORD nLabel;
5 P+ e( ]' @* h- Y1 {
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
) o: L: i. [# O0 v; J! `3 s) ] CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;
1 ]* T. \: X' P5 Z5 A0 z9 f3 h
; E: }& s4 z( G7 B* ?+ _ CString strDataSource = strBaseKey + _T("\\") + strDSName;
/ L% ]. _, D% @1 ~
* x/ g! x, F4 X  Y6 |5 E CString strMdb = _T("Microsoft Access Driver (*.mdb)");
' d+ @0 X* v$ ^4 W2 b CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
) f0 L) ~% Q- _5 u5 H& W( } CString strUID = _T("");
8 w$ w% m' ?2 v3 a1 r$ x


2 [& Y) X0 K) \' C RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
3 h- t9 n- d; p     NULL,
" a6 ~7 X1 h- ^/ J  u     REG_OPTION_NON_VOLATILE,
$ E$ [8 n& i+ A6 |5 \' `5 r     KEY_ALL_ACCESS,
, k; t3 A+ c7 C! {     NULL,
    &hKey,
6 }6 z0 q8 L/ ?2 \     &nLabel );//获取数据源键值句柄

. o7 d2 ^% u; e# X) c RegSetValueEx(hKey,
0 p8 e0 _* M" W$ a* A, x      strDSName,
     0,
& P) u! {+ ]0 g$ H- F* ^: v* ~2 q      REG_SZ,
7 f, h# }7 O8 Y9 A8 r      (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型

2 a8 |, I6 ^- d RegCreateKeyEx(HKEY_CURRENT_USER,
# q' ~! E% q: g2 @% J: u1 b          strDataSource,
   0,
   NULL,
8 f$ y7 {. i; i$ y2 K; `  s    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
   &hKey,
   &nLabel );//创建数据源子键
5 o0 b1 g/ e2 j4 z, Q8 G' n& ?
RegSetValueEx(hKey,
     _T("DBQ"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
9 J# e- E; O$ I# H' x- c  {1 ^6 X' j      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

; c. {  R; C" ~; W: i; f+ v) Y  RegSetValueEx(hKey,
           _T("Driver"),
% q+ X7 b( ~6 _4 C      0,
     REG_SZ,
/ h# Z, I) i: B5 [; K0 \* D% s! A      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

* Q6 b; r3 H  P; T RegSetValueEx(hKey,
     _T("FIL"),
6 s7 W$ }' _' t' _( {      0,
( B5 ?# A$ ~. J3 m$ p: k, b/ H      REG_SZ,
8 g& r& }4 ]. ?3 ?      (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型
0 @" Q. k7 X/ M9 G6 K9 T9 f9 m0 Y
RegSetValueEx(hKey,
8 r0 h% B5 D* T6 Q3 H      _T("UID"),
     0,
- {8 E& h# t, H8 @" W      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
* |: m8 ~5 x+ q

DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
0 P$ Q( P) \4 c+ E& i. r     _T("DriverId"),
; R5 c1 |: [! ?& }     0,
+ h( U5 b& m) L) s+ q* q2 ~( V     REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项

5 u) s+ m* s9 |. N: d
/ }7 _& u" {  x  l DWORD SafeTrans = (DWORD)0;
5 _* h% ?% `$ `6 T( N. Y RegSetValueEx(hKey,
     _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}
9 X4 {( g* y; C8 E
: v! q0 c: K& q& i; L: b( g3 d
( l2 w& P4 r5 `/ N+ ~
调试环境：WINDOWS2000 + VC6.0 + VSP5.0