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

天云上人

  主要代码如下：

void RegisterDBSource(CString strDSName, CString strDBPath)
1 z6 F) @" C" m{
8 Q1 Y+ J& r$ t0 d" ?/ U HKEY hKey;
6 k$ J1 V9 v/ x) D" c: S  v    DWORD nLabel;

CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
* C; |. T. v! K4 E  s CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
  g  r, g6 u4 d- `" _
if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;
, ]6 n1 c8 v3 B) t5 T3 _: h) ^! S
; V: j3 I0 P7 K' g" X8 L: D CString strMdb = _T("Microsoft Access Driver (*.mdb)");
' q+ D7 z/ W& O( n3 l CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
6 h6 v4 p  y7 l& g5 a* M) S6 q) t CString strUID = _T("");

9 b8 x' N7 y, q- r

" \9 Z5 r- U+ P3 @ RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
& f2 [7 G' E5 L/ }) E     NULL,
9 {3 G/ W" m& }2 z" Y( a     REG_OPTION_NON_VOLATILE,
9 F, ^5 I( X" a) _     KEY_ALL_ACCESS,
    NULL,
7 a% b$ @; I, V! J( B. s     &hKey,
    &nLabel );//获取数据源键值句柄

1 n0 O" u+ g% J! T# h- r) \ RegSetValueEx(hKey,
) y3 r$ ~0 O- K/ y! ^9 i4 a" u. N      strDSName,
     0,
' {% b- f  q! g6 b8 T# P      REG_SZ,
, v" e5 N9 p1 e3 w0 m- u0 u  Y      (const unsigned char *)((LPCTSTR)strMdb),
) e0 h6 E4 U9 S      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
1 B/ n9 C. g% U4 O+ |4 k
3 A4 A2 _9 f: e* ~1 l9 @# v, i3 ^ RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
   0,
   NULL,
1 a) L' \6 W- V1 D    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
: h8 X3 J, y6 Z    NULL,
* L3 ~7 P* ~9 R    &hKey,
   &nLabel );//创建数据源子键

RegSetValueEx(hKey,
1 ?5 Q4 p; v; k; s2 X+ z1 y* }      _T("DBQ"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
) C% I) q, _$ \8 {/ w, i      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
( F" g; H1 m; ]) S
  RegSetValueEx(hKey,
3 D$ A# L  _8 J# H( o; i! r            _T("Driver"),
1 O% z0 q2 t( w7 z- v# M" F      0,
     REG_SZ,
1 N: M; }, k: M+ _      (const unsigned char *)((LPCTSTR)strDBDriver),
) a+ f: w* Q- s% s. J/ X( [* x% h) D      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
: i, R1 Y9 U# w5 k" V
( p8 ?1 Q* D, K5 @* ~* ^ RegSetValueEx(hKey,
     _T("FIL"),
     0,
% v, R' x- @4 g# V      REG_SZ,
0 f+ B, j; w* j' e: ]9 N* @      (const unsigned char *)((LPCTSTR)strFIL),
6 _% Z  H1 @% u* c- z% h. \# @6 J      strlen((LPCTSTR)strFIL)+1);//表的类型
" n5 K5 P: S: Y; r+ \$ \( x* t
% u- v- H$ f0 G RegSetValueEx(hKey,
     _T("UID"),
# B2 M1 n( {. [9 f3 {      0,
     REG_SZ,
# ^: K8 `/ R) r- v2 {- E) [      (const unsigned char *)((LPCTSTR)strUID),
' c& U  W3 z( C% ~      strlen((LPCTSTR)strUID)+1);//必须项
4 g" y. C3 {' @7 }

DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
/ i$ x+ s2 o/ X6 s: D     _T("DriverId"),
( W4 a1 }9 L# }, Y     0,
* a/ ~* T2 F$ E( Q' ?6 }1 @     REG_DWORD,
, V4 \6 ~) s, U5 D+ {: A     (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项
2 }1 [2 Z+ r. q; s/ C

DWORD SafeTrans = (DWORD)0;
: w, u+ Q+ x% s6 M4 e- E# V RegSetValueEx(hKey,
/ @& y+ f; Q" ^' ^; q; ?# E      _T("SafeTransactions"),
# o: x; K. c8 W1 n      0,
- S4 @5 J7 M, ]* E      REG_DWORD,
3 `7 z/ J+ I  P* @# Z      (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
& a+ d$ K' I# |}
  |: X; r5 Q$ y8 C


$ t3 f4 L4 [3 V- O调试环境：WINDOWS2000 + VC6.0 + VSP5.0