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

天云上人

  主要代码如下：

/ T! k: K4 a3 D+ V/ k+ Cvoid RegisterDBSource(CString strDSName, CString strDBPath)
5 B9 {2 v) V( Y: S2 P' w{
HKEY hKey;
) o7 H5 f% ?% N# G2 Z8 v; ~( l, ^! V    DWORD nLabel;

CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
1 T# e+ D: u& m! R4 Y, j
if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;
, R% b# a9 o% `; X! X
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
: R, u( G- [& f& B8 h CString strFIL = _T("Ms Access;");
! R! E, _$ T. |0 T7 _, W CString strUID = _T("");


8 k, X8 j) i" ~4 P) v
RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
    NULL,
$ f% V2 u' a9 }- ~9 _- u% j% P$ t     REG_OPTION_NON_VOLATILE,
: {$ R) J# r0 r% J7 y9 y, F     KEY_ALL_ACCESS,
    NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
     strDSName,
8 T8 Q/ z4 X" \3 q( Q      0,
" s, C" @% }# |      REG_SZ,
% z8 H: `+ I2 e9 p4 M      (const unsigned char *)((LPCTSTR)strMdb),
3 J# [. g# A6 Y      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
- C4 o- c2 L) Q* n* F
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
" c- M4 B  A+ W2 q2 R/ w. H' i    0,
  A; B6 `5 U+ J" F  f    NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
( N4 c# h. _5 G    NULL,
   &hKey,
+ [3 k5 g4 o" [. b2 v    &nLabel );//创建数据源子键
5 }* e7 T* N) U0 b, ~( G* o6 Y
RegSetValueEx(hKey,
9 v1 h4 b) ^- g( f, w& a      _T("DBQ"),
     0,
* g9 ?7 T7 L, ?! i- T      REG_SZ,
2 _+ j0 p' O: s; n' {: `7 X! D      (const unsigned char *)((LPCTSTR)strDBPath),
  r7 [1 V8 N/ F: H/ Y, ?) K/ |/ T      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

  RegSetValueEx(hKey,
           _T("Driver"),
     0,
+ \) L; j& g4 Y* U$ X      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
4 r  {+ }/ T4 C  p4 V5 P      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

$ C0 i: l9 J; m; C8 p1 c RegSetValueEx(hKey,
, ~; G8 U# r, `3 T6 g  o: p7 w& ?( F      _T("FIL"),
     0,
7 t0 o+ N2 z! q5 ?      REG_SZ,
& t3 }2 {! v. D      (const unsigned char *)((LPCTSTR)strFIL),
+ S3 t2 T! u0 U) j- J4 v" m3 w      strlen((LPCTSTR)strFIL)+1);//表的类型

7 }7 x, C0 C8 A4 O8 }( v0 M0 _# H; R RegSetValueEx(hKey,
     _T("UID"),
     0,
- n! G( ?5 Q; f% ^* r* O" m      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
+ ?0 x1 Y3 i7 y7 c2 Z; J      strlen((LPCTSTR)strUID)+1);//必须项

( g0 B, i" R" g7 l1 I
& f8 ^8 r9 u; E9 H* y9 ]& [ DWORD DriverId = (DWORD)25;
' a6 p1 o8 \4 Y3 h9 {8 L RegSetValueEx(hKey,
" u# ^/ c  Q: t4 o' u     _T("DriverId"),
    0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
' u5 I( A8 b/ ^  \4 k7 S( d: `; ^     sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
9 N& Y4 Z0 o  B8 K1 ?1 H( N' u, _      _T("SafeTransactions"),
     0,
2 T. A. I3 [. z- f) {      REG_DWORD,
1 y5 z$ J: B7 t* w1 p# s      (const BYTE *)(&SafeTrans),
) M' U2 P0 d3 z' b& v      sizeof(DWORD));//可选项
}
$ P5 A* W. n6 X, R: t" p
6 |3 Y# ?3 E% S: i2 U' i# X

1 y) A9 d1 @8 }3 B3 }% ]7 I调试环境：WINDOWS2000 + VC6.0 + VSP5.0