怎么用SQL语言加DELPHI去做个原代码的数据备份的效果!!
用到的控件与原代码一并提出!!!!
多谢拉!!!
用到的控件与原代码一并提出!!!!
多谢拉!!!
解决方案 »
- 文件转换成OleStream后怎么转回原来格式的流
- 办公系统的信息提醒—给个思路
- 控件编写:想在Width或者Height变化后执行一些功能,怎么实现?
- ★求RGB转换为LAB的算法,200分★
- 大侠们,请求帮助啊??毕业设计的事,给点意见!急,,在线等待!!
- 我要在程序中启动其它程序,并监视它运行了多久,必要时要强制中止其运行
- 为什么我的IDL2PAS程序要提示:无法定位程序输入点@CORBA_ANY@len$xqv于动态连接库ORB_BR.DLL上?救命啊!!!!!!!!!!!!!!!!
- 急急急急!!!求一个好的FTP Client 控件! NMFTP 问题太多!高手指点有高分
- 如何使用assignfile?
- ADO 与 DATA MODUAL
- 高兴,散分(2)
- 十万火急:无法更新定位行?????
然后根据工程文件中包括的.pas文件路径查找文件进行备份
但是,若要备份控件如果是.pas的控件倒还是方便
但安装程序的控件怎么备份,可能还是不容易搞定
恢复操作的时候,要把当前的数据库连接关闭,通过另一个
TADOConnection连接到Master数据库上
1. ADOConnection1 连接你的业务数据库。
2. ADOConnection2 连接 MASTER 数据库。
3. ADOCommand1.Connection := ADOConnection2;
假设你的数据库名为: DataBaseName
Button.OnClick:
begin
ADOConnection1.Connected := False;
ADOCommand1.CommandText := 'BACKUP DATABASE DataBaseName TO DISK = ' + #39 + 'C:\KKK.BAK' + #39;
ADOCommand1.Execute;
ADOCommand1.CommandText := 'ALTER DATABASE DataBaseName SET OFFLINE WITH ROLLBACK IMMEDIATE';
ADOCommand1.Execute;
ADOCommand1.CommandText := 'RESTORE DATABASE DataBaseName FROM DISK = ' + #39 + 'C:\KKK.BAK' + #39;
ADOCommand1.Execute;
ADOCommand1.CommandText := 'ALTER DATABASE DataBaseName SET ONLINE WITH ROLLBACK IMMEDIATE';
ADOCommand1.Execute;
ADOConnection1.Connected := True;
ADOTable1.Active := true;
end;