installshield 如何实现Oracle数据库脚本的执行功能

功能点介绍：

用installshield打包一个应用，数据库为Oracle，要实现的功能是：用户填写数据库配置信息后，点击“下一步”自动执行脚本，导入数据信息。这是一个比较常见的功能。

具体做法：

Oracle的脚本常见的两种：.sql 和 .dmp 格式的。

1 首先用installshield 将脚本文件导入：如图



说一下：用红色框圈着的导入方式，脚本文件是被打包在安装包中的，也就是setup.exe文件中，用户是看不到的。而Disk1的方式，脚本文件没有被打包在安装包中，而是在另一个文件夹中，用户是可以看到的，至于用那种方式要看实际的情况，如果是给实施人员用，脚本可能是临时换，就用disk1的方式，如果是最终的版本，直接给客户，那一定就用第一种方式了。

2 导入脚本成功后，第二步，添加方法，代码如下（为了更直白的显示导入.sql文件和导入.dmp文件的两种方式，以下代码模拟的场景是用户在窗口中选择要导入的是.sql文件或是.dmp文件，然后根据用户选择的执行相应的脚本文件。）

function Database_Installed()

string szTypeValue,szScriptPath,szCmdLine,szIp,szPort,szSerName,szUser,szSupportdir,szPwd,szWaitTxt,szUserName,szUserPwd,szTableSpace;//定义变量，不再赘述

number nSize, nResult;

begin

szWaitTxt=" 正在执行数据库脚本....";

nSize=MAX_PATH;

MsiGetProperty(ISMSI_HANDLE,"INITTYPE",szTypeValue,nSize);//获取用户所选择的导入类型。

//-----以下为获取用户所填的数据库配置信息

nSize = MAX_PATH;

MsiGetProperty(ISMSI_HANDLE, "ORACLE_IP", szIp, nSize);

nSize = MAX_PATH;

MsiGetProperty(ISMSI_HANDLE, "ORACLE_PORT", szPort, nSize);

nSize = MAX_PATH;

MsiGetProperty(ISMSI_HANDLE, "ORACLE_ADMIN", szUser, nSize);

nSize = MAX_PATH;

MsiGetProperty(ISMSI_HANDLE, "ORACLE_PWD", szPwd, nSize);

nSize = MAX_PATH;

MsiGetProperty(ISMSI_HANDLE, "ORACLE_SERVERNAME", szSerName, nSize);

nSize = MAX_PATH;

MsiGetProperty(ISMSI_HANDLE, "SUPPORTDIR", szSupportdir, nSize); //这个要特别注意，获得文件相对的父路径

//----创建的新用户的信息

nSize=MAX_PATH;

MsiGetProperty(ISMSI_HANDLE,"USERNAME",szUserName,nSize);

nSize=MAX_PATH;

MsiGetProperty(ISMSI_HANDLE,"PASSWORD",szUserPwd,nSize);

nSize=MAX_PATH;

MsiGetProperty(ISMSI_HANDLE,"TABLESPACE",szTableSpace,nSize);

//---

SdShowMsg (szWaitTxt, TRUE);

//要根据用户的选择执行相应的脚本命令。

switch(szTypeValue)

case "1"://用户选择的是导入sql文件的。

szScriptPath =szSupportdir+"\\数据.sql"; -------》注意这个路径

LongPathToQuote(szScriptPath, TRUE);

szCmdLine = szUser + "/" + szPwd + "@//" + szIp + ":" + szPort + "/" + szSerName + " @" + szScriptPath;

nResult=LaunchAppAndWait("sqlplus.exe", szCmdLine, LAAW_OPTION_WAIT ); //installshield 启动sqlplus.exe,在sqlplus中执行 szCmdLine。

if(nResult<0)then MessageBox("脚本执行失败",WARNING);

endif;

case "2"://用户选择的是导入dmp文件的。

szScriptPath = szSupportdir+"\\表结构加数据.dmp";

LongPathToQuote(szScriptPath, TRUE);

szCmdLine = "imp "+ szUserName + "/"+szUserPwd+ "@" +szSerName+" file="+szScriptPath+" fromuser=idbase

touser="+szUserName;

nResult=LaunchAppAndWait("",szCmdLine,LAAW_OPTION_WAIT);//第一个参数为“”，说明调用cmd.exe

if(nResult<0)then MessageBox("脚本执行失败",WARNING);

//else MessageBox("脚本导入成功",WARNING);

endif;

endswitch;

SdShowMsg (szWaitTxt, FALSE);

end;

需要注意的是：LaunchAppAndWait 方法相当于一个平台，启动了cmd.exe或者sqlplus.exe，但是具体命令是否能执行成功你需要先保证这些命令在sqlplus.exe或者cmd.exe中能执行成功。

3 方法完成后，接下来要做的就是在需要导入脚本的地方调用它了。哦了。