微软Excel用ODBC轻松获得DB2数据

核心提示： 在使用 VC、 VB、 Delphi等高级语言编写数据库应用程序时，往往需要用户自己在控制面板中配置 ODBC数据源，微软Excel用ODBC轻松获得DB2数据(7)，对于一般用户而言，配置 ODBC数据源可能是一件比较困难的工作， strSourceDb是数据库存放路径， strDescription是数据源的描述

在使用 VC、 VB、 Delphi等高级语言编写数据库应用程序时，往往需要用户自己在控制面板中配置 ODBC数据源。对于一般用户而言，配置 ODBC数据源可能是一件比较困难的工作。而且，在实际应用中，用户往往要求在同一个应用程序中访问不同的数据源，因此采用一般的加载方法就有了无法克服的缺陷。为能在程序中完成这一工作，方便应用程序的使用，本文以 VC为开发环境介绍两种在应用程序中动态加载 ODBC系统数据源的方法。

  方法一：修改注册表

  设计思路

　　一般情况下，当用户在控制面板中配置好 ODBC数据源后， Windows系统便在注册表中加入了一些子键来存储用户的配置结果。当应用程序需要用到数据源时， Windows便会通知底层接口查阅注册表中该数据源的配置。如果用户删除了某个 ODBC数据源，那么也会在注册表中有所反应。如果配置的数据源是用户数据源， Windows系统便会修改注册表的 HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI子键；如果配置的数据源是系统数据源， Windows系统便会修改注册表的 HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.

　　INI主键。因此，我们可以在应用程序中使用 Windows API中的注册表编辑函数来完成 Windows所做的工作，这样就可以达到动态加载数据源的目的。具体实现对于不同类型的数据源，注册表的修改也各有不同，但基本上都要修改两个地方。一个是在 ODBC.INI子键下建立一个与数据源描述名同名的子键，并在该子键下建立与数据源配置相关的项；另一个是在 \ODBC.INI\ODBC Data Sources子键下建立一个新项以便告诉驱动程序管理器 ODBC数据源的类型。下面以配置一个 Microsoft Access数据源为例给出实现此功能的函数的代码。

/＊ strSourceName是要创建的数据源名， strSourceDb是数据库存放路径， strDescription是数据源的描述字符串。＊ /

BOOL CLoadOdbcDlg：： LoadDbSource(CString strSourceName,CString strSourceDb, CString strDescription)

{

//存放打开的注册表键

HKEY hKey;

DWORD dw;

//存放注册表 API函数执行的返回值

LONG lReturn;

//存放要打开的子键

CString strSubKey;

//检测是否安装了 MS Access ODBC driver:odbcjt32.dll

//获得 Windows系统目录

char sysDir[MAX_PATH];

char drvName[]=" \\odbcjt32.dll" ;

::GetSystemDirectory (sysDir,MAX_PATH);

strcat(sysDir,drvName);

CFileFind findFile;

if(!findFile.FindFile (sysDir))

{

AfxMessageBox("您的计算机系统中没有安装 MS Access的 ODBC驱动程序 odbcjt32.dll,您将无法加载该类数据源。 " ,MB_OK|MB_ICONSTOP);

return false;

}

strSubKey=" SOFTWARE\\ODBC\\ODBC.INI\\"＋ strSourceName;