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

天云上人

  主要代码如下：
3 Q" m. C8 U* }+ E! w+ l  S, ]- q
void RegisterDBSource(CString strDSName, CString strDBPath)
{
. w7 y, h1 d* E: t  P, m HKEY hKey;
   DWORD nLabel;

" k+ @1 q" i& g) Q CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;
! n- D4 c7 p2 w3 x8 d( x+ K
if(strDSName.IsEmpty()) return;
% T# T6 n2 {- F: O% O8 i& b" X- E if(strDBPath.IsEmpty()) return;
. C! s( q" m7 F1 e& h
$ O# N7 b9 e$ q9 J$ l) K( Q* T3 P CString strDataSource = strBaseKey + _T("\\") + strDSName;

. v$ v# b3 ?0 s# f  f" g  o CString strMdb = _T("Microsoft Access Driver (*.mdb)");
CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
# l  @0 q5 y; e5 ?4 F" D- D CString strFIL = _T("Ms Access;");
# h$ M1 P6 a# J3 w1 W CString strUID = _T("");
  i$ s( @: @) y8 C( |# P
% O, O3 J9 q9 e! `
0 Z) }; z/ A' a6 P8 b% v
. E+ t' u% N+ l1 X: I RegCreateKeyEx(HKEY_CURRENT_USER,
1 E  k" s# m6 A! P              strMid,
  A* y0 e& ?; u# ^& {- U) J        0,
: `- E% O  B0 _" l     NULL,
    REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
    NULL,
9 x8 [" Y  ~  k     &hKey,
0 h- z5 M% X2 Q     &nLabel );//获取数据源键值句柄
$ A/ W) p$ [% v3 W9 g* u$ s* T
; N2 ]# t# k: Y7 p( m) f% A RegSetValueEx(hKey,
     strDSName,
     0,
) \* A0 L, |4 M8 s( u      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型

RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
# G2 H& U9 t9 }9 C2 o! p    0,
* y% q8 p5 X$ Y2 V$ F( K4 S3 q" J8 j0 p    NULL,
5 z  Z9 x3 E9 o6 w    REG_OPTION_NON_VOLATILE,
& q8 ~+ _# E' {/ Q" p' O) a    KEY_ALL_ACCESS,
   NULL,
   &hKey,
) I7 Q* D+ P* g$ f8 f8 @; \    &nLabel );//创建数据源子键

- R0 z- M/ n. r. S; [8 Q1 _ RegSetValueEx(hKey,
     _T("DBQ"),
     0,
! T- ~/ k& F( ~& k2 a8 B$ B      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
2 n0 Y: a: _5 G" Q6 d+ ]      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
4 \; G6 ~: V/ S+ ]2 q# ]: @; N- m* O
  RegSetValueEx(hKey,
           _T("Driver"),
     0,
+ b8 r4 @: U' c" g+ G, @0 V# Y      REG_SZ,
6 D# i8 @* X0 l      (const unsigned char *)((LPCTSTR)strDBDriver),
     strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

; x& x9 }; c* f& d: Q2 d RegSetValueEx(hKey,
5 D; m0 V7 x% G      _T("FIL"),
     0,
     REG_SZ,
; r; H- P2 V+ R2 g4 y- a      (const unsigned char *)((LPCTSTR)strFIL),
# V2 w9 C, b+ [      strlen((LPCTSTR)strFIL)+1);//表的类型
) Z9 g3 w9 B+ }% M
. ], R# Z, E1 O3 g4 J$ u RegSetValueEx(hKey,
     _T("UID"),
6 D0 A. R* f/ _& O' n! S4 {      0,
( d/ `+ B9 S+ X* E8 [1 i9 e# P; U      REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
  w% E" F% @' [; P5 p+ l/ A      strlen((LPCTSTR)strUID)+1);//必须项
1 g  Z% Q2 ]% }4 B% B3 j+ X0 F
9 {. {& @3 p8 q* \5 M
! E, m% Q; V1 [5 }  @ DWORD DriverId = (DWORD)25;
2 _8 r0 w+ n+ G3 Q6 m7 C" M RegSetValueEx(hKey,
    _T("DriverId"),
6 r# z1 u8 h6 y, _8 b* W2 N' ~     0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
& k# ~4 g$ B& z& N5 D     sizeof(DWORD));//必须项
; g  ]5 H" ~3 [3 V
: O2 v1 j; [6 [; Y* v4 H% k
5 b! [8 T# l. \. c! A0 O DWORD SafeTrans = (DWORD)0;
RegSetValueEx(hKey,
     _T("SafeTransactions"),
     0,
     REG_DWORD,
     (const BYTE *)(&SafeTrans),
0 h0 h6 i' E7 P+ {; V$ {% v1 w      sizeof(DWORD));//可选项
2 ^# z5 m' f- C. u- x}

& P2 x  b1 m  o1 i( S4 w% v

3 W7 e! Y% C, B- W! v; Y调试环境：WINDOWS2000 + VC6.0 + VSP5.0