关于数据备份的问题----本人很急!!!!! 怎么用SQL语言加DELPHI去做个原代码的数据备份的效果!!用到的控件与原代码一并提出!!!!多谢拉!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 备份原代码你道是可以设置备份工程文件然后根据工程文件中包括的.pas文件路径查找文件进行备份但是,若要备份控件如果是.pas的控件倒还是方便但安装程序的控件怎么备份,可能还是不容易搞定 转贴:恢复操作的时候,要把当前的数据库连接关闭,通过另一个TADOConnection连接到Master数据库上1. ADOConnection1 连接你的业务数据库。2. ADOConnection2 连接 MASTER 数据库。3. ADOCommand1.Connection := ADOConnection2;假设你的数据库名为: DataBaseNameButton.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; 如果只是数据备份的话,可用COPYFILE,简单、方便 软件问题----在Windows XP SP3下!!! 请教一客户选择问题 如何比较两副bmp图片是否一样,不是模式识别,算法要快? interbase 的存储过程 简单问题 又谁教教我怎么吧.h文件转换为.pas 各位大神,我想做一个类似任务栏一样的窗体谁有好的解决方法啊 大家帮忙,给介绍去那里能找到电子版的delphi书籍谢谢大家了 150求,如何在delphi中控制打印机的走纸? 用installshield制作安装文件时,如何装入OCX组件? 高兴,散分(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;