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

天云上人

  主要代码如下：

# g2 _/ J* Y0 P+ U) K4 qvoid RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
   DWORD nLabel;

5 A1 B! C( B: n& Z. I" Y, ?+ W CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
+ J/ J; E7 `  z" K, n  D( G' o if(strDBPath.IsEmpty()) return;

1 c7 i1 Y+ z! b  H CString strDataSource = strBaseKey + _T("\\") + strDSName;

7 j. d* t/ ~9 K CString strMdb = _T("Microsoft Access Driver (*.mdb)");
5 q# C. i4 C1 E8 J5 r CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
3 }; i; U" p% D" ~ CString strFIL = _T("Ms Access;");
9 d9 v$ x9 m3 k1 w! N CString strUID = _T("");

+ G9 Z. W* F, u
* S( x& W9 S$ S
; d3 |, N9 f1 Z1 F2 w' V/ G% M RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
    NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
$ i7 l% ?0 o- F; t8 i2 h+ Y% Q     NULL,
# y$ I4 T7 u4 v% t5 T- L, |( }     &hKey,
# C4 u. O3 t7 Z2 x- r     &nLabel );//获取数据源键值句柄

& p# E3 s, M- G4 o; ^ RegSetValueEx(hKey,
  b9 I+ w7 I  t      strDSName,
     0,
' m  _* p( [$ n- q( E% A      REG_SZ,
& V! n  k7 |6 |# A% x      (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型

4 @" X0 l$ D/ s, X/ x8 L RegCreateKeyEx(HKEY_CURRENT_USER,
" K* R" V  E( Z9 w5 T          strDataSource,
   0,
   NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
- u5 b5 U. t& X' `+ a    NULL,
4 ]' D) x0 d1 ^; W% U4 l6 }! ^, p$ f    &hKey,
! |- J, X1 Z* j5 |; ?' e    &nLabel );//创建数据源子键
4 X% x- |) @, f+ ?
RegSetValueEx(hKey,
     _T("DBQ"),
     0,
     REG_SZ,
8 B% T: C, A- M* X( \% Y5 o: E/ c      (const unsigned char *)((LPCTSTR)strDBPath),
9 R9 r  W, k) A4 o' h6 p      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

, F1 a  v0 q, D+ t% A6 Z  RegSetValueEx(hKey,
# e& x) _( H* V  v9 C1 Z: x            _T("Driver"),
     0,
     REG_SZ,
+ S  H/ w  @& a1 ?      (const unsigned char *)((LPCTSTR)strDBDriver),
1 r) [6 J2 D  v0 v2 Q4 K      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
8 L2 Y( ]# d- I! {
RegSetValueEx(hKey,
     _T("FIL"),
! m/ t& o! ^9 H! t$ H3 B0 v) J' l) @      0,
     REG_SZ,
5 I4 a' @/ D) v: N/ \9 `      (const unsigned char *)((LPCTSTR)strFIL),
: B/ U  v: K4 M# d0 @) o. f      strlen((LPCTSTR)strFIL)+1);//表的类型
3 s4 Z# M  O2 |! ~7 Y0 a+ ^2 Q
5 t3 h& ?0 C8 Z9 f) ^ RegSetValueEx(hKey,
$ U2 Q0 Y& [' ]      _T("UID"),
) X: X: x5 ^$ M6 A      0,
: ^. ?' l% P6 [# M; ~3 ?! ?5 n- x" D      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
# n8 B+ U6 i. ]# s2 s# \7 A      strlen((LPCTSTR)strUID)+1);//必须项
( a0 s( S6 A" n$ Z

DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
9 F% x, P, H8 G  {( v4 k7 W) U     _T("DriverId"),
    0,
    REG_DWORD,
( [: X- _  G* _( I     (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
; T3 F& l, w  v0 s5 ~  ^ RegSetValueEx(hKey,
     _T("SafeTransactions"),
  \+ Q0 P! c! X" t; O# |4 k2 N      0,
     REG_DWORD,
% e# @# ^! e" K6 w- x      (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
# |) e% u; ~1 z/ M  T  J}

+ a3 d( Y5 r- x7 G* k% ?

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