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

天云上人

  主要代码如下：

( B' a5 M' W$ K% [/ J% Hvoid RegisterDBSource(CString strDSName, CString strDBPath)
; J4 Y' T$ Q7 t! c7 x0 n& P! v5 M{
HKEY hKey;
   DWORD nLabel;
$ Y8 Z% Z! n; k! g
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
; Y8 h7 e- m  q" w6 h CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

. _1 ]3 @/ `% c  h0 M( Y' r if(strDSName.IsEmpty()) return;
7 o3 {$ ~6 {1 a5 N$ l if(strDBPath.IsEmpty()) return;

CString strDataSource = strBaseKey + _T("\\") + strDSName;
& p# m6 _! |* F& P$ i3 y
- c; ]: o% c8 L& H3 Y, b CString strMdb = _T("Microsoft Access Driver (*.mdb)");
# Z  }: P4 K9 J' U. f CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
CString strUID = _T("");


! h( |* n& ]. X
  U' e* M8 e' A7 R6 N RegCreateKeyEx(HKEY_CURRENT_USER,
. e. _6 f  N' B1 P" \4 y8 Y              strMid,
       0,
    NULL,
, C9 v4 r: f4 b4 o# H/ l" @, f     REG_OPTION_NON_VOLATILE,
" R1 b5 r2 D. R* L6 ~* v     KEY_ALL_ACCESS,
& w: k7 R& c; B  m  q     NULL,
    &hKey,
; w( @  u0 a- ?* g     &nLabel );//获取数据源键值句柄
: f# h% p4 l4 c7 ?; Y
RegSetValueEx(hKey,
     strDSName,
6 F) I' c  @, B) }0 M      0,
2 c3 l3 D2 K& u8 ^5 i      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
* b4 a# I1 h- M* W3 a9 W      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
0 ~, B3 i' D1 I4 c/ o7 O
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
: Y$ Y" v& g+ K/ u) @! h# f    0,
0 {/ o0 k% O1 z7 d% f) H$ i5 [    NULL,
: H0 y0 T! ~: V) w0 X    REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
   NULL,
   &hKey,
   &nLabel );//创建数据源子键

RegSetValueEx(hKey,
     _T("DBQ"),
8 y( V; G  z! }0 S      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
     strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
9 d; z, Q7 z8 K4 g2 j0 y
- Q& `! S$ n* u" N( Y( ~  RegSetValueEx(hKey,
           _T("Driver"),
     0,
% K$ _- M2 R+ o' q      REG_SZ,
3 d4 x8 G( c4 g$ z      (const unsigned char *)((LPCTSTR)strDBDriver),
  l" E* z1 Q7 l7 s5 ]      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
) T3 L& O* w, s
RegSetValueEx(hKey,
     _T("FIL"),
     0,
" u: f% n4 `& |- j" J5 q      REG_SZ,
     (const unsigned char *)((LPCTSTR)strFIL),
' V: G: c6 ?" w- _: U      strlen((LPCTSTR)strFIL)+1);//表的类型

RegSetValueEx(hKey,
     _T("UID"),
# u0 d. f. [% l7 B" {      0,
; V! R' u6 \4 s: L* e      REG_SZ,
! r+ j; Y+ x/ Y, A% f+ N, s      (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
$ W7 H7 B; _5 I1 x0 \) z, w

- j- V$ f' G( r3 X DWORD DriverId = (DWORD)25;
; L( {  v0 \4 {! u( y RegSetValueEx(hKey,
+ R+ `4 e, E; x( w7 W0 ?) @     _T("DriverId"),
: M9 b1 k4 M: }+ D' y) o     0,
  u4 i6 D- D6 Q7 d1 a+ e     REG_DWORD,
% r4 k) d& u/ p. c8 {! ?$ H3 ]     (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项


DWORD SafeTrans = (DWORD)0;
* W: k( N- |8 ^& o RegSetValueEx(hKey,
     _T("SafeTransactions"),
     0,
     REG_DWORD,
8 H1 D0 T" t+ A0 x1 J      (const BYTE *)(&SafeTrans),
# t, t: R- H7 I1 Q# s, P& E      sizeof(DWORD));//可选项
9 o& b5 f+ `/ e# t+ b8 s}
- @& n1 F' t! v3 `7 d) W

# Y/ S$ q9 J* G" i
8 ^* w! O2 i8 _: H, x4 L1 J7 F调试环境：WINDOWS2000 + VC6.0 + VSP5.0