用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中的整個過程安裝完畢後不用手工添加運行程序即可成功連接數據庫

[]  []  

From:http://tw.wingwit.com/Article/program/SQL/201311/16180.html