InstallShield SQL 数据库安装

function OnFirstUIAfter()
    STRING szTitle
,  szMsg1 ,  szMsg2 ,  szOpt1 ,  szOpt2 ;
    NUMBER bvOpt1 ,  bvOpt2 ;
    NUMBER bShowUpdateServiceDlg ;
    STRING szWaitText ;
    STRING szServiceName ;
    NUMBER svServiceState ;
    STRING szMsde2000 ,  szCmdLine , szStartServiceArgs ;
begin
    // 如果安装程序以“维护”模式启动
    if (MAINTENANCE) then
        goto EndProcess
;
    endif ;

    // 检查系统是否安装了 MSDE 
2000  SP4
    szWaitText 
=   " 正在检查系统是否安装了 MSDE2000 SP4 ……. " ;
    SdShowMsg( szWaitText ,  TRUE) ;     
    
    szServiceName 
=   " MSSQLSERVER " ;
    if(ServiceGetServiceState(szServiceName ,  svServiceState) < ISERR_SUCCESS) then
        // 没有安装 MSDE,转安装处理
        goto InstallMSDE
;     
    endif ;
    goto StartMSDE ;  
    
InstallMSDE:  // 安装数据库服务  
    szWaitText 
=   " 正在安装 MSDE2000 SP4。这个过程需要几分钟,请稍等 " ;
    SdShowMsg(szWaitText ,  TRUE) ;  
    
    szMsde2000 
=  SRCDIR ^  " MSDE "  ^  " setup.exe " ;
    // 将 MSDE  2000  SP4 安装到系统 Program File 目录下
    szCmdLine 
=   " TARGETDIR= ""  + PROGRAMFILES +  " "  /q " ;
    if(LaunchAppAndWait(szMsde2000 ,  szCmdLine ,  LAAW_OPTION_WAIT|LAAW_OPTION_MAXIMIZED) <  0  ) then
        MessageBox (
" 安装 MSDE2000 SP4 失败,请联系系统管理员! " ,  SEVERE) ;
        goto EndProcess ;
    endif ;

StartMSDE: // 启动 MSDE2000 服务
    szWaitText 
=   " 正在启动 MSDE2000 SP4 ……. " ;
    SdShowMsg( szWaitText ,  TRUE) ;     
   
    // 安装了 MSDE 
2000 ,  试着启动服务
    szStartServiceArgs 
=   "" ;     
    if(svServiceState ! =  SERVICE_RUNNING) then
        if (ServiceStartService (szServiceName
,  szStartServiceArgs) < ISERR_SUCCESS ) then
            MessageBox (
" 启动服务 "  + szServiceName +  " 出错。 " ,  SEVERE) ;
            goto EndProcess ;
        endif ;         
    endif ;

    // 加载用户数据库
    szWaitText 
=   " 正在创建所需数据库. " ;
    SdShowMsg(szWaitText ,  TRUE) ;
    Delay( 2 ) ;  
    
    // 先试着分离先前已经加载的数据库
    szCmdLine 
=   " -E -Q  " exec exec sp_detach_db GEChargeLicence  "" ;
    if(LaunchAppAndWait( " osql.exe  " ,  szCmdLine ,  LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN) <  0 ) then 
        MessageBox (
" 分离原来的数据库失败!请确认系统中已安装 MSDE 2000 SP4 并且服务已启动。如问题仍无法解决,请与联系统管理员联系! " ,  SEVERE) ;  
    endif ;  
    
    // 将数据文件复制到程序安装目录
    CreateDir( TARGETDIR ^ 
" Data " ) ;
    CopyFile( SRCDIR ^  " Data "  ^  " GEChargeLicence.mdf " ,  TARGETDIR ^  " Data "  ^  " GEChargeLicence.mdf " ) ;
    CopyFile( SRCDIR ^  " Data "  ^  " GEChargeLicence.ldf " ,  TARGETDIR ^  " Data "  ^  " GEChargeLicence.ldf " ) ;     
    
    // 附加数据库    
    szCmdLine 
=   " -E -Q  " exec sp_attach_db 'GEChargeLicence' ,  ' " +  TARGETDIR ^  " Data "  ^  " GEChargeLicence.mdf' ,  ' "  +  TARGETDIR ^  " Data "  ^  " GEChargeLicence.ldf'  "" ;  
    if (LaunchAppAndWait( " osql.exe  " ,  szCmdLine ,  LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN) <  0 ) then 
          MessageBox (
" 数据库创建失败!请确认系统中已安装 MSDE 2000 SP4 并且服务已启动。如问题仍无法解决,请与联系统管理员联系! " ,  SEVERE) ;  
    endif ;
    
    SdShowMsg(szWaitText
,  FALSE) ;      
    
EndProcess:    
    
    // 以下代码是系统自动插入的
    ShowObjWizardPages(NEXT)
;
    
    szTitle 
=   "" ;
    szMsg1  =   "" ;  
    szMsg2  =   "" ;
    szOpt1  =   "" ;
    szOpt2  =   "" ;
    bvOpt1    =  FALSE ;
    bvOpt2    =  FALSE ;     

    // Set this to true if you have the update service enabled
,  and if you want to check for updates.
    // Note: the ISUS Starter Edition does not support checking for updates programatically.  So
,  
    // only set this to true if you have at least the ISUS Professional Edition.
    bShowUpdateServiceDlg 
=  FALSE ;
    
    //{{IS_SCRIPT_TAG(Dlg_SdDinishEx)    
    
    if ( BATCH_INSTALL ) then
        SdFinishReboot ( szTitle 
,  szMsg1  ,  SYS_BOOTMACHINE  ,  szMsg2  ,   0  ) ;
    else
        
        // If the update service is enabled
,  show finish dialog that includes
        // update check option.
        if( bShowUpdateServiceDlg && ( ENABLED_ISERVICES & SERVICE_ISUPDATE ) ) then

            if( SdFinishUpdateEx( szTitle
,  szMsg1 ,  szMsg2 ,  szOpt1 ,  szOpt2 ,  TRUE ) ) then

                // Don't check for updates in silent mode.
                if( MODE !
=  SILENTMODE ) then
                    UpdateServiceCheckForUpdates( 
"" ,  FALSE ) ;
                endif ;

            endif
;

        else
            SdFinish ( szTitle 
,  szMsg1  ,  szMsg2  ,  szOpt1  ,  szOpt2  ,  bvOpt1  ,  bvOpt2 ) ;
        endif ;

    endif
;
    //}}IS_SCRIPT_TAG(Dlg_SdDinishEx)    
end
;  

 按F7 制作安装影像。生成的安装影像文件位于 [盘符:]/InstallShield Express Projects/[安装项目名称]/Media/cdrom/Disk Images/Disk1
5、向影像中添加 MSDE 2000 SP4 的安装文件。
请先参照 MSDE 2000 ReadmeSql2k32desksp4.htm 中《4.1 再分发 MSDE 2000 SP4》的说明。
打开文件夹 [盘符:]/InstallShield Express Projects/[安装项目名称]/Media/cdrom/Disk Images/Disk1, 然后创建两个子文件 MSDE  和 Data 。
            [盘符:]/InstallShield Express Projects/[安装项目名称]/Media/cdrom/Disk Images/Disk1/MSDE    用于存放 MSDE 2000 SP4  安装文件;
            [盘符:]/InstallShield Express Projects/[安装项目名称]/Media/cdrom/Disk Images/Disk1/Data   用于存放你要安装的数据库文件;
说明:MSDE 2000 ReadmeSql2k32desksp4.htm 中《4.1 再分发 MSDE 2000 SP4》中的说明并太确切。实际上,为了让 MSDE 2000 SP4 的Setup.exe 正确运行,还需要将所下载并解压 MSDE 2000 SP4 中 *.dll  和 *.rll 复制到 [盘符:]/InstallShield Express Projects/[安装项目名称]/Media/cdrom/Disk Images/Disk1/MSDE  中。

 

注意:这个检测脚本好象不能用在WebProject中 如果可以,大家谁告诉我怎么办 谢谢

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值