我在Delphi6中备份SQL Server数据库用的是Adoconnection和Adocommand控件
adocommand1.CommandText:='backup database zzccpmsdata to disk=''d:\delphi\zzc\data\zzccpmsdatacopy'' with init';adocommand1.Execute;
其中,zzccpmsdata是服务器上的SQL Server数据库
adocommand1.CommandText:='backup database zzccpmsdata to disk=''d:\delphi\zzc\data\zzccpmsdatacopy'' with init';adocommand1.Execute;
其中,zzccpmsdata是服务器上的SQL Server数据库
解决方案 »
- delphi之家欢迎大家的加入.共同交流技术..13771002
- 求一个用 深思III 加密软件的简单例子!
- Delphi连接MYSQL问题!!!
- 关于RAVE打印设置的问题
- 能很快实现这功能吗?点击 E_mail:[email protected]调用outlook发邮件
- 高分求源码
- 怎样实现listbox与edit的连接,即edit的内容随着listbox的改变而改变
- 怎么编程用指定打印机打印,但是不把它设为默认打印机 .
- 如何做像超级解霸那样的可以载入图片的窗体,或者说...
- Tspeedbutton与Ttoolbutton的区别
- 一个有关于ListView的问题
- 用sql语句如何进行时间段查询!!
USE master
EXEC sp_addumpdevice 'disk', 'testdb', 'd:\mssql7\backup\test.bak'
BACKUP DATABASE you_db TO testdb EXEC sp_addumpdevice 'disk', 'testdb_log', 'd:\mssql7\backup\test_log.bak'
BACKUP LOG you_db TO testdb_log
procedure tform1.btnbuckupclick(sender:tobject);
var
QryTmp:Tquery;
begin
qrytmp:=Tquery.create(self);
qryTmp.databasenme:=database1.databasename
QryTmp.sql.text:='Backup database 数据库 to disk='''+
你的路径 +'''';
QryTmp.execsql;
end;
恢复:
procedure tform1.btnrestoreclick(sender:tobject);
var
QryTmp:Tquery;
begin
qrytmp:=Tquery.create(self);
qryTmp.databasenme:=database1.databasename;
database1.connect:=false;//记住,关闭
QryTmp.sql.text:=' use master '+
+' restore database 数据库 to from='''+
你的路径 +'''';
QryTmp.execsql;
database1.connect:=true;//
end; end;