我现在考虑用Install Shield 做安装,让它执行脚本来建库和表,用lannuchApp()
LaunchAppAndWait()来执行

解决方案 »

  1.   

    //////////////////////////
    // 创建和优化数据库
    //////////////////////////
    function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
    STRING szCmdLine,szWaitTxt;
    begin
    szWaitTxt=" 正在创建所需数据库....";
    SdShowMsg (szWaitTxt, TRUE);
    Delay(2); 
    szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'top' , N'"+SUPPORTDIR ^"top_Data.MDF'\"";

    if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
    MessageBox ("数据库创建失败!请确您的系统中已安装 Microsoft SQL Server 2000.\n如仍无法解决,请联系系统供应商!",SEVERE);
    endif;
    SdShowMsg (szWaitTxt, FALSE);
    szWaitTxt=" 正在优化系统数据库....";
    SdShowMsg (szWaitTxt, TRUE);
    Delay(2); 
    szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use top ; exec sp_updatestats\"";
    if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
    MessageBox ("数据库优化失败!您可以在 sql查询分析器中执行 \n use TOP ; exec sp_updatestats \n完成!",SEVERE);
    endif;
    SdShowMsg (szWaitTxt, FALSE);
    return 0;
    end;
      

  2.   

    可以,我曾经看到过一套软件,一点安装把什么sql server ,autocad等等四五个软件统统安上去了。但我不知道怎样做。你好好研究一下吧,祝你成功!