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

天云上人

  主要代码如下：
, C# |' }" J& Y2 ?7 k2 X
void RegisterDBSource(CString strDSName, CString strDBPath)
{
8 w( b! K( z& Q+ H1 \( b HKEY hKey;
1 u4 I  [. s+ u& t8 ?. v  Z0 q    DWORD nLabel;
" c  B, W8 z/ M5 `
CString strBaseKey = _T("SOFTWARE\\ODBC\\ODBC.INI");
# c% P* {+ q- G CString strMid = strBaseKey + _T("\\ODBC Data Sources") ;

if(strDSName.IsEmpty()) return;
: o* P7 Q$ t3 x- F if(strDBPath.IsEmpty()) return;
% C, e: D% |" A
" J; Z  W: B( g9 \! g CString strDataSource = strBaseKey + _T("\\") + strDSName;

CString strMdb = _T("Microsoft Access Driver (*.mdb)");
0 E( D1 L5 Z3 j* D' { CString strDBDriver = _T("C:\\WINNT\\System32\\odbcjt32.dll");
CString strFIL = _T("Ms Access;");
CString strUID = _T("");

8 A9 W! A6 j6 \' h2 W! B

8 ~9 R4 o9 y$ `7 a( p RegCreateKeyEx(HKEY_CURRENT_USER,
             strMid,
       0,
    NULL,
    REG_OPTION_NON_VOLATILE,
* E6 h8 {5 e6 ^5 M" r' \     KEY_ALL_ACCESS,
    NULL,
    &hKey,
) ^( e* |5 G  n# P* x) T     &nLabel );//获取数据源键值句柄

) {; J8 F& h( n* ^ RegSetValueEx(hKey,
     strDSName,
# q$ M# g1 Y7 j8 [6 z      0,
4 s0 @) n. X- o' M6 V      REG_SZ,
     (const unsigned char *)((LPCTSTR)strMdb),
     strlen((LPCTSTR)strMdb)+1);///设置数据源类型
- A- D) E( T* G) Z0 L% t+ d
7 I5 ^: A1 ]" l' Z- H1 r; Y RegCreateKeyEx(HKEY_CURRENT_USER,
$ z, [" C2 k. a  V% o          strDataSource,
   0,
8 F5 [! V5 C0 |' y6 ?5 u    NULL,
& ]6 E, `3 Q9 ~+ g* u    REG_OPTION_NON_VOLATILE,
: u2 Z4 l. a1 a4 i, e    KEY_ALL_ACCESS,
2 l% [) l. }& X; U7 i$ Q    NULL,
   &hKey,
& a& e. w" M" k/ Q$ O2 ?5 z  g3 X3 m    &nLabel );//创建数据源子键
- c1 w8 Z5 A$ R, k  o+ y. C  K) t
3 G$ M/ m$ m- x4 G RegSetValueEx(hKey,
4 N; M/ n! q6 @/ E8 \" U$ g      _T("DBQ"),
7 b# e1 j  e8 P/ m$ q      0,
+ k8 D$ m1 O( u4 i8 P      REG_SZ,
     (const unsigned char *)((LPCTSTR)strDBPath),
8 v7 ]6 g4 B- T9 P- p+ R8 o      strlen((LPCTSTR)strDBPath)+1);//数据库表的全路径
# d6 ^0 l& i  C, ^" {
  RegSetValueEx(hKey,
3 l2 W4 W( y! k/ w            _T("Driver"),
     0,
     REG_SZ,
0 p' h) h  }- p# o3 y7 `      (const unsigned char *)((LPCTSTR)strDBDriver),
. e% X) u* v" t7 ^/ j      strlen((LPCTSTR)strDBDriver)+1);//ODBC驱动的全路径

RegSetValueEx(hKey,
     _T("FIL"),
     0,
     REG_SZ,
% X3 p1 y, V7 f1 v+ G8 o- Y/ a      (const unsigned char *)((LPCTSTR)strFIL),
5 v3 \0 U- O" T- O      strlen((LPCTSTR)strFIL)+1);//表的类型
3 v4 z$ F* Y7 p
: ^% Z' T' d% J8 v4 { RegSetValueEx(hKey,
# A/ {' f; W1 O& T6 z  ]      _T("UID"),
     0,
     REG_SZ,
+ H0 |1 X& h* w0 p8 Z  `* q: [      (const unsigned char *)((LPCTSTR)strUID),
     strlen((LPCTSTR)strUID)+1);//必须项
# B0 P- H4 H  ?8 j% o

2 S/ _# k2 V! r- U' ~ DWORD DriverId = (DWORD)25;
RegSetValueEx(hKey,
3 E, G, q# O9 l* f: z     _T("DriverId"),
) c2 e1 `# _) ?" D     0,
    REG_DWORD,
    (const BYTE *)(&DriverId),
* s% s! P- d* A; A1 S9 p  u! Q" u     sizeof(DWORD));//必须项


. B) o$ u1 Y2 g0 P, f0 J- R9 O DWORD SafeTrans = (DWORD)0;
, A+ F# s, H) @- Y1 |, I2 x RegSetValueEx(hKey,
0 h7 B' Q4 N. |7 q4 v0 R      _T("SafeTransactions"),
9 }. ]: O9 K2 K, X      0,
& a. K0 Z8 H7 P6 c4 a      REG_DWORD,
     (const BYTE *)(&SafeTrans),
     sizeof(DWORD));//可选项
}

3 \4 [4 n3 C" {% O
# u/ e; h' R" Q
1 O' b+ H- C. t9 ~6 o; b+ \调试环境：WINDOWS2000 + VC6.0 + VSP5.0