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

天云上人

  主要代码如下：
7 z( r. |/ `0 `8 i* j, o) V
void RegisterDBSource(CString strDSName, CString strDBPath)
5 y. L/ {+ u- A5 H8 f7 u{
1 e* q* k: E6 U6 C, A( h! s& l4 B HKEY hKey;
   DWORD nLabel;
9 I( N! y/ R  P5 q. G5 U, f# @
8 V/ @/ q7 o7 x; z" h CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
* |9 y9 \" z8 Q, x/ o CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;
/ y3 x0 p7 S: J2 ~
CString strDataSource = strBaseKey + _T("\\") + strDSName;

CString strMdb = _T("Microsoft Access Driver (*.mdb)");
) ^( \# ?- M$ Y. h; l  `* k CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
7 r5 f2 m' r& B5 P( n& `, ` CString strFIL = _T("Ms Access;");
5 g& h; `4 w- l CString strUID = _T("");
+ e% f! D; A( y8 M7 a- U


RegCreateKeyEx(HKEY_CURRENT_USER,
' g! T( J2 I+ W; c: D& ~* u% \              strMid,
       0,
! ?) x# k) Y" n* s$ C# ?     NULL,
* ^. U- d9 K" e! F2 ]! g     REG_OPTION_NON_VOLATILE,
. I* p/ v! G9 F  x     KEY_ALL_ACCESS,
+ Y' T4 O6 ~# l% m0 l     NULL,
% c0 ^5 L! @" a3 o1 g8 w     &hKey,
    &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
     strDSName,
     0,
; r( z; |, S; i$ X" q      REG_SZ,
! x4 x& X! P, B7 r      (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
, S  f  P& J$ Z
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
0 ]- Y' E6 U- o! ^" W8 C& o    0,
   NULL,
; \+ E4 `/ O1 }. a, H    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
   &hKey,
( z: M3 w3 P+ y. V2 G5 E- Y7 k( I    &nLabel );//创建数据源子键
2 Y  D0 ~- K* l! F5 v$ n
( Q$ \2 O% b% S! r8 }( a RegSetValueEx(hKey,
     _T("DBQ"),
7 L; U3 B' {, `6 q      0,
  @  V5 ?( F; I' p9 N      REG_SZ,
8 i- K' _* u" \5 h+ j1 z5 }      (const unsigned char *)((LPCTSTR)strDBPath),
2 Y4 |" s, \5 H, K5 n' \7 l! W; y1 _      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

* `+ F. H5 s( H9 h5 q/ D& \  RegSetValueEx(hKey,
           _T("Driver"),
     0,
& z; Z5 t" Q  ^3 I8 h      REG_SZ,
" h8 v/ R( R( s      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
6 m2 F  h3 i% Z( Q- C& F# U6 J
RegSetValueEx(hKey,
! P0 v- e8 K* g- G  y; p% Q      _T("FIL"),
' X  B" v- X- z3 |      0,
7 i! ?7 {! [/ b      REG_SZ,
7 s+ m. _! t5 g( @/ l/ g" a      (const unsigned char *)((LPCTSTR)strFIL),
" D8 q- @; H4 X  Y+ M% k      strlen((LPCTSTR)strFIL)+1);//表的类型
  |' N5 T3 [, L
RegSetValueEx(hKey,
     _T("UID"),
" l5 I, K  }# `* Y& U: @      0,
. I$ m% W. X7 C1 l5 |2 @' s2 R! Q      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
$ A% [) p: b* T9 G' \0 y
1 \" b  f, d+ s2 V; }2 O6 W$ A
: d+ _8 x9 \& `1 e% W9 f DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
8 [0 K& Z7 g1 V7 [     _T("DriverId"),
    0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项
" ~- _1 I3 c% _' _: r( l
1 \+ C, Y' A+ }) R5 G2 K! e: a; y" g
DWORD SafeTrans = (DWORD)0;
. a% Q2 ]9 d* c  f" N" o RegSetValueEx(hKey,
     _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
$ r  @2 a0 ^& W7 @      sizeof(DWORD));//可选项
}



调试环境：WINDOWS2000 + VC6.0 + VSP5.0