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

天云上人

  主要代码如下：

1 ?8 H9 y7 a* [) H3 qvoid RegisterDBSource(CString strDSName, CString strDBPath)
" {0 ]  X2 _  i7 E{
) L9 V7 q7 x) V, \2 ] HKEY hKey;
) T: L' E; n8 {& _* y. f) G7 r% X1 w    DWORD nLabel;

4 y: Q# _) L7 T2 N, c! B CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
  q' ^  d/ {5 x8 ^+ H CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
3 ^' B* d# b$ h' ]1 \
* B  `6 g: u/ f% E2 |( f  W1 W1 d if(strDSName.IsEmpty()) return;
: C1 [. P& ^! n  D if(strDBPath.IsEmpty()) return;
& g! e% N& Z3 z3 n
CString strDataSource = strBaseKey + _T("\\") + strDSName;

# G) O, W5 z( D* }7 | CString strMdb = _T("Microsoft Access Driver (*.mdb)");
$ C8 P7 S. x% e* \% Z CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
7 W. d7 s; H1 H8 \4 C& Q( j CString strFIL = _T("Ms Access;");
CString strUID = _T("");
1 C' R5 t" t; v
2 p7 b3 [& C% V7 _4 G$ k" Z- x( {8 E9 b. f
2 d5 u! e. R6 ^( e/ H
RegCreateKeyEx(HKEY_CURRENT_USER,
/ ^0 m- v+ `5 _+ G$ l! U              strMid,
4 a; _" L  P# J! t# q        0,
/ |9 @( u7 m8 j4 `     NULL,
. d9 }# \6 x% q' {+ x" ~0 o# i     REG_OPTION_NON_VOLATILE,
2 k9 C; w; \- S+ ]     KEY_ALL_ACCESS,
; k( |9 B+ M5 S. I* E4 m; J     NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄
& W* c8 {3 j0 ^3 y7 R! @  T
RegSetValueEx(hKey,
     strDSName,
     0,
- }; @1 w, d2 b. p( f      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
+ m1 C/ m$ J$ m8 s0 E+ g
' ?9 P1 r, C4 A- _/ X5 R. d RegCreateKeyEx(HKEY_CURRENT_USER,
/ B' X* k! e* }: b6 k          strDataSource,
' ~1 G2 |9 e( [( h% }    0,
   NULL,
$ B$ Q& _! ^3 S3 j$ S    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
& w& @, g4 X/ q1 _: @0 X) _    NULL,
, I2 v+ s4 I. C+ [) E    &hKey,
   &nLabel );//创建数据源子键

RegSetValueEx(hKey,
5 {1 d! w. R$ A2 n4 Z1 [      _T("DBQ"),
! ~8 C8 v3 Z, z4 }# p9 M& U1 a% U) _      0,
% b8 l+ Z0 u5 e2 B& b      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

8 K% Q$ b; l" j% |8 U7 m  RegSetValueEx(hKey,
           _T("Driver"),
     0,
! w0 O' J2 @- {' m      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
) p# S; ^) O# J# _* K
$ _- N- L, @4 A8 B% [2 H RegSetValueEx(hKey,
0 D# r2 T4 K0 N+ `; ?0 A      _T("FIL"),
# s7 X# @; s, P8 X; t! ]      0,
. Z: f# O! C2 c2 e' v      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
, X# r4 J# i: q  j, J      strlen((LPCTSTR)strFIL)+1);//表的类型
+ g- p5 u6 C- j: i0 l' W
1 w. x4 `3 g% S+ m( @  A RegSetValueEx(hKey,
' n8 C1 c, L; p      _T("UID"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项


4 l6 W  W2 D" N DWORD DriverId = (DWORD)25;
4 h- e5 }5 Y% D9 q RegSetValueEx(hKey,
: d9 i, Y7 W, [5 b) @     _T("DriverId"),
    0,
    REG_DWORD,
, t) c; d8 S, q- x     (const BYTE *)(&DriverId),
( ]1 h9 w! p6 ?& e) B2 x     sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
6 u8 ^1 x. B$ H* Z: h. V2 [0 F RegSetValueEx(hKey,
5 K  L7 p$ X, a! B( V- ?- p      _T("SafeTransactions"),
0 B0 a# U7 |: o- Y" p      0,
, W  ?4 Y! E, ]! H9 L- i9 t; k! h( f7 c      REG_DWORD,
2 @, X$ F8 C: N% {      (const BYTE *)(&SafeTrans),
$ ?9 U$ C5 Z: U/ k. F      sizeof(DWORD));//可选项
5 V# G- D9 K% Q' h: V2 N! U7 A}



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