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

天云上人

  主要代码如下：
8 ]5 C- v5 N5 `$ z. f
6 C- D  x4 J% d. Qvoid RegisterDBSource(CString strDSName, CString strDBPath)
{
HKEY hKey;
* a" e4 j, L9 ~    DWORD nLabel;

2 [7 X* i- Z3 e+ l! a CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
! c; H6 p8 V! j+ S. E! E CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
8 F" V& V+ o$ J0 Z3 V  K- F
* C3 D6 M, N& t' V9 m( [% h, q if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;
8 f: n' T  z- {; t
CString strDataSource = strBaseKey + _T("\\") + strDSName;

CString strMdb = _T("Microsoft Access Driver (*.mdb)");
3 Q+ `% D+ `# x! v' _ CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
CString strUID = _T("");

6 G' A8 G1 h3 R$ S

RegCreateKeyEx(HKEY_CURRENT_USER,
1 W1 N8 A6 ^9 U              strMid,
       0,
    NULL,
, J. g! _! R8 e: ]' ?/ _. s     REG_OPTION_NON_VOLATILE,
% V$ ^( u8 ~2 j0 k$ O/ {/ X     KEY_ALL_ACCESS,
    NULL,
    &hKey,
- |. p4 W/ s' _) j# ~1 v, h- I9 L$ C/ e     &nLabel );//获取数据源键值句柄

RegSetValueEx(hKey,
- T1 v/ Z; M- S; o  }      strDSName,
% e8 L: `4 V: {; B% g! [5 y      0,
% y: s6 t1 ]  Z/ g/ a1 w      REG_SZ,
5 r- B) z5 B7 |  l' o0 c0 h$ j3 p* U      (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
; _. G1 Q. x8 j* }. P9 X% Q! z
RegCreateKeyEx(HKEY_CURRENT_USER,
- C2 W/ g! F$ `# y- V0 _          strDataSource,
  y$ K7 W- ?/ s+ y8 R# |( {$ }    0,
) a9 S4 W6 j, a3 M2 J    NULL,
* I" z1 \% \0 s0 @# y# {1 r; B6 v    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
' H) y( A6 n8 j3 X    NULL,
' x, _6 p: ^" P8 S9 A+ a    &hKey,
4 `- t# `( \$ H/ A/ t( i1 ^, c    &nLabel );//创建数据源子键

RegSetValueEx(hKey,
     _T("DBQ"),
     0,
2 R9 _: W4 [( c) ^      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
# {% J0 H- b. S      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

$ `  Y+ {: A+ X% _, u  RegSetValueEx(hKey,
           _T("Driver"),
     0,
; e. C$ s, B/ M% N6 A      REG_SZ,
" y% W7 l- N9 q      (const unsigned char *)((LPCTSTR)strDBDriver),
" b( p0 {4 z6 ]  Z/ s3 _: @1 R      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
1 @$ i! r( i) q
5 x0 q1 }# I% X' h7 E5 \" |. x RegSetValueEx(hKey,
3 h, u5 @: {: ^8 u' H      _T("FIL"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

7 P( y0 }1 ^5 p: @ RegSetValueEx(hKey,
: D; s0 Q/ H( w      _T("UID"),
# Z& u: D. J3 e      0,
     REG_SZ,
: C: I2 m# q  B      (const unsigned char *)((LPCTSTR)strUID),
- _) Y/ ^+ z0 H' U: F      strlen((LPCTSTR)strUID)+1);//必须项


/ ^8 E6 Y8 n' Q$ z( G) O; p& V DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
' p! E) ]% E/ X2 W     _T("DriverId"),
    0,
% R8 t8 Y  K) d0 z# l) E1 k     REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项
/ |: U: V( U$ J4 L  u- ?5 X# e
( o4 L  w+ ^7 [, l6 M$ L2 s5 i% s
$ N6 n. S: w* X' J) P1 O DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
% @( }! |4 r6 b+ P      0,
- U$ e% W  c1 f! K      REG_DWORD,
     (const BYTE *)(&SafeTrans),
( }/ U& S% C7 a# t& A1 ^      sizeof(DWORD));//可选项
}
8 `- k6 q- ]) ?) n6 M7 }# t
) C; q& \. ^! C
# q- {3 @# D: \, K% m: S
调试环境：WINDOWS2000 + VC6.0 + VSP5.0