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

天云上人

  主要代码如下：

, T% {8 ?+ Q6 Wvoid RegisterDBSource(CString strDSName, CString strDBPath)
9 I5 F; d. ]$ C# c2 L2 N6 [; d* }, _! _! I{
5 q9 y7 p; y1 p9 X HKEY hKey;
/ [& M) `+ b! X; l: u    DWORD nLabel;
  N9 _! o8 i# k  q/ K! B3 V8 y4 a' q
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

. F8 j2 I) B* n: u if(strDSName.IsEmpty()) return;
; T: o8 L4 Z# r+ U8 [4 T if(strDBPath.IsEmpty()) return;
+ @8 @1 z3 ?6 T- k3 l
CString strDataSource = strBaseKey + _T("\\") + strDSName;
4 b1 x! m9 ?/ M7 A* S2 e
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
CString strUID = _T("");

* y9 R! M! h0 z, h- F# F
! c; L  |7 c1 e, V+ N! S: b
RegCreateKeyEx(HKEY_CURRENT_USER,
: ?0 ~! d5 M( e* ?# z              strMid,
       0,
    NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
    NULL,
7 V) A: \4 @' X2 z5 a7 q7 E     &hKey,
    &nLabel );//获取数据源键值句柄
' _' w4 r& C1 Z. e9 x) r
* I6 s  g' N' V. c& S* a1 ? RegSetValueEx(hKey,
     strDSName,
     0,
! G' f, i1 G4 r$ n! \/ t6 P      REG_SZ,
9 b, ~( f8 `/ _- U- _      (const unsigned char *)((LPCTSTR)strMdb),
! M" y0 q9 ^$ m" g& ?7 p' `      strlen((LPCTSTR)strMdb)+1);///设置数据源类型

RegCreateKeyEx(HKEY_CURRENT_USER,
7 Z* n" z5 L& o& }" [+ o7 k          strDataSource,
   0,
- `8 y# z( z  a    NULL,
+ W; z( L1 L( W0 x6 h! m    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
8 b% d) l6 A( T: h7 |  W& ]    NULL,
/ |, }1 s  _( G1 a1 P    &hKey,
; y$ @% E' o! F8 o1 U4 u; O    &nLabel );//创建数据源子键
; F: p4 _/ V# h* Y
2 W0 F  K; ^7 X- t0 U% y RegSetValueEx(hKey,
6 k' c/ Z5 Y& k3 Q; d8 u% [( k      _T("DBQ"),
     0,
     REG_SZ,
: c7 \; V# @+ M1 b) C# @  {2 |      (const unsigned char *)((LPCTSTR)strDBPath),
+ N! y& h  I+ M! N1 W+ V8 _      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

$ L: `. Z* N& }" {( R3 O" r0 h3 K  RegSetValueEx(hKey,
7 k! S* @5 \4 i& G            _T("Driver"),
' |' L5 H3 Y% |* t) M      0,
7 K# j9 O2 X, e0 e4 S# k      REG_SZ,
+ [. z* {! }" H7 f5 o* ^; \3 G  v      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

- s( \- I9 W/ S* W# f8 Q; d; u( J3 j RegSetValueEx(hKey,
) G! L' R) p* w& T      _T("FIL"),
     0,
. ]" R( g, C  r' r: f2 G& Z/ T      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
9 Q0 G3 C  m$ h" y- e      strlen((LPCTSTR)strFIL)+1);//表的类型
$ i+ Q5 ?  B: W' f
RegSetValueEx(hKey,
     _T("UID"),
+ {+ d, ^1 `& ]% O1 a% r6 L      0,
     REG_SZ,
9 m. W0 X6 \# Y! w+ D      (const unsigned char *)((LPCTSTR)strUID),
5 w: P2 G# ^6 Y7 w      strlen((LPCTSTR)strUID)+1);//必须项
0 G% w- h9 u9 q- s
; O7 I, H* O8 a& o
DWORD DriverId = (DWORD)25;
6 @5 M' l) c5 b, k- {1 R- z RegSetValueEx(hKey,
    _T("DriverId"),
2 y5 V$ I5 g1 {0 R2 k6 U     0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项
6 ]% W; b/ B7 U1 [

DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
9 Y  z: K( K* G& c5 F! V! f1 a# m& ?& ]      _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}

: ~9 t5 t6 D0 [5 L1 X# F. \4 |
- l2 _: V% b" m! H9 k6 \( Q
调试环境：WINDOWS2000 + VC6.0 + VSP5.0