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

天云上人

  主要代码如下：
6 u5 ^# W! O( q/ ~! J) s8 Y' W
& h- f- p; \: B  c0 Ivoid RegisterDBSource(CString strDSName, CString strDBPath)
3 k% W+ _) L" @) F{
' \8 N; v: E2 C' S# v" Q HKEY hKey;
   DWORD nLabel;

5 _4 j$ L1 Y% i/ J CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
% M7 H1 P1 |1 z8 P2 T+ Y CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
3 r* h0 v9 k7 Y9 W; s
if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

8 {* i4 c3 B# E5 O* o' y3 g! } CString strDataSource = strBaseKey + _T("\\") + strDSName;
3 o# f' @& M1 Z1 Y. {
CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
5 ], r9 m# G6 a' j# S2 j# g7 C7 U CString strFIL = _T("Ms Access;");
- f6 `& q+ {- X/ A9 W; F CString strUID = _T("");
2 _: q, p5 x- h- n9 i0 v* g7 n; i
5 _; ^8 D* d& H7 v* D
0 ?+ Y  C2 ?$ A. U
RegCreateKeyEx(HKEY_CURRENT_USER,
# X6 {9 X2 @6 d4 s% m0 B  Q              strMid,
       0,
# c* K, [3 F5 U9 A  L     NULL,
: m" G" _/ {5 z1 O1 G/ X     REG_OPTION_NON_VOLATILE,
$ e$ Y  c/ L) I     KEY_ALL_ACCESS,
    NULL,
    &hKey,
    &nLabel );//获取数据源键值句柄
! C, S. E/ I$ ]$ b& d' Z
# P" _; g/ N' m- O1 Z RegSetValueEx(hKey,
, n* S; R+ ~8 _; a' K1 v7 G8 Q      strDSName,
- ^1 q/ }" Q- g! Q' a: _      0,
# x+ O/ s# F& D! P# d/ J      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
- T$ X1 ]! C& Z8 d" N      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
! y8 E# {# z! G) ?% o
RegCreateKeyEx(HKEY_CURRENT_USER,
8 y# i  ]# m# r: Y          strDataSource,
   0,
* p: y$ {# i- b+ q3 z    NULL,
   REG_OPTION_NON_VOLATILE,
   KEY_ALL_ACCESS,
; O! {0 T/ z0 J; L# b& z8 |' Y    NULL,
   &hKey,
2 l5 |5 M; |& k    &nLabel );//创建数据源子键
/ ^+ }$ Z0 T$ o, M: {. P3 K# K
& d" B6 g3 g  S6 m: A4 r* P RegSetValueEx(hKey,
     _T("DBQ"),
6 S0 ]; y& d" r" F3 v8 s" L      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
- Z& C# [' T7 |) A" Y2 u! u      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径

  RegSetValueEx(hKey,
  }4 v  P' k) K! b" L4 [            _T("Driver"),
& L3 C9 b% ~/ f      0,
% q5 M. @# I. k      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
4 j, h7 @* x, R) N& a      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

8 c( P4 I* x# l0 A: ?) M% N RegSetValueEx(hKey,
9 U9 v  z6 v7 j4 K- l1 _) I5 V      _T("FIL"),
     0,
( s% ~7 }8 J+ C+ \3 ^2 b2 ?3 T# d7 ~      REG_SZ,
- |1 Q& n) B& Q4 P) X1 r& {) j      (const unsigned char *)((LPCTSTR)strFIL),
8 T' U, s6 w% H5 T+ w      strlen((LPCTSTR)strFIL)+1);//表的类型
4 J% N6 j" M( J
/ Q# _5 P) t# B: b RegSetValueEx(hKey,
/ X, V( g% B) r      _T("UID"),
. U, z  H) e9 O* W/ l      0,
5 Z& }" f5 X9 n. i% T( |- J4 r      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项

3 \* k  ~$ J8 n8 ^
0 z. w. e% R' b9 C0 s$ [  T DWORD DriverId = (DWORD)25;
4 @6 G7 D5 d, J3 g. n. [, H3 G; g RegSetValueEx(hKey,
1 C1 r" n2 ~" u0 G     _T("DriverId"),
    0,
    REG_DWORD,
3 t) l& r1 y9 t     (const BYTE *)(&DriverId),
' m: d0 B2 F6 j( ?     sizeof(DWORD));//必须项
8 t  J9 s/ `7 R' r5 P2 B; m3 p& V

DWORD SafeTrans = (DWORD)0;
9 s3 G9 m: L* W2 L: I9 R RegSetValueEx(hKey,
     _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}

2 {5 i4 O5 K5 i( V

调试环境：WINDOWS2000 + VC6.0 + VSP5.0