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

天云上人

  主要代码如下：
4 M3 P/ ^0 I' M, Q$ G) E# W  J0 y
8 o# F+ \& E2 a0 J8 `% ivoid RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
   DWORD nLabel;
, H# ?: `' Q  I0 q7 {8 E; y5 N- }5 s
2 m, Q' V3 @+ a' {9 h CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

2 [2 G) e  Z+ E1 G' ?: v if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;
" E! }1 L7 y4 p, O
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
: h4 R0 P# p; h CString strFIL = _T("Ms Access;");
" D9 g1 k4 S) d) }  n CString strUID = _T("");


4 D7 {) a7 j* i& E6 s' z3 @
) J1 c0 n0 }  v( X RegCreateKeyEx(HKEY_CURRENT_USER,
% }- m7 O5 i$ f6 F              strMid,
. d9 X9 k3 V' Y% j1 ^' {8 \  M5 E/ Z        0,
    NULL,
    REG_OPTION_NON_VOLATILE,
( L( u) f3 d4 }& G     KEY_ALL_ACCESS,
    NULL,
9 q: g5 u8 |7 P& \     &hKey,
' o" c% f$ O% |6 I( M1 R3 p% T     &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
     strDSName,
     0,
  V1 N- d8 e5 k+ [8 s3 T7 s% w      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
+ Z3 g9 g6 k! K/ V3 E/ [4 B      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
8 ~5 |* {% v" J# {
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
. P& P% q8 q7 g" o+ ^$ L    0,
) z6 o* _/ ~' c    NULL,
   REG_OPTION_NON_VOLATILE,
! y( j3 w# j) V0 V/ D    KEY_ALL_ACCESS,
   NULL,
7 V4 n! w! l0 D% p  J- S0 `    &hKey,
( _8 o1 r- g9 e9 V9 h" B    &nLabel );//创建数据源子键

* A5 ?# V' F, z7 X8 d RegSetValueEx(hKey,
     _T("DBQ"),
' H! V; p3 R' Y( h1 r      0,
  s# K4 _% v" f* _, u4 Z( W- b      REG_SZ,
1 N1 |2 D5 g' |4 g      (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

! l5 a% F) Z6 [6 n/ U  RegSetValueEx(hKey,
1 c8 V2 ]7 ?+ ?) v' [* r, c            _T("Driver"),
" _* Y5 W, G3 r( k* E5 [4 |      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
' i( l+ ]5 T4 y' z5 P' R" c      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
     _T("FIL"),
% }( n# V+ ?5 L% ]" n$ T, g      0,
: W, ~0 Q# t  |8 t) p8 J9 x      REG_SZ,
+ W& G" t: B# M8 z; W7 M      (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

RegSetValueEx(hKey,
2 s9 m# E" s! L3 D$ s3 ^7 a2 Y) N      _T("UID"),
4 A: T* o, x8 n4 E' _& D      0,
5 }2 V' |2 r+ l      REG_SZ,
, |6 z& ~. ]. d( T      (const unsigned char *)((LPCTSTR)strUID),
; Z" g3 H. A5 q      strlen((LPCTSTR)strUID)+1);//必须项

$ I$ c  c- H, e& L; n0 i# k3 @
DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
    0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
% [3 v' V0 M8 R. ^) ^* H  [. T     sizeof(DWORD));//必须项


0 G; Q; M  w* w8 W7 Y% h* M DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
2 ~& I1 X6 S( C* ?      0,
3 D- Z) ]9 r  H0 G6 F      REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}
# g) k/ |* c: d$ H1 e! P& ]
) |0 L7 u. B/ n9 I+ ~' {; ^9 U

9 F7 E/ g' ~  T2 Z+ z3 F9 l; h调试环境：WINDOWS2000 + VC6.0 + VSP5.0