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

天云上人

  主要代码如下：

$ g( w2 D/ l7 p2 cvoid RegisterDBSource(CString strDSName, CString strDBPath)
* U6 O# E% }9 J+ y2 c& U{
' f8 ?+ v: U! U: r! Z, F HKEY hKey;
   DWORD nLabel;
2 D2 `2 r) }% b* g& T# P$ T
) f) m; O5 ~" b! s  U CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
9 G) W$ e1 ?4 x3 q* g3 ^& u; M CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
) l, U# y. |1 {; w7 _, K) Q3 ]" B* }
if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

' c: O$ i& D8 ? CString strDataSource = strBaseKey + _T("\\") + strDSName;

+ L- K& z& @2 b" k! u0 F. H1 w  n CString strMdb = _T("Microsoft Access Driver (*.mdb)");
/ U! j0 b/ P: \ CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
5 G, ~- K% i) o) d4 V CString strUID = _T("");

1 @- S! i; Q9 y/ C5 K

. H# \* a1 }( p" {" e5 J' U# }3 L RegCreateKeyEx(HKEY_CURRENT_USER,
* |& w. C- @  W* T% K              strMid,
; B, b9 p9 v1 R5 z- B        0,
# Q! ~/ F: o7 i     NULL,
! z# }; s% N+ r* O     REG_OPTION_NON_VOLATILE,
* d: h- ^+ i4 S     KEY_ALL_ACCESS,
    NULL,
  {# [( E# H" G) I) H( C     &hKey,
% i* o, ]+ O3 Z/ z" A/ @     &nLabel );//获取数据源键值句柄

( C5 [. X* @4 C0 B2 v9 w RegSetValueEx(hKey,
! t# k. i1 j: C, a      strDSName,
, n8 U/ p0 A' T; E$ Y6 g( |/ d. {9 B      0,
! C* J8 n" ?9 _6 b2 F* ]      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
/ e6 I' Z' Y" g, ]4 r' ~5 v7 W) U
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
# ^: Y7 S, s+ a* w. Z    0,
" b% R" e* b' f9 M6 B+ j' ^( u    NULL,
   REG_OPTION_NON_VOLATILE,
. O% Q. |5 ]3 y2 r. v    KEY_ALL_ACCESS,
   NULL,
   &hKey,
   &nLabel );//创建数据源子键
* f9 n7 A* U  j4 L+ ^) P
$ X' j3 c. U# C2 z0 p RegSetValueEx(hKey,
     _T("DBQ"),
     0,
: k7 ?  C; r, }, _0 v/ Z      REG_SZ,
; T: k; w6 i, m% A( z( a3 Z      (const unsigned char *)((LPCTSTR)strDBPath),
( ]. H/ `2 K* C8 f) W$ d      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

  RegSetValueEx(hKey,
: `' M  ?: l! `8 M! H. c' ]            _T("Driver"),
3 S% R' H2 W: l% r; y      0,
     REG_SZ,
# A% n5 q$ h6 @* W      (const unsigned char *)((LPCTSTR)strDBDriver),
# ?: Z1 N" Y9 {6 J3 R      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
     _T("FIL"),
! _/ r% }' f# ~  k; u7 |" t* {      0,
4 M. Q; m4 v+ l      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型
1 }5 W$ @% H+ R+ z3 `6 n% l% a3 ?0 n
RegSetValueEx(hKey,
     _T("UID"),
     0,
8 i& i! V, `( [. }0 B- w3 l) \      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项


DWORD DriverId = (DWORD)25;
3 K% F+ `) v3 B: Y RegSetValueEx(hKey,
    _T("DriverId"),
8 f: `4 C9 E( _3 ^     0,
6 ?" A0 P2 q$ \% H* M! l     REG_DWORD,
; }& h4 r) }& f4 u- H- [! I& H     (const BYTE *)(&DriverId),
$ }. E" {; D6 o7 y# L( d8 }8 x     sizeof(DWORD));//必须项


% ]+ _# ~% J2 m5 l. V DWORD SafeTrans = (DWORD)0;
' I9 D$ C0 e" d7 ]0 q% W3 U RegSetValueEx(hKey,
  N4 a: L9 I' c( J; ~* P# {      _T("SafeTransactions"),
     0,
     REG_DWORD,
' R1 ]. T! G) }1 [      (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}



2 |0 N( p3 W) T) q/ B1 E2 F调试环境：WINDOWS2000 + VC6.0 + VSP5.0