installshield安裝文件的制作小技巧--附加數據庫 最近又一個項目接近尾聲，不過對方要求安裝必須傻瓜化，盡量不用手動配置。于是就的重新撿起兩三年沒有用過的installshield了。找到 installshield 12??于是，著手開始制作安裝包。因為是網站項目，所以，其他方面倒是問題不大，因為當年用installshield 6.2的時候，也是相當熟練的。最主要的有兩個方面：一、數據庫的安裝，因為我的數據庫里面有許多存儲過程和初始數據，所以不想直接用script來初始化。于是就想直接在安裝包中把數據庫文件和日志文件打包，然后在安裝時直接附加就行。二、修改web.config文件中的數據庫連接字符串和一些相關的參數，比如一些路徑相關的參數等等。

??????其中第一點經過摸索和總結，有兩種方法：1、直接使用自定義的函數，聲稱sql語句，然后調用osql.exe來執行。

函數如下：

function number CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
STRING szCmdLine,szWaitTxt;
begin
szWaitTxt=" 正在創建所需數據庫.";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);

if(g_bWinLogin) then
????szCmdLine = "/E??/S "+svSQLsvr+" /Q \"EXEC??sp_attach_db??@dbname??=??N'dlbj',@filename1??= N'"+TARGETDIR ^"mydb.MDF',@filename2??= N'"+TARGETDIR ^"dlbj_web_log.LDF'\"";
else
?? szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"EXEC??sp_attach_db??@dbname??=??N'dlbj',@filename1??= N'"+TARGETDIR ^"dlbj_web.MDF',@filename2??= N'"+TARGETDIR ^"mydb_log.LDF'\"";
endif;
//szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"EXEC??sp_attach_db??@dbname??=??N'dlbj',@filename1??= N'"+TARGETDIR ^"dlbj_web.MDF',@filename2??= N'"+TARGETDIR ^"dlbmydb_log.LDF'\"";

if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("數據庫創建失敗！請確您的系統中已安裝 Microsoft SQL Server 2000. 如仍無法解決，請聯系系統供應商！",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt=" 正在優化系統數據庫.";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use dlbj ; exec sp_updatestats\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("數據庫優化失敗！您可以在 sql查詢分析器中執行 use dlbj ; exec sp_updatestats 完成！",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);??

return 0;

end;

然后在OnEnd中執行如下代碼：

if !MAINTENANCE then

CreateDataBase(g_szServer,g_szUser,g_szPassword);

endif;

其中，g_szServer,g_szUser,g_szPassword分別為，在installshield中數據庫設置界面（或者自定義窗口）中操作得到的服務器地址，用戶名和密碼。

2、直接在 安裝設計視圖中創建連接后，直接創建一個sqlscript，會在安裝的時候直接執行。這樣的話就的提前知道安裝的位置（這是不可能的），于是就直接寫成可替換的字符串，然后使用 text replacement 選項卡，設置替換項。其中，sqlscript如下：

USE master;
GO
-- Drop database if it exists.
IF EXISTS (SELECT name FROM sys.databases WHERE NAME = 'dmydb')
?? DROP DATABASE dmydb;
GO
CREATE DATABASE dlbj ON PRIMARY
?? (FILENAME =
??????'%TEXT_TO_BE_REPLACED_IN_THE_FILE%\dmydb.mdf')
?? LOG ON (FILENAME =
??????'%TEXT_TO_BE_REPLACED_IN_THE_FILE%\dmydb_log.LDF')
?? FOR ATTACH;
GO

其中：%TEXT_TO_BE_REPLACED_IN_THE_FILE% 是要替換為安裝目錄的字符串。

這里有個值得注意的地方，如果是installscript項目。那么，在text replacement 選項卡，替換后的內容不能直接設置為[INSTALLDIR]或者 [TARGETDIR],而是要同樣設置為一個替換變量，如：<USER_DATA>，即就是，把：%TEXT_TO_BE_REPLACED_IN_THE_FILE% 替換為：<USER_DATA>，然后在 installscript 的 Dlg_SdAskDestPath2: 代碼段中，執行如下語句即可。

TextSubSetValue ("<USER_DATA>", TARGETDIR , TRUE );

當時這里困擾我很長世界，最后還是上國外的網站上找到了解決方案。


對于第二點，則，直接使用函數：

function UpdateKey( svFilePath, svFindEntry, svNewEntry)
NUMBER nResult, nvLineNumber;
STRING WebConfigFile, svReturnLine;

begin
??// build the path to the Web.Config????
??WebConfigFile = svFilePath ^ "web.config";

??// search the file for the key we specify
??nResult = FileGrep( WebConfigFile, svFindEntry, svReturnLine, nvLineNumber, RESTART );
??switch(nResult)
?? case 0:
????// Since this line normally appears twice in our web.config file, we're
????// checking for the existence of a 2nd match and updating it instead.
????// If there is no 2nd match, go ahead and update the one we find.
????if ( svFindEntry = "connectionString" ) then
???? nResult = FileGrep( WebConfigFile, svFindEntry , svReturnLine, nvLineNumber, CONTINUE );
???? if ( nResult < 0 ) then
??????FileGrep( WebConfigFile, svFindEntry, svReturnLine, nvLineNumber, RESTART );
???? endif;
????endif;
??
????// once we find the key, update (replace) it with our new values
????if ( FileInsertLine( WebConfigFile, svNewEntry, nvLineNumber, REPLACE ) < 0 ) then
???? // hmmm we couldn't update the value of the key
???? MessageBox( "Unable to update Web.Config file.", SEVERE );
????endif;
?? case -2:
????// File Not Found
????MessageBox( "Web.Config file not found.", SEVERE );
?? case -4:
????// EOF reached
????MessageBox( svFindEntry + " key not found.", SEVERE );
?? default:
????//unknown error
????MessageBox( "An unknown error has occurred. The Web.Config file has NOT been updated.", SEVERE );
??endswitch;
end;

即可。

本文為轉貼,原帖地址為:http://www.cnblogs.com/culturenet/archive/2006/12/19/596930.html

轉載于:https://www.cnblogs.com/draeag/archive/2007/07/13/817286.html

總結

以上是生活随笔為你收集整理的installshield安装文件的制作小技巧--附加数据库的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。