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

天云上人

  主要代码如下：
# J. b( o: F/ p: M  n  G
8 z7 i! y0 }$ H/ d/ f' x: Pvoid RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
   DWORD nLabel;
$ J! ^0 C: R( q6 o
& C6 n. Z* i' c; c7 G CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
4 S5 g3 y- o" Q: ^: y& m/ d+ K! I  S CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

* ?  j- B+ B# ~( i' L if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;
2 `3 o4 G+ `/ Y9 O5 t( f' R
CString strDataSource = strBaseKey + _T("\\") + strDSName;
0 n8 V  u/ y3 B( [4 b4 D! v
4 h) `. A3 r" O& H# R0 | CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
: Q- J2 ~9 v" P! N; N) h CString strFIL = _T("Ms Access;");
CString strUID = _T("");


1 B4 M, k( |$ ~, D% Q+ x& [
7 e3 H* X; y! ~( k) ^* U" A( c RegCreateKeyEx(HKEY_CURRENT_USER,
( T( X+ G' O7 O9 g) O4 V3 _0 E              strMid,
       0,
# q4 r8 ^0 v& u     NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
( F* J. E4 k  p% a- l     NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄

" ~/ ^- |- ]' L% r RegSetValueEx(hKey,
     strDSName,
     0,
0 v' u  K" L) ^. y) d1 @+ o      REG_SZ,
: P/ ?, h7 @$ w) Z      (const unsigned char *)((LPCTSTR)strMdb),
4 Z1 l/ n; y4 u      strlen((LPCTSTR)strMdb)+1);///设置数据源类型

+ r- k3 D% a$ f3 l! @" p RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
' x& M7 _3 \% Q& s- n0 \' ]    0,
% M: _# p1 V7 ]1 f3 E8 }" o    NULL,
   REG_OPTION_NON_VOLATILE,
% g) U5 O$ @- F3 Y    KEY_ALL_ACCESS,
- W/ `$ ]2 K7 h    NULL,
) {' D' S* M0 U: q8 k8 I    &hKey,
   &nLabel );//创建数据源子键

9 X; c$ P$ r3 G4 ]( O RegSetValueEx(hKey,
) w! v& t. \" F" x' P2 x      _T("DBQ"),
3 @0 g( T) Y2 j6 {' v; ?$ n( Y      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

' `7 p; _  q  {3 {  RegSetValueEx(hKey,
           _T("Driver"),
     0,
     REG_SZ,
7 H* c- p4 k2 x- h& R' j( a/ m& a      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

$ x- {5 c- E3 r' K2 r; {  V RegSetValueEx(hKey,
     _T("FIL"),
2 H& t, l6 e1 r, f, V& R- N8 ]      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
: r% S. U; _* P5 h$ L1 q# y      strlen((LPCTSTR)strFIL)+1);//表的类型

5 ~% i( c" T( R5 y9 n/ @8 D& [ RegSetValueEx(hKey,
" W# Q" n: t6 T. j; C. e+ [8 i      _T("UID"),
     0,
     REG_SZ,
) s& S8 a- D3 r4 @4 p3 P  G. V      (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项


DWORD DriverId = (DWORD)25;
; ]/ G' Y" s8 L9 D, ?, L RegSetValueEx(hKey,
2 ?3 ~. ^# _6 L' h( m0 I4 P* h     _T("DriverId"),
( }/ ^, u: ~) h4 x5 U     0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
$ Y$ [7 g) w+ c8 A6 S     sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
1 M9 p2 m5 ]% p& y" j RegSetValueEx(hKey,
* \7 i% I% v7 }, ?9 j  J" A' E5 n      _T("SafeTransactions"),
& N; \: ^+ C5 O, a& c      0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
3 T/ m) j& h" H# e4 x, i% P}


2 ~7 V5 {% v( U/ S6 J: B7 f1 V
3 E8 j+ ]& X3 p  P5 S调试环境：WINDOWS2000 + VC6.0 + VSP5.0