我用DELPHI6写了一个小东西,后台数据库是SQL SERVER2000,现在用installshield6.22做安装程序,想让安装程序附带上SQL SERVER的数据库文件,然后由安装程序自动注册附加数据库。请高手指点我该怎么做?
一百分够不够?不够再加?
一百分够不够?不够再加?
解决方案 »
- delphi BDE 返回数据问题!望指点!!!!!
- 我用Access数据库做的系统,为什么每过几天就会出现数据库被独占?
- TstringList里面的内容按降序排列?
- 请将这段c代码改为delphi代码
- 怎样过滤应用程序??急啊!!!
- 为什么我在delphi基础区的信誉分为99?
- 能否使用浏览器浏览统计图?
- 求救,数据被截断了,
- 高手求购一个关于动态报表实例源码,不要Delphi自带的!我想参考学习[email protected],发了请回复一下,便于加分!
- 很简单问题,关于更新数据的
- ****同样的两行代码,d7 and d5 结果不一样,奇怪
- 谁知道哪里有Base64的文档,分不够在加
// 创建和优化数据库
//////////////////////////
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;
procedure TFormSetupWizard.CreateDB;
var
CreateDBString: string;
begin
CreateDBString := 'sp_attach_db ' + #39 + 'dbName' + #39 + ',' + #39 +
PathWithSlash(ExtractFilePath(Application.ExeName)) + 'dbName.mdf' + #39;
try
adcMaster.Execute(CreateDBString);
except
WarnBox('数据库设定错误' + #13#10 + CreateDBString);
raise;
end;
end;