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

// your global variables

// 在 此 定 义 你 的 全 局 变 量 第 二 段 程 序 开 始 点

STRING szstrnameszstrvaluesvlogfile;

STRING szstrnameszstrvalue;

STRING szstrnameszstrvalue;

STRING szstrnameszstrvalue;

STRING szstrnameszstrvalue;

STRING szstrnameszstrvalue;

STRING szstrnameszstrvalue;

STRING szstrnameszstrvalue;

NUMBER nvsizenvType;

// 第 二 段 程 序 结 束 点

⑶ 注 册 表 修 改

程 序 中 找 到setrpregistry 函 数:

function SetupRegistry()

begin

//modify_source

// 加 入 注 册 表 信 息 第 三 段 程 序 开 始 点

szstrname = Agent;

szstrvalue = engine;

szstrname = AutoStop;

szstrvalue = Yes;

szstrname = DatabaseFile;

//TARTGETDIR 为 全 局 变 量 指 安 装 完 毕 后 程 序 的 路 径

szstrvalue = TARGETDIR ^\\cdb;

szstrname = DatabaseName;

szstrvalue = c;

szstrname = Driver;

szstrvalue = TARGETDIR ^\\WODTDLL;

szstrname = PWD;

szstrvalue = ;

szstrname = Start;

szstrvalue = TARGETDIR ^\\rtdskexe;

szstrname = UID;

szstrvalue = ;

// 注 册 表 入 口

RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);

// 生 成 注 册 表 信 息 的 各 级 分 支

InstallationInfo(COMPANY_NAMEPRODUCT_NAMEPRODUCT_VERSIONPRODUCT_KEY);

DeinstallStart(DEFAULT_LOG_PATHsvlogfileDEINSTALL_KEY);

// 向 注 册 表 的 分 支 中 加 入 键 名 和 键 值

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

RegDBSetAppInfo(szstrnameREGDB_STRINGszstrvalue);

// 第 三 段 程 序 结 束 点

return ;

end;

以上程序完成了将数据库的DSN自动添加到ODBC中的整个过程安装完毕后不用手工添加运行程序即可成功连接数据库

[] []