installshield mysql_installshield安装文件的制作小技巧

最近又一个项目接近尾声，不过对方要求安装必须傻瓜化，尽量不用手动配置。于是就的重新捡起两三年没有用过的installshield了。找到 installshield 12 于是，着手开始制作安装包。因为是网站项目，所以，其他方面倒是问题不大，因为当年用installshield 6.2的

最近又一个项目接近尾声，不过对方要求安装必须傻瓜化，尽量不用手动配置。于是就的重新捡起两三年没有用过的installshield了。找到 installshield 12 于是，着手开始制作安装包。因为是网站项目，所以，其他方面倒是问题不大，因为当年用installshield 6.2的时候，也是相当熟练的。最主要的有两个方面：一、数据库的安装，因为我的数据库里面有许多存储过程和初始数据，所以不想直接用script来初始化。于是就想直接在安装包中把数据库文件和日志文件打包，然后在安装时直接附加就行。二、修改web.config文件中的数据库连接字符串和一些相关的参数，比如一些路径相关的参数等等。

其中第一点经过摸索和总结，有两种方法：1、直接使用自定义的函数，声称sql语句，然后调用osql.exe来执行。

函数如下：

functionnumber CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)

STRINGszCmdLine,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)thenMessageBox ("数据库创建失败！请确您的系统中已安装 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)thenMessageBox ("数据库优化失败！您可以在 sql查询分析器中执行 use dlbj ; exec sp_updatestats 完成！",SEVERE);

endif;

SdShowMsg (szWaitTxt,FALSE);

return0;

end;

然后在OnEnd中执行如下代码：

if!MAINTENANCEthen

CreateDataBase(g_szServer,g_szUser,g_szPassword);

endif;

其中，g_szServer,g_szUser,g_szPassword分别为，在installshield中数据库设置界面(或者自定义窗口)中操作得到的服务器地址，用户名和密码。

2、直接在 安装设计视图中创建连接后，直接创建一个sqlscript，会在安装的时候直接执行。这样的话就的提前知道安装的位置(这是不可能的)，于是就直接写成可替换的字符串，然后使用 text replacement 选项卡，设置替换项。其中，sqlscript如下：

USEmaster;

GO--Drop database if it exists.IFEXISTS(SELECTnameFROMsys.databasesWHERENAME='dmydb')

DROPDATABASEdmydb;

GOCREATEDATABASEdlbjONPRIMARY (FILENAME='%TEXT_TO_BE_REPLACED_IN_THE_FILE%/dmydb.mdf')

LOGON(FILENAME='%TEXT_TO_BE_REPLACED_IN_THE_FILE%/dmydb_log.LDF')

FORATTACH;

GO

其中：%TEXT_TO_BE_REPLACED_IN_THE_FILE% 是要替换为安装目录的字符串。

这里有个值得注意的地方，如果是installscript项目。那么，在text replacement 选项卡，替换后的内容不能直接设置为[INSTALLDIR]或者 [TARGETDIR],而是要同样设置为一个替换变量，如：，即就是，把：%TEXT_TO_BE_REPLACED_IN_THE_FILE% 替换为：，然后在 installscript 的 Dlg_SdAskDestPath2: 代码段中，执行如下语句即可。

TextSubSetValue ("", TARGETDIR , TRUE );

当时这里困扰我很长世界，最后还是上国外的网站上找到了解决方案。

对于第二点，则，直接使用函数：

functionUpdateKey( svFilePath, svFindEntry, svNewEntry)

NUMBER nResult, nvLineNumber;

STRINGWebConfigFile, svReturnLine;

begin

//build the pathtothe Web.Config

WebConfigFile=svFilePath^"web.config";

//search the fileforthe key we specify

nResult=FileGrep( WebConfigFile, svFindEntry, svReturnLine, nvLineNumber, RESTART );

switch(nResult)

case0:

//Since this line normally appears twice in our web.config file, we're//checkingforthe existence of a 2nd matchandupdating it instead.

//Ifthereisno 2nd match, go aheadandupdate 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) itwithournewvalues

if( FileInsertLine( WebConfigFile, svNewEntry, nvLineNumber,REPLACE)<0)then//hmmm

we couldn't update the value of the keyMessageBox("Unable to update Web.Config file.", SEVERE );

endif;

case-2:

//FileNotFound

MessageBox("Web.Config file not found.", SEVERE );

case-4:

//EOF reached

MessageBox( svFindEntry+"key not found.", SEVERE );

default:

//unknownerror MessageBox("An unknown error has occurred. The Web.Config file has NOT been updated.", SEVERE );

endswitch;

end;

即可。

本文原创发布php中文网，转载请注明出处，感谢您的尊重！