来者有分：制作安装程序的时候，如何把已经建好的数据库导入到sqlserver2000服务器工作环境里并成功启动

青春青春 2003-11-28 05:17:03

我用pb做了一款软件，服务器端用sqlserver2000，现在客户端安装程序安装完毕后，应用程序能够顺利连接服务器端数据库，问题是：现在我不知道如何制作数据库服务器端的安装？即如何在一台刚刚装了SQL Server 2000的服务器上成功把我的数据库导入并成功启动，使客户端能够顺利访问。求教各位大吓。

...全文

75 42 打赏收藏转发到动态举报

写回复

用AI写文章

42 条回复

切换为时间正序

请发表友善的回复…

发表回复

banalman 2003-12-18

打赏
举报

用dmo com对象，陶青网站侑例子。

qianduo 2003-12-11

打赏
举报

pbsql 2003-12-11

打赏
举报

freebirdwjy(自由鸟)：应用程序的安装程序不必把数据库打包在一起，因为一个用户可能只装一个数据库，但却要装多台客户端的！

青春青春 2003-12-11

打赏
举报

freebirdwjy 2003-12-10

打赏
举报

如果不安装SQL数据库，在安装应用程序时直接把数据库打包在一起，应该怎么做呢？谢谢

liliang800207 2003-12-10

打赏
举报

下面的不知有用没有，与大家共享，别人刚教的，挺好

备份

string ls_datebase_name,ls_bkfilename,ls_sql
string docname, named
int li_filenum

li_filenum = GetFileSaveName("备份数据库,请输入备份文件名称", docname, named, "","数据库备份文件,") //打开文件选择对话框
ls_bkfilename = docname //备份文件完整路径
sle_1.text = docname //显示文件路径

if len(docname) = 0 then
messagebox('提示','请输入文件名称')
return
end if

ls_datebase_name = "enterprise"

//备份数据库
sqlca.autocommit = true
ls_sql = "BACKUP DATABASE" + space(1) + ls_datebase_name + space(1) + "to disk='" + ls_bkfilename + "'"

EXECUTE IMMEDIATE :ls_sql;

if sqlca.sqlcode <> 0 then
messagebox('提示','备份数据库时出错!')
return
else
messagebox("提示","数据库备份完毕")
end if

还原:

string ls_datebase_name,ls_date_logic_name,ls_log_logic_name,ls_date_reality_name,ls_log_reality_name,ls_bkfilename, ls_sql
string ls_reg_path, ls_install_path, docname, named
int li_filenum

ls_reg_path = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Currentversion\Uninstall\Microsoft SQL Server 2000"
RegistryGet(ls_reg_path, "InstallLocation", RegString!, ls_install_path)
ls_install_path = ls_install_path + "\Data\"

li_filenum = GetFileOpenName("读取备份文件", docname, named, "","数据库备份文件,") //打开文件选择对话框
ls_bkfilename = "'" + docname + "'" //备份文件完整路径

sle_1.text = docname

if len(docname) = 0 then
messagebox('提示','未选中有效的文件!')
return
end if

ls_datebase_name = "enterprise"
ls_date_logic_name = "enterprise_data"
ls_log_logic_name = "enterprise_log"
ls_date_reality_name = "enterprise.mdf"
ls_log_reality_name = "enterprise.ldf"

//还原数据库
SQLCA.AutoCommit = true
ls_sql = "RESTORE DATABASE" + space(1) + ls_datebase_name + space(1) + "FROM DISK = " + ls_bkfilename + space(1) + &
"WITH MOVE" + space(1) + "'" + ls_date_logic_name + "'" + space(1) + "TO" + space(1) + "'" + ls_install_path + ls_date_reality_name + "'," + &
" MOVE" + space(1) + "'" + ls_log_logic_name + "'" + space(1) + "TO" + space(1) + "'" + ls_install_path + ls_log_reality_name + "'"

EXECUTE IMMEDIATE :ls_sql;

if sqlca.sqlcode = 0 then
messagebox("提示","数据库还原成功!")
else
messagebox("提示","还原数据库时出错!")
return
end if

liliang800207 2003-12-10