欲在程序实现sql2000数据库中的数据备份到客户端,不知该如何做?
解决方案 »
- Delphi采用数据集方式开发数据库应用的优缺点?
- 表操作:
- 我同学做的mp3播放器,起步阶段,功能很新颖,老少爷们儿捧个人场啊!!!!进者有分
- 文本文件数据库不支持中文么?
- 哪里有英文版Office下载?
- WEBSNAP中的权限级别问题
- 能否实现在按保存按钮后,将Dbgrid表中新增加的记录的部分字段添加到另一个表中?
- 请教一个记录值查询的问题,急!!
- 请问:如何改变WINDOWS的字体大小(不是size 而是'大字体'/'小字体')??
- 怎么开发windows与novell通信的程序?
- InternetExpress发布程序,各位大虾帮帮忙100分送上!在线等待!解决马上给分
- 你们遇到过这样的问题吗?奇怪、奇怪、真的很奇怪!!!
procedure TdfrmData_Bak.OKBtnClick(Sender: TObject);
var
QryTmp:Tquery;
begin
qrytmp:=Tquery.create(self);
qryTmp.databasename:=BasDM.CostDB.databasename;
QryTmp.sql.Add('Backup database CMS to disk='+''''+Edit1.Text +'''');
//Edit1.Text為備份路徑與備份文件名,CMS為數據庫名
QryTmp.execsql;
end;procedure TdfrmData_Bak.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.text := (OpenDialog1.filename);
end;end;
//备份
CREATE PROCEDURE dbbackup_pro @afdname varchar(150) as
BACKUP DATABASE JiaLeDB to disk=@afdname//恢复
CREATE PROCEDURE dbrestore_pro as restore DATABASE JiaLeDB from disk=@afdname WITH RECOVERY@afname 为传入的备份文件名!
应该是最简单的办法吧
2、在客户端用TQuery执行做如下操作,试试看。
Query.Close;
Query.Sql.Clear;
Query.Sql.Add('USE MASTER BACKUP DATABASE YourDatabaseName TO DISK='''+'\\YourComputerName\DbBackup\YourBackupName'+'''');
Query.Execsql;
自已调调这段程序。