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

天云上人

  主要代码如下：
% e; F# U2 `  D* e& h0 D0 M
void RegisterDBSource(CString strDSName, CString strDBPath)
+ U* V. P2 x& P/ W* X$ F{
HKEY hKey;
% ~( P7 e/ {) T9 v    DWORD nLabel;
7 `$ l5 V+ t# V! c- ]: f
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
if(strDBPath.IsEmpty()) return;

8 F! C3 B$ }2 o- A' @% y: f CString strDataSource = strBaseKey + _T("\\") + strDSName;

+ ?. s2 p2 H+ k8 Q3 N CString strMdb = _T("Microsoft Access Driver (*.mdb)");
% }9 |) Y- Q3 g8 O8 {( Q5 x CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
CString strUID = _T("");

3 x# a8 v& w) {" E1 Q
3 t' A# v* e; l
RegCreateKeyEx(HKEY_CURRENT_USER,
. F/ X/ G" G( S& h. q7 q: ]              strMid,
       0,
    NULL,
  r/ L) O/ H* p# x- O  m) Y     REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS,
) U4 e9 d3 I% H* v0 O     NULL,
7 P& a/ Z- \7 J0 p# @  Q/ d3 L) d     &hKey,
/ H: |( h: [8 m) `. D     &nLabel );//获取数据源键值句柄
/ h, b- N, B& {' }" H1 M0 Y
0 z% J/ N! @" p; H RegSetValueEx(hKey,
     strDSName,
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
+ I1 {: j9 E3 L      strlen((LPCTSTR)strMdb)+1);///设置数据源类型
0 T+ E( u9 b( @2 ^+ ^3 `) z
RegCreateKeyEx(HKEY_CURRENT_USER,
         strDataSource,
   0,
1 G5 a1 E$ r. E    NULL,
9 S. x& H, P' `' \# x1 p/ d' M    REG_OPTION_NON_VOLATILE,
6 E) b: o8 I6 P9 y& x1 [    KEY_ALL_ACCESS,
+ _" j: _2 ?$ k" X! u    NULL,
   &hKey,
1 |- a: ]. b! x- Z) g2 G% `- }    &nLabel );//创建数据源子键

9 N7 B! h6 d; J- W$ ~. M* b$ ]3 m* S' p RegSetValueEx(hKey,
7 F. ]" l: x; j/ o      _T("DBQ"),
$ h5 S( s( ~! W' m* w* s" R      0,
+ l' O% U# N1 P- n8 _6 w/ n! ]      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
4 t+ W& i) Z/ n  I* x/ n& W* s8 b      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
0 V( f3 }, ^6 ?7 o  r
, w* p8 L: b5 e0 ]9 i  RegSetValueEx(hKey,
8 y# c+ \1 d# B+ u            _T("Driver"),
     0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBDriver),
' p* |* m" l" n% T- Q6 Y      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径
- ~! w- d1 k% F- \
RegSetValueEx(hKey,
     _T("FIL"),
( ~" q# n1 E3 u8 Q. N7 y9 M3 a. v      0,
/ t/ u0 N3 b6 b* ?" ?5 O  [      REG_SZ,
4 n0 r% |2 K- u9 |& c% J+ b      (const unsigned char *)((LPCTSTR)strFIL),
     strlen((LPCTSTR)strFIL)+1);//表的类型

RegSetValueEx(hKey,
     _T("UID"),
" Z/ d) v! m2 D" M8 O      0,
     REG_SZ,
     (const unsigned char *)((LPCTSTR)strUID),
- u$ m( K9 L( m8 |      strlen((LPCTSTR)strUID)+1);//必须项
, @7 U; r: B: T" |

6 Z8 |. t0 ^( J" D2 @. P. J: j DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
    _T("DriverId"),
1 T. C  X6 z4 i9 d$ ~     0,
$ {# r' B' n/ B     REG_DWORD,
    (const BYTE *)(&DriverId),
    sizeof(DWORD));//必须项
7 H' F" ~9 S# i% f: {9 V% o

) p. c1 q! O% [- @ DWORD SafeTrans = (DWORD)0;
& s& {- d9 [) o5 O$ R RegSetValueEx(hKey,
" P7 E% L+ D. H      _T("SafeTransactions"),
5 C1 }! n# x' P, q. b1 H; I  c      0,
     REG_DWORD,
$ f- ]& h4 k! u1 ~; d      (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}

$ S3 [! n( T$ i1 @# d

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