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

天云上人

  主要代码如下：

# M  y' r) q! _& o; y/ Evoid RegisterDBSource(CString strDSName, CString strDBPath)
{
2 B) O: S) g/ C# `5 U HKEY hKey;
, d5 r7 p/ p+ v" P- F/ V+ P    DWORD nLabel;
' |: l6 O- @( m  q
! }/ Q) C8 Y; n- L CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

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

CString strDataSource = strBaseKey + _T("\\") + strDSName;
& j* V* m# c! c8 D, d
, r- Z1 T& P/ y" q& e CString strMdb = _T("Microsoft Access Driver (*.mdb)");
' ]! l4 ^$ V$ c1 o5 n CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
1 n' t2 M- ?. K; W$ ]+ O1 M: l CString strFIL = _T("Ms Access;");
6 u, G  r, n" a' y& p3 J  Z$ s CString strUID = _T("");

2 O7 T  ?0 |) H0 Q9 W$ v2 |
/ i! c2 L0 ^9 R( h4 r2 D0 n
6 P9 Q% \3 s4 p# s5 A( E, E4 k- h- \ RegCreateKeyEx(HKEY_CURRENT_USER,
2 [$ z) w& n' S2 D. R              strMid,
( k9 F2 F" z3 Y2 i( L; y% c( Y        0,
5 D1 I( U& O! [% o     NULL,
4 K3 }# ]0 }7 D( w8 O     REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
    NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄
! Z9 y9 n/ r5 R9 ]) z0 e
. x6 \. N% s0 A$ R* A) k5 A RegSetValueEx(hKey,
     strDSName,
     0,
     REG_SZ,
4 p# J# u9 q& u+ r6 W      (const unsigned char *)((LPCTSTR)strMdb),
, s* z! U' k1 {      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
3 l4 u0 L! S5 I+ U7 T* [# {; p
: A. T0 h( X) H. V% ^9 ? RegCreateKeyEx(HKEY_CURRENT_USER,
& N4 g' G7 D9 _/ ^! a2 o1 K8 `" V          strDataSource,
   0,
) Z# q1 g5 x2 a2 k+ z1 S- Z3 J    NULL,
   REG_OPTION_NON_VOLATILE,
) E# Z$ G7 |. [    KEY_ALL_ACCESS,
   NULL,
2 v# y$ r2 d) W$ Y& L! L  \' m    &hKey,
1 V9 y4 v1 O% ^9 r. X1 L. \0 m    &nLabel );//创建数据源子键
  f( }( V: Y  N/ f9 N
RegSetValueEx(hKey,
% P8 Q9 i$ ]# m      _T("DBQ"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
; P6 G" {1 x' i, Z7 E      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
( C5 F5 A3 ]* X' O% Y
  RegSetValueEx(hKey,
           _T("Driver"),
     0,
     REG_SZ,
, r% `' @1 l; q" F# M      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

5 B. M. [/ f/ g) E& A2 i3 Q RegSetValueEx(hKey,
     _T("FIL"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

( O8 q6 a2 W3 ]# E" v  o RegSetValueEx(hKey,
     _T("UID"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
& ~5 o1 j; ^4 e# t! k+ w+ q9 e0 m
% Y8 y' p8 m3 A/ X
& \! j' V' i, ^+ i DWORD DriverId = (DWORD)25;
. F3 d& E8 f% M5 E RegSetValueEx(hKey,
    _T("DriverId"),
    0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
0 j) _% p5 p' `, u' l* s+ p# Q6 X     sizeof(DWORD));//必须项
5 w: S2 T2 j7 ]/ Z  v: T; n- G
2 e% ~: K8 U* q* U+ ]5 x2 w  k8 Q
DWORD SafeTrans = (DWORD)0;
- n; w5 J5 O& N RegSetValueEx(hKey,
     _T("SafeTransactions"),
* V! @( \, |" v: x2 x- ?$ r      0,
     REG_DWORD,
# @$ m, v) B  e. G7 ^# U; E      (const BYTE *)(&SafeTrans),
" }, M3 [9 M/ W, r7 t9 n6 q$ p# M      sizeof(DWORD));//可选项
9 B+ v; R# \/ _( d}
7 z9 d) r0 W0 ~# V8 v
( u3 Y5 V# r# m( \0 J3 A

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