动态注册ODBC数据源的通用方法
#1 一、引言
ODBC是微软于1993年推出的开放性数据库接口标准，它为不同数据库产品的访问和操作提供了一个统一的解决方案。作为一个开放标准，Windows平台下的许多数据库开发工具都支持通过ODBC方式来存取数据，如：Visual C＋＋，PowerBuiler等。其它，如Borland的Delphi虽然通过BDE（Borland Database Engine）方式来访问数据，但ODBC配置的数据源，在BDE中也可以正确识别和使用。
一般，ODBC数据源的配置是通过Windows控制面板中ODBC管理器手工设置完成的，这一点给程序安装人员和用户都带来了许多不便。对用户来说，程序安装应该越简单越好。因此，对程序就提出了能够根据安装环境，自动注册所需ODBC数据源的要求。虽然，关于动态注册ODBC数据源的实现方法已屡见不鲜，但大多只适用于某种确定的开发工具和环境，且实现复杂，操作不便。经笔者试验，找到了一条简单有效而通用的配置ODBC数据源的方法。
实现原理： 通过导出开发环境下注册表中ODBC数据源信息到一注册表文件中，将所导出内容作为应用程序中的字符串常量进行保存。在程序运行时，如果发现ODBC数据源未正确注册，则根据环境信息和该字符串常量动态确定正确的注册表文件内容，并写入一临时注册表文件中；利用批处理文件将该文件中ODBC数据源信息导入系统注册表中，从而实现ODBC数据源的动态注册。
#1 二、操作步骤
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″
″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为例说明实现方法。
为便于说明，假设主窗体名称为Form1，通过一命令钮Button1注册ODBC数据源。具体根据读者需要自行设定。
procedure TForm1.Button1Click（Sender： TObject）；
var
I ：Integer；
J ：double；
RegF ：TextFile；
SysDir： PChar；
AppPath， Params， Path， DbPath： string；
begin
try
//生成注册用的批处理文件
Params ：= ′Regedit/s tmp.reg′； //批处理文件内容
AppPath ：= ExtractFilePath（Application.ExeName）； //取得应用程序当前路径
AssignFile（RegF， AppPath ＋ ′Reg.Bat′）； //指定批处理文件路径和名称
ReWrite（RegF）； //创建和打开指定的文本文件
WriteLn（RegF， Params）； //将注册命令批处理内容写入文件
CloseFile（RegF）；
//生成注册表文件
GetMem（SysDir， 255）；
GetSystemDirectory（SysDir， 255）； //取得Windows系统目录
Path ：= String（SysDir）；
Path ：= InsertSplash（Path）； //将类似C：\WINDOWS\SYSTEM变为C：\\WINDOWS\\SYSTEM
Delete（AppPath， Length（AppPath）， 1）； //将字符串尾部′\′字符删除
DbPath ：= InsertSplash（AppPath）； //取得数据库存放路径
Params ：= Format（OdbcStr， [Path， DbPath]）；
AssignFile（RegF， AppPath ＋ ′Tmp.Reg′）；
ReWrite（RegF）；
WriteLn（RegF， Params）；
CloseFile（RegF）；
//通过Api函数执行reg.bat， Uses中加入对ShellApi的引用
If ShellExeCute（Application.Handle， ′Open′，′Reg.bat′， ′′， PChar（AppPath）， SW_HIDE） <= 32
then
Showmessage（′导入注册表文件信息失败′）；
finally
FreeMem（SysDir）；
end；
end；
上述代码调用了一字符串处理函数InsertSplash，用于将路径字符串中所有的′\′处理为′\\′；这样做是必需的，否则，上述注册信息DRIVER和DBQ项无法正确注册。InsertSplash函数代码如下：
function InsertSplash（AStr： string）： string； //需要在单元公有部分进行函数声明
var
I ： Integer；
begin
For I ：= 1 to Length（AStr） do
case AStr[I] = ′\′ of
True ： Result ：= Result ＋ ′\\′；
False： Result ：= Result ＋ AStr[I]；
end；
end；
#1 三、结束语
通过上述操作可以看出，实现ODBC数据源的动态注册并没有通过Delphi特有的功能去完成，而只是通过文件读写功能，根据具体安装环境，生成ODBC数据源注册信息和批处理文件，以完成ODBC数据源的注册。这种实现方法不依赖于某种特定的开发工具，不需要通过手工进行ODBC数据源的配置，具有通用性强和操作简单的特点。而且，用上述同样的方法，读者也可编写能够注册其它类型数据源的程序，甚至，写成ODBC注册动态连接库，以利于程序复用。