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

天云上人

  主要代码如下：
, n& K* [% O9 s" h! @* e
void RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
   DWORD nLabel;
( c) |( p: r; r- D. j$ G
" }4 O! Z% y1 ]& m7 s- a CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
2 L1 u5 ]' ]9 O* r; _- q& j' } CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;
1 Y* j  T5 Y3 o( y1 C
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
. R- |6 B1 b; [& f( Y9 {7 j0 s7 _ CString strUID = _T("");



. H3 i* B* d7 p# v, j. R RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
/ {5 g1 y- Y6 q% [9 Z# j3 G  V+ K     NULL,
, g) w* ]8 p4 V  _; d1 H     REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
0 f/ ~9 Q7 _$ P0 w0 G     NULL,
2 g. T- C$ g9 ^4 V- b! t& y     &hKey,
    &nLabel );//获取数据源键值句柄
3 N: m, Q$ w& q6 e6 I: }
0 {! s/ Z3 E& e RegSetValueEx(hKey,
     strDSName,
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型

- e1 B5 e7 p' x0 l/ [- } RegCreateKeyEx(HKEY_CURRENT_USER,
0 F5 g0 v  P# ^2 [          strDataSource,
   0,
; a2 \  k* z/ `    NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
* v  K& ^3 ]0 Q0 V    NULL,
   &hKey,
& u6 E. D4 E7 R0 _9 ^% z0 O9 x    &nLabel );//创建数据源子键
$ g, K0 y9 G0 p5 `% C
  ]: r# W+ Q0 O7 k RegSetValueEx(hKey,
     _T("DBQ"),
% M; \1 c$ s. E3 ?: M      0,
, P# s/ @: A0 |0 s# ~: L, x% d4 e' R      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
$ [2 Y$ ?; ?; e2 L
& P2 C/ f4 I: V/ R) V: [8 ]  RegSetValueEx(hKey,
* n& Q8 p) e  P/ u( v8 |$ g7 K            _T("Driver"),
+ B+ X+ m: R/ G1 Z      0,
     REG_SZ,
3 a. C  ?7 c" J0 ?. D      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

5 ^2 p$ r0 `, x# p6 W! B; P RegSetValueEx(hKey,
     _T("FIL"),
( i% X4 ]/ P7 u; f! ]8 J! y. v      0,
     REG_SZ,
9 D9 u" ^' e+ k3 Q7 e+ b: u      (const unsigned char *)((LPCTSTR)strFIL),
5 S, U8 }* s# s& E- w- P  B      strlen((LPCTSTR)strFIL)+1);//表的类型
- \- h% u2 N7 I$ y5 `5 S
RegSetValueEx(hKey,
; S+ O& X- T. ?      _T("UID"),
( d% k4 m' C" B2 R0 J      0,
6 E" {3 u5 m% Q      REG_SZ,
5 k. ^+ N& F  u4 Y( F      (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
* ?! v% i0 p1 S; q8 G

DWORD DriverId = (DWORD)25;
- ~  ~: J) u% g6 `0 ^ RegSetValueEx(hKey,
6 ], S, \1 E- i  N+ d. {     _T("DriverId"),
7 t2 E; F. I7 m) b     0,
    REG_DWORD,
! y& M5 W4 M1 U7 k( w     (const BYTE *)(&DriverId),
7 Q. w7 G0 Z- R' w# e* M     sizeof(DWORD));//必须项


/ s+ `3 k! f0 t/ L8 F DWORD SafeTrans = (DWORD)0;
) [0 B; ^- t8 c* v; ^& t: D& p! D RegSetValueEx(hKey,
     _T("SafeTransactions"),
# C. A" L( J2 I" d7 P5 m      0,
     REG_DWORD,
- ^1 y8 |' s! Z7 V      (const BYTE *)(&SafeTrans),
( @: O% Q8 g6 R; g      sizeof(DWORD));//可选项
}
5 |" F- h7 B( B2 {* o# Y9 n
, G* l5 U' o) f% w1 q

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