动态配置ODBC数据源

http://www.rdxx.com 06年07月21日 19:10 天极网我要投稿
关键词：数据源 ,动态 ,ODBC ,配置 ,数据
∩衔奈颐翘致哿巳绾卧贠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″=″MicrosoftAccess 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为例说明实现方法。
为便于说明，假设主窗体名称为Form1,通过一命令钮Button1注册ODBC数据源。具体根据读者需要自行设定。
procedure TForm1.Button1Click(Sender: TObject);varI : Integer;
J : double;
RegF: TextFile;
SysDir: PChar;
AppPath, Params, Path, DbPath: string;begin
try
//生成注册用的批处理文件共4页  第1页 第2页 第3页 第4页