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

天云上人

  主要代码如下：
+ x' u6 I! p; s; @0 t9 `0 o" b
void RegisterDBSource(CString strDSName, CString strDBPath)
8 `! b7 k# N9 G( V  D% J{
  c. Z9 c8 C, ^& I% _9 H7 V HKEY hKey;
   DWORD nLabel;

9 ?+ c0 o0 C0 x5 f7 I- N& Z+ R CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
# i% Y4 f4 Z. x; C2 e CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

5 d( H3 a# V) s; ^, C  e6 }" ~8 h. L* s% [9 O if(strDSName.IsEmpty()) return;
; Y% p  L! J( Z0 W, G5 I if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;

8 |( m1 E2 H& j' V) m CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
/ \3 R+ w' k. P8 G/ g+ t CString strFIL = _T("Ms Access;");
1 ^+ J. W( ^( U% b1 b( i CString strUID = _T("");
+ _. D- D! U/ U0 I8 \' @7 D9 O
+ c+ {0 j% g% K6 d, V

RegCreateKeyEx(HKEY_CURRENT_USER,
7 B% k3 ~& v( K; r( Q7 I              strMid,
, J& G6 r' U$ N$ g& W# L        0,
/ |( {- W; q4 x     NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
& Q" U5 R" y/ L( N! s* O- h     NULL,
  d! }5 z& K3 D  z& k     &hKey,
    &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
8 f& y  P/ t; L, ?      strDSName,
& `6 b- W; ?0 U6 U% [& B0 }2 L      0,
- x! M: l/ f# a      REG_SZ,
: G5 Y0 J) K+ g1 l      (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
7 j7 e3 B$ _+ a0 O
RegCreateKeyEx(HKEY_CURRENT_USER,
: {8 l5 T$ r5 S7 }1 B6 G# _4 o0 ?          strDataSource,
   0,
, i, w) t8 W& _- }* `    NULL,
   REG_OPTION_NON_VOLATILE,
; k8 d$ O& O4 J    KEY_ALL_ACCESS,
1 U) |2 w2 z3 Z+ B+ [; }9 `, B    NULL,
( l& u' c) q5 T: K6 ^3 b    &hKey,
   &nLabel );//创建数据源子键
) D4 O9 u) `8 r+ c* [' |* f* X
RegSetValueEx(hKey,
+ F5 }# m, n  p" X- {8 c% }      _T("DBQ"),
     0,
! [! o! C" F6 w6 o& u      REG_SZ,
0 p2 m* n. p5 U* `' V( W9 P* l      (const unsigned char *)((LPCTSTR)strDBPath),
( d3 I7 h  U- O2 l! z- h      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

  RegSetValueEx(hKey,
           _T("Driver"),
4 D3 z3 L1 D6 j- T4 `      0,
" @- E' t% T9 y9 F      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
* _8 g4 W( E; {/ C! s9 g# ?1 {% M      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

5 _' m) g9 u! ?5 v" s RegSetValueEx(hKey,
     _T("FIL"),
     0,
& S% I$ K. R0 n$ g1 H2 Z. G. A      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型
% E9 p3 [3 V8 z% ~2 v. k
( g# w- S( n* R' j  v RegSetValueEx(hKey,
     _T("UID"),
     0,
     REG_SZ,
3 q) N# N7 n% q0 o% h7 n      (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
- g% P- {* T) R; O0 r, p2 y

DWORD DriverId = (DWORD)25;
2 f( F; i! }4 n9 X' Z RegSetValueEx(hKey,
    _T("DriverId"),
1 T" l. l8 a: f/ u     0,
4 Y( L8 x" s4 {# [' @     REG_DWORD,
2 h1 s! `5 z' e% Z+ d     (const BYTE *)(&DriverId),
$ X+ w* h/ g' j0 l3 w9 U. Q     sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
$ p4 f- o: U/ T      0,
/ V6 {' w& O6 z" S2 A      REG_DWORD,
     (const BYTE *)(&SafeTrans),
  V3 a2 r4 ]8 d+ N9 n' u      sizeof(DWORD));//可选项
4 ?8 K+ b4 V, j  D3 N- g4 f. `}
& H7 K2 A" T( t9 x3 s$ x( D9 R
; C, B) I4 W# b. l5 l

3 N1 N4 g* Q6 W, ?9 E调试环境：WINDOWS2000 + VC6.0 + VSP5.0