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

天云上人

  主要代码如下：
" E! z# L6 z5 P. h' o$ \5 c
void RegisterDBSource(CString strDSName, CString strDBPath)
{
4 e$ @( n: {+ H# A% }" n6 u HKEY hKey;
   DWORD nLabel;

4 ]- E4 N& q! }1 X/ d CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
3 W( c$ q+ X2 ^' ^ CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

/ ~7 ~& G' t* Q) F if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

: X$ O4 V: I6 q0 F4 Y$ n# n- Q CString strDataSource = strBaseKey + _T("\\") + strDSName;

CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
- e6 H" }0 v  M" c CString strUID = _T("");
4 q: D' |% T: e
9 T1 X& b% Y5 G

; y  u: g" x/ W4 G! ~ RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
) u1 J0 C  B6 @        0,
+ q$ ?; z; M  W6 |6 C* L* x9 a7 L     NULL,
    REG_OPTION_NON_VOLATILE,
& a, b6 }" X6 |% f1 G/ r     KEY_ALL_ACCESS,
( i% n5 |; ~' D+ p     NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
" F( ]9 G2 m9 y- O/ H4 N' y      strDSName,
     0,
* i: Q; a( [  D      REG_SZ,
! G) y9 c1 ?( g4 E  P1 A+ r      (const unsigned char *)((LPCTSTR)strMdb),
& I4 m. j2 s1 F% J      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
2 d) v4 S: @" J6 X2 w
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
+ t0 p8 W5 O2 i( @1 O    0,
   NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
, G; |% H' U: i: w  o6 L4 B    &hKey,
/ |& n4 E1 {/ {* X7 d    &nLabel );//创建数据源子键

RegSetValueEx(hKey,
     _T("DBQ"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
$ w. {3 X' A) c, f8 g
  RegSetValueEx(hKey,
           _T("Driver"),
0 o+ s( M0 d! U0 a      0,
2 i, J: o# H3 G8 p+ j$ T/ h. D      REG_SZ,
" f! D/ _' U. z7 a$ J9 n4 I      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

! Q) ?( ~$ J6 z4 G RegSetValueEx(hKey,
/ i. ^+ ^" p& p! i0 d) q' u0 N      _T("FIL"),
& @8 t0 [/ u% G" f, J8 n4 j      0,
( A- W) P, E/ e/ a  K1 O0 T2 @6 q      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

( p# Z8 Q& e/ F) J RegSetValueEx(hKey,
: J9 k3 P% \7 u% j7 i% s9 u      _T("UID"),
     0,
     REG_SZ,
5 K3 t- M1 ?4 J3 V$ m$ [      (const unsigned char *)((LPCTSTR)strUID),
- K" h. d  i4 C. A" A: z      strlen((LPCTSTR)strUID)+1);//必须项
2 {! j5 r9 z" ]! U  U6 T' m
3 J# n: M; v4 q* v- _( H7 T/ S
DWORD DriverId = (DWORD)25;
( C5 K, \, V9 A* m7 ^" o: H RegSetValueEx(hKey,
, ], s* W* u% P) @/ y2 ]     _T("DriverId"),
    0,
    REG_DWORD,
9 d: w3 w7 H* N' c# R. D     (const BYTE *)(&DriverId),
4 F' i' Q$ ~7 a0 ]     sizeof(DWORD));//必须项


$ a( n/ Y7 _( x; c4 c! M DWORD SafeTrans = (DWORD)0;
" v+ M; T0 s$ f7 D9 { RegSetValueEx(hKey,
7 _' h2 O6 G& }/ p& e      _T("SafeTransactions"),
6 T& V: G7 B+ N" t/ U      0,
     REG_DWORD,
) B2 S; ]/ O0 M% V3 L6 c- C2 C      (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}
2 o4 u( I: d5 l* A  a1 @/ j
9 ~( I. c2 W" z! Q, S

/ W) ^1 y4 E6 X% C2 d8 w# F调试环境：WINDOWS2000 + VC6.0 + VSP5.0