关于installshield中如何在安装程序时同时进行数据库的安装?有代码的最好:)高分悬赏 我也很想知道,特别是安装时初始化数据库(SQL Server) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 请参阅《Installsheild2000使用详解》刘艺主编机械工业出版社2002年出版网上购书http://www.china-pub.com 如果你Installsheild一点都不熟的话,《Installsheild2000使用详解》应该看看 ////////////////////////// // 创建和优化数据库 ////////////////////////// function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd) STRING szCmdLine,szWaitTxt; begin szWaitTxt=" 正在创建"+@PRODUCT_NAME+"所需数据库...."; SdShowMsg (szWaitTxt, TRUE); Delay(2); szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'OASystem' , N'"+SUPPORTDIR ^"OASystem_data.mdf'\""; if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then MessageBox ("数据库创建失败!请确您的系统中已安装 Microsoft SQL Server 2000.\n如仍无法解决,请联系系统供应商!",SEVERE); endif; SdShowMsg (szWaitTxt, FALSE); szWaitTxt=" 正在优化"+@PRODUCT_NAME+"系统数据库...."; SdShowMsg (szWaitTxt, TRUE); Delay(2); szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use OASystem ; exec sp_updatestats\""; if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then MessageBox ("数据库优化失败!您可以在 sql查询分析器中执行 \n use OASystem ; exec sp_updatestats \n完成!",SEVERE); endif; SdShowMsg (szWaitTxt, FALSE); return 0; end; Delphi版,你怎么了? 换币问题,急求算法,在线等!!! TreeView与DB? 有关系统集成的问题 turboPower哪里有下载? 请过来人指点迷津 请问:在不关闭窗体的情况下怎么让某个菜单的快捷键失效??先谢了 求Mac OS 风格得按钮控件(其它控件也可) 请问哪里有delphi好的中文网站 请问如何在query中的sql语句里面使用变量? 问两个很简单的问题 如何将MaskEdit框中的下线去掉?
网上购书http://www.china-pub.com
《Installsheild2000使用详解》应该看看
// 创建和优化数据库
//////////////////////////
function CreateDataBase(svSQLsvr,svSQLusr,svSQLpwd)
STRING szCmdLine,szWaitTxt;
begin
szWaitTxt=" 正在创建"+@PRODUCT_NAME+"所需数据库....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'OASystem' , N'"+SUPPORTDIR ^"OASystem_data.mdf'\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("数据库创建失败!请确您的系统中已安装 Microsoft SQL Server 2000.\n如仍无法解决,请联系系统供应商!",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
szWaitTxt=" 正在优化"+@PRODUCT_NAME+"系统数据库....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"use OASystem ; exec sp_updatestats\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("数据库优化失败!您可以在 sql查询分析器中执行 \n use OASystem ; exec sp_updatestats \n完成!",SEVERE);
endif;
SdShowMsg (szWaitTxt, FALSE);
return 0;
end;