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

天云上人

  主要代码如下：
  l$ d+ P" @7 S2 X' [
void RegisterDBSource(CString strDSName, CString strDBPath)
! N6 p: j. e2 L, o9 A{
7 w. [9 d( o' c* f7 z HKEY hKey;
$ b% Q7 H4 F4 x( y5 ?9 A+ m" q) ~; ^    DWORD nLabel;

8 u% h0 _. \) `0 }8 J- b6 w CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
/ B& s; J; S. f CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
$ C7 m9 l/ O& W& D1 z5 h! d# V
if(strDSName.IsEmpty()) return;
& i1 t' N! X: e6 C if(strDBPath.IsEmpty()) return;

1 ~+ P, L  p# u  i/ w7 {9 _8 i5 U CString strDataSource = strBaseKey + _T("\\") + strDSName;

9 a2 Y' z" j  x. r+ v CString strMdb = _T("Microsoft Access Driver (*.mdb)");
  K! V2 J0 E0 L: e9 a( ~ CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
CString strUID = _T("");
0 Y1 Q+ j; Z7 E) Q- w, d  t, _7 f( ^

0 S: B% ~6 k2 S2 ^$ Z4 ]0 v4 J* o" q, I
RegCreateKeyEx(HKEY_CURRENT_USER,
2 ^2 b0 ]9 c2 ]$ x+ r. |              strMid,
       0,
0 A- l4 q- R2 V/ f0 e* z" i3 P     NULL,
- E- G: e2 T( \7 n/ Q7 i" c% i8 M     REG_OPTION_NON_VOLATILE,
% @, O: S, E* @0 W     KEY_ALL_ACCESS,
    NULL,
* O! x, u# k8 }. n1 {     &hKey,
    &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
" c; e1 x6 z* K9 P! _, k/ C      strDSName,
( N) }8 b+ e# I( Q      0,
+ w( P6 V- S$ B% g# B* Y      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
7 ~5 F# |* t+ L# H2 y- m      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
% E* `) \. x( |8 e
RegCreateKeyEx(HKEY_CURRENT_USER,
3 S3 G9 M8 F- R9 A- E& ~          strDataSource,
   0,
5 M! }3 r9 m8 G; k# n    NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
4 u8 t9 {* T9 l0 p    NULL,
   &hKey,
! _+ P6 T2 b) p7 g% W1 [& f. ^& |    &nLabel );//创建数据源子键
3 D2 E* G7 L- X, [
RegSetValueEx(hKey,
     _T("DBQ"),
9 U9 M; z- ]6 {2 X      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
  n: y- z# w, v3 K      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
( p6 x/ b2 t' u8 Z0 m
  RegSetValueEx(hKey,
           _T("Driver"),
     0,
     REG_SZ,
1 O- U+ T% L! f  g  F6 {( Y6 m      (const unsigned char *)((LPCTSTR)strDBDriver),
& `7 n4 w1 S" ?9 o  L5 ^      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
     _T("FIL"),
* p  s( G! q/ t, g& w      0,
$ b7 x. j% Y/ e" F, G2 \# p* z* K      REG_SZ,
; F6 t" J, r/ _+ ]+ p  K  R* k      (const unsigned char *)((LPCTSTR)strFIL),
/ k- a- ]. l  Q. ?      strlen((LPCTSTR)strFIL)+1);//表的类型
" j+ `. c5 O" S" H1 p  ]1 M, K
RegSetValueEx(hKey,
- G6 f. E  \: g+ t, A/ `      _T("UID"),
     0,
- s* Y, i  o4 `% v2 O* Z      REG_SZ,
+ F5 r' n# H( N5 i      (const unsigned char *)((LPCTSTR)strUID),
0 ?9 Y4 g" N) O+ W0 i      strlen((LPCTSTR)strUID)+1);//必须项

5 r6 r6 j% S% q( ^. b
DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
0 I; W7 c: Q7 F: F     _T("DriverId"),
    0,
3 t+ L8 D8 e( Y, F     REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项

  n" b- a8 Z# n/ d/ _- C" e
" K, \" P! j% A* f# V2 N% x DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
* X3 j/ W, ^2 ~1 _      0,
     REG_DWORD,
6 d% d! b$ `2 t, ]* b      (const BYTE *)(&SafeTrans),
4 v& C3 G) `0 s% T& E1 u; \      sizeof(DWORD));//可选项
. l& C/ C+ u+ X- \( l/ e- D}
9 [" I8 t" h% G, q" O& C! v
9 v% `! S* U; q2 T' p
" D- z& j* j8 P) I$ {+ m6 u
调试环境：WINDOWS2000 + VC6.0 + VSP5.0