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

天云上人

  主要代码如下：

void RegisterDBSource(CString strDSName, CString strDBPath)
  L' W- S; b6 S{
HKEY hKey;
* R: r8 }6 ~2 T3 n, R# [$ z    DWORD nLabel;

CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
. I, m( ^  e4 a' M& @5 g CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

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

CString strDataSource = strBaseKey + _T("\\") + strDSName;

" o: d: ^2 K* F+ _2 `1 ? CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
7 e2 @/ d# r1 z% S: l CString strUID = _T("");
9 v9 _3 O* f0 [5 O


% @4 d% d* n% z& V RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
    NULL,
    REG_OPTION_NON_VOLATILE,
( S2 Q( _6 J0 T" P3 E% s, }4 ?  V4 C     KEY_ALL_ACCESS,
    NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄
1 y/ L: e& o# v; q
RegSetValueEx(hKey,
     strDSName,
     0,
! y: ]# ^5 m7 D/ X8 u( P      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
6 @, G% {6 A3 m1 m; `' Z4 R      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
! `4 O; U  X2 p1 o) s: p
RegCreateKeyEx(HKEY_CURRENT_USER,
2 e; P: r" L) x) I$ ^          strDataSource,
1 m; b2 `  Q+ f# W" y! G    0,
   NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
1 M% W6 M* j1 c    NULL,
   &hKey,
   &nLabel );//创建数据源子键

  h$ y- Y* Y. D, _5 ^/ ?# e RegSetValueEx(hKey,
     _T("DBQ"),
     0,
# Y$ {( _! H- k- d' {6 _2 @" @      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
( n4 a% }: x$ i" F  G4 f
; O. o* |5 p& k) ]* @  RegSetValueEx(hKey,
           _T("Driver"),
! Z5 n/ s; z6 |. w# C6 E      0,
. Q$ n- q' c  [1 K# |8 M  Q' F      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

% E5 t0 k! o' l# [1 e3 L! N: R( T RegSetValueEx(hKey,
+ q5 N" ~* o" n4 E# X& o7 F. H      _T("FIL"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

RegSetValueEx(hKey,
     _T("UID"),
. Q* O- f+ Q' Z% {( K0 s      0,
% @5 D, h7 m1 D0 D' X      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
0 H  A- @: \- R- {( q! D" j      strlen((LPCTSTR)strUID)+1);//必须项
3 {+ u( l5 z% }

% y  H" F! Z7 } DWORD DriverId = (DWORD)25;
' Z  W3 p1 U9 c2 o; r9 `1 u RegSetValueEx(hKey,
    _T("DriverId"),
    0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项

' f. H2 k* y. T9 B3 G
+ w/ c0 q9 l: J) R4 ~5 K! X DWORD SafeTrans = (DWORD)0;
! C. `( D1 {+ \' ] RegSetValueEx(hKey,
, }' h6 q) N6 q7 Q7 |      _T("SafeTransactions"),
     0,
' E9 s4 q/ t- }8 U5 M      REG_DWORD,
& H9 F! l) B' c1 E+ Y. x8 y2 D9 k      (const BYTE *)(&SafeTrans),
, _3 o3 P9 h- s& d' j      sizeof(DWORD));//可选项
}

( g0 n9 u- L8 C, a1 V, h) k

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