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

核心提示： ∩衔奈颐翘致哿巳绾卧贠DBC数据源里配置数据库，通过这种方式，微软Excel用ODBC轻松获得DB2数据(2)，应用程序的编写变的简单，只需要在应用程序里面指定已经配置好的数据源就可以连接，复制修改后的注册信息到程序单元中存储为一字符串常量，命名为OdbcStr，访问数据库，但是

　∩衔奈颐翘致哿巳绾卧贠DBC数据源里配置数据库，通过这种方式，应用程序的编写变的简单。只需要在应用程序里面指定已经配置好的数据源就可以连接，访问数据库。但是，这种方式也有一定的局限性，需要手工的在ODBC数据源里面配置。需要教会程序的使用者如何去配置，而且，如果一不小心更改了ODBC数据源的配置（也许是无意的）。就会造成连接数据库失败。这时候，程序的使用人员也许会一筹莫展，束手无策。

　　自然的，读者就会提出这样一个问题，能不能不通过ODBC数据源的配置，而在程序里面，根据程序安装的环境，自动的配置数据库连接。答案是肯定的，下面我们就介绍一种在程序中通过修改Window注册表的办法来动态的配置ODBC数据源的方法。

　　其实现的基本思想是这样的：先把开发环境下的注册表中的ODBC数据源信息导出到一个文件中，然后将导出的内容作为应用程序中的字符串常量进行保存。在程序运行的时候，检查ODBC数据源的注册情况，如果发现注册不正确，就根据环境的信息和字符串常量动态的确定注册表的内容，写如一个临时的注册表文件中。用批处理文件将该临时文件中的ODBC数据源信息导入到系统注册表，从而实现了ODBC数据源的动态注册。

　　操作步骤
　　1．运行注册表编辑器程序（Regedit.exe）。

　　2．从注册表项\HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources下导出数据源名称信息到Reg1.reg文件中。这个表项下面存放的是用户定义的数据源，如果需要系统数据源信息，则可导出HKEY_Local_Machine\Software\ODBC.INI\ODBC Data Sources到注册文件中。

　　3．导出要注册的数据源名称的具体连接参数信息到db2.reg中。在此，以导出名称为“PostMdb”的数据为例，具体路径: \HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb。

　　4．用文本编辑器如(NotePad.exe)打开上述db1.reg文件，保留数据源名称为PostMdb的行；并将db2.reg文件内容与当前db1.reg内容合并。假设修改后“PostMdb”数据源注册信息如下：

　　REGEDIT4

　　[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources]

　　″PostMdb″=″Microsoft Access Driver (＊.mdb)″

　　[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb]

　　″Driver″=″C:\\WINDOWS\\SYSTEM\\ODBCJT32.DLL″

　　″DBQ″=″c:\\My Documents\\db1.mdb? r>
　　″Description″=″Post Card Mis Database″

　　″DriverId″=dword:00000019

　　″FIL″=″MS Access;″

　　″SafeTransactions″=dword:00000000

　　″UID″=″″

　　[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb\Engines]

　　[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\PostMdb\Engines\Jet]

　　″ImplicitCommitSync″=″″

　　″MaxBufferSize″=dword:00000800

　　″PageTimeout″=dword:00000005

　　″Threads″=dword:00000003

　　″UserCommitSync″=″Yes″5．动态注册ODBC数据源的实现从上述注册信息可以看出，对于特定的数据源来说，实际上要动态确定的只是“Driver”和“DBQ”两项内容。将“Driver”=“C:\\WINDOWS\\SYSTEM\\ODBCJT32.DLL”修改为“Driver”=“％s\\ODBCJT32.DLL”，将“DBQ”=“c:\\My Documents\\db1.mdb”修改为“DBQ”=“％s\\db1.mdb”。复制修改后的注册信息到程序单元中存储为一字符串常量，命名为OdbcStr。以下以Delphi为例说明实现方法。