在本机上已装好SQL SERVER.
程序中使用到数据库.要求SETUP后就能用数据库.
INSTALLSHIELD安装时,怎么样加入数据库安装?
程序中使用到数据库.要求SETUP后就能用数据库.
INSTALLSHIELD安装时,怎么样加入数据库安装?
解决方案 »
- 急聘delphi优秀开发人员
- 视频回调函数中的请教问题?
- 請教各路英雄,我想讓程序在每天的某個特定時間自動執行,該如何去做??
- 请教一下KSAIY大大,关于某字串转换为另一字串的算法及代码
- CreatePipe在Delphi中没有用?!
- 一个对高手来说的小问题?
- delphi连接数据库和pb有何不同,作用范围一样吗?我是一个新手.谢谢.....
- 判断坐标点是否在矩形区域内,在线等!倾分 跪等
- DBGrid显示单字段数据集,字段数据很长时,如何实现数据的完整显示?
- l_jia()近来领分7
- 请问如何在delphi中调用系统默认的电子邮件程序,在线等待,立即结贴!
- 三层休系中运行客户端程序时,请问各位对自动产生的 remote login 窗口如何处理的?如user name ,password 如何控制客户端的登陆?
程序中使用到数据库此數據庫你是否已經建立
若沒用,程序中還要建立數據庫
NUMBER bOpt1, bOpt2;
string svSQLsvr;
string svSQLusr;
string svSQLpwd;
STRING szCmdLine,szWaitTxt;
begin
//创建数据库
SdShowDlgEdit3 ( "请填写数据库信息" , "请填写数据库信息", "数据库服务器名", "用户名" , "密码" ,svSQLsvr , svSQLusr , svSQLpwd );
// SdShowDlgEdit1 ( "输入数据库服务器名字" , "输入数据库服务器名字" , "数据库服务器名字" , svSQLsvr );
// SdShowDlgEdit1 ( "输入用户名" , "输入用户名" , "输入用户名" , svSQLusr );
// SdShowDlgEdit1 ( "输入密码" , "输入密码" , "输入密码" , svSQLpwd );
szWaitTxt=" 正在创建所需数据库....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "/U "+svSQLusr+" /P "+svSQLpwd+" /S "+svSQLsvr+" /Q \"exec sp_attach_db N'xoffice' , N'"+TARGETDIR ^"data\\xoffice_Data.MDF', N'"+TARGETDIR ^"data\\xoffice_Log.LDF'\"";
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 xoffice; exec T_createjob\"";
if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
MessageBox ("生成数据库服务器作业失败!您可以在 sql查询分析器中执行 \n use xoffice; exec T_createjob \n完成!",SEVERE);
endif;
//MessageBox(szCmdLine,SEVERE);
SdShowMsg (szWaitTxt, FALSE);
end.
xoffice是你需要建的数据库名;
xoffice_Data.MDF,xoffice_Log.LDF分别换写成你的数据库文件;osql.exe实用工具使您得以输入 Transact-SQL 语句、系统过程和脚本文件。该实用工具通过 ODBC 与服务器通讯。
如果你不是用库文件,而是使用备份文件.bak。不用sp_attatchdb而直接用restore语句