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

天云上人

  主要代码如下：
6 X) x2 v7 _8 O2 u
  g7 j6 t8 D: n/ g3 avoid RegisterDBSource(CString strDSName, CString strDBPath)
: M; l. ^5 \0 c  ^: z3 R{
0 i$ f! h! k: v( W% O HKEY hKey;
6 `$ t, z" B7 t  ^1 p: `) D    DWORD nLabel;

5 {1 b' X6 u1 x! f, m CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
' \- Z6 S# P- A4 k& r" x
if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

$ y2 @( y  R7 @$ y CString strDataSource = strBaseKey + _T("\\") + strDSName;

CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
: t  M1 k% i# z CString strFIL = _T("Ms Access;");
2 p6 d( X, }9 X CString strUID = _T("");
% B% [6 P# o& C( w! |* m


RegCreateKeyEx(HKEY_CURRENT_USER,
' G' g" A& V  [, z              strMid,
       0,
    NULL,
    REG_OPTION_NON_VOLATILE,
& B6 e. d& Y( [" L- j! q3 a     KEY_ALL_ACCESS,
' n* U+ T9 S, O3 V3 ^2 h     NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄

- |& Z; N. B7 ^- T+ a6 t2 D RegSetValueEx(hKey,
, U1 L) Z& |' B2 ~8 R; X7 ]+ E      strDSName,
     0,
7 f6 A+ |) B! w7 y1 K      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
4 }. I, r0 ^' ]* O
. |9 d- f3 O" V9 s# k9 `1 m  u7 L9 R RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
; F( C- N& {% v$ E+ c+ x: B    0,
' R0 T6 r0 ]4 `( _8 K; H* I    NULL,
( u' w1 Z$ ?7 X    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
! G; A2 f8 I/ A4 H% q; Q4 ]5 ?    &hKey,
' M. E  j2 ]7 V$ M    &nLabel );//创建数据源子键

RegSetValueEx(hKey,
     _T("DBQ"),
     0,
4 [% t! I8 m: f$ y( m6 }$ z      REG_SZ,
% S8 B4 D4 h% v      (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
, R! c# J  {! l
  G  x& x; w$ r7 ]* V7 p  RegSetValueEx(hKey,
           _T("Driver"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
; @0 Z7 d' D6 p& T' D: Q, U, F" c( R      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
& C/ f7 @7 b" z' @7 n: T# L      _T("FIL"),
7 e; u( _: W( M8 a" i' L/ e      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
( G8 P" j6 M- U) b: n      strlen((LPCTSTR)strFIL)+1);//表的类型
9 E9 O3 h* c2 u
$ O0 y* t' F; j# t0 b* F RegSetValueEx(hKey,
     _T("UID"),
     0,
: e* F9 p9 r# G' t      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项

  g' F+ w7 M+ e: W- M  ?6 _
DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
# Y2 P4 C# i2 A( g% N     0,
    REG_DWORD,
. t/ ^3 _; C( i0 w     (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项

  x9 b+ U0 Q. F& Z
8 R+ X( \2 ]. {7 d& _1 o) Q7 m* q DWORD SafeTrans = (DWORD)0;
  V+ |  a, z& U+ v! I RegSetValueEx(hKey,
0 F$ `9 F3 |. _  R4 V      _T("SafeTransactions"),
  l$ [1 X: q/ K- U  ^; O7 t      0,
8 w& b! s3 q/ c1 ^! v* u      REG_DWORD,
, U6 c. J) B3 b: Z9 _* C      (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}
- [- {& @2 \; \2 J0 [" `
7 d% }' x4 G' h; d
# b1 N9 r% I' D* }
5 E5 f( W/ ]' X1 ^8 s3 b调试环境：WINDOWS2000 + VC6.0 + VSP5.0