用IS5.0将数据库的DSN自动添加ODBC中

来源：作者：出处：巧巧读书 2006-11-03 进入讨论组

安装程序自动将数据库DSN添加到ODBC中一般通过在注册表中添加
响应信息完成，分析以下注册表的相关内容。运行regedit可以观
察到注册表中层次关系如下:
HKEY_LOCAL_MACHINE
SOFTWARE

            ODBC
                ODBC.INI
                    C07
----在ODBC.INI下加入DSN的信息即可。
在此介绍一个例子程序，以供参考。
----本例子用目前流行的安装工具installshield 5.0
完成，数据库为Sybase SQL any Where,5.5；
应用程序开发工具为：Powerbuilder 6.5。
此方法已用到诸多程序中,由于此方法属于Windows
中ODBC和注册表的基本概念，可试用于其他程序。
----1 ．Sybase SQL any Where 5.5 数据库的名称:c07.db
----2 ．Powerbuilder 数据库连接程序：
    SQLCA.DBMS = “ODBC”
    SQLCA.Database = “c07”
    SQLCA.AutoCommit = True
    SQLCA.DBParm = “ConnectString=‘DSN=c07;UID=dba;PWD=sql’”
----3 ．installshielder5.0 的程序片段
----⑴ 定义头文件
----在源程序中找到如下信息：
    // Include header file
    #include “sdlang.h”
    #include “sddialog.h”
    //string defines //
    #define UNINST_LOGFILE_NAME “Uninst.isu”
    // 加入头文件定义信息，第一段程序开始点
    #define UNINST_LOGFILE_NAME “Uninst.isu”
    #define COMPANY_NAME  “ODBC”
    #define PRODUCT_NAME        “ODBC.INI”
    #define PRODUCT_VERSION     “c07”
    #define PRODUCT_KEY “rtdsk50.exe”
    #define DEINSTALL_KEY“pb60_DeinstKey”
    #define UNINSTALL_NAME“pb60_uninstname”
    #define DEFAULT_LOG_PATH    “pb60”
    // 第一段程序结束点
    ⑵ 定义全局变量
    在程序中找到如下信息：
    // ----- global variables ------
    // generated
    ....
    // your global variables
    // 在此定义你的全局变量，第二段程序开始点
    STRING      szstrname1,szstrvalue1,svlogfile;
    STRING      szstrname2,szstrvalue2;
    STRING      szstrname3,szstrvalue3;
    STRING      szstrname4,szstrvalue4;
    STRING      szstrname5,szstrvalue5;
    STRING      szstrname6,szstrvalue6;
    STRING      szstrname7,szstrvalue7;
    STRING      szstrname8,szstrvalue8;
    NUMBER      nvsize,nvType;
    // 第二段程序结束点
    ⑶ 注册表修改
    程序中找到setrpregistry 函数:
function SetupRegistry()
begin
//modify_source
// 加入注册表信息，第三段程序开始点
    szstrname1 = “Agent”;
    szstrvalue1 = “engine”;
    szstrname2 = “AutoStop”;
    szstrvalue2 = “Yes”;
    szstrname3 = “DatabaseFile”;
//TARTGETDIR 为全局变量，指安装完毕后程序的路径
    szstrvalue3 = TARGETDIR ^“\\c07.db”;
    szstrname4 = “DatabaseName”;
    szstrvalue4 = “c07”;
    szstrname5 = “Driver”;
    szstrvalue5 = TARGETDIR ^“\\WOD50T.DLL”;
    szstrname6 = “PWD”;
    szstrvalue6 = “”;
    szstrname7 = “Start”;
    szstrvalue7 = TARGETDIR ^“\\rtdsk50.exe”;
    szstrname8 = “UID”;
    szstrvalue8 = “”;
  // 注册表入口
  RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
  // 生成注册表信息的各级分支
InstallationInfo(COMPANY_NAME,PRODUCT_NAME,PRODUCT_VERSION,PRODUCT_K
EY);
    DeinstallStart(DEFAULT_LOG_PATH,svlogfile,DEINSTALL_KEY,0);
  // 向注册表的分支中加入键名和键值
    RegDBSetAppInfo(szstrname1,REGDB_STRING,szstrvalue1,-1);
    RegDBSetAppInfo(szstrname2,REGDB_STRING,szstrvalue2,-1);
    RegDBSetAppInfo(szstrname3,REGDB_STRING,szstrvalue3,-1);
    RegDBSetAppInfo(szstrname4,REGDB_STRING,szstrvalue4,-1);
    RegDBSetAppInfo(szstrname5,REGDB_STRING,szstrvalue5,-1);
    RegDBSetAppInfo(szstrname6,REGDB_STRING,szstrvalue6,-1);
    RegDBSetAppInfo(szstrname7,REGDB_STRING,szstrvalue7,-1);
    RegDBSetAppInfo(szstrname8,REGDB_STRING,szstrvalue8,-1);
// 第三段程序结束点
    return 0;
    end;
----以上程序完成了将数据库的DSN自动添加到ODBC中的整个过程，
安装完毕后，不用手工添加，运行程序，即可成功连接数据库。

打开： http://www.qqread.com/pb/d258335.html