分享：实现带进度条的数据库备份！(SQL Server) 找a9财务软件免费版
先导入SQLDMO生成SQLDMO_TLB.pas文件
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,SQLDMO_TLB, StdCtrls, ComCtrls,comobj;
type
TForm3 = class(TForm)
Button1: TButton;
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TBackupSink=class(TInterfacedobject,backupsink)//实现接口
function PercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
function NextMedia(const Message: WideString): HResult; stdcall;
function Complete(const Message: WideString): HResult; stdcall;
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
function TBackupSink.PercentComplete(const Message: WideString; Percent: Integer):HResult;
begin
Form3.ProgressBar1.Position:=percent;
result:=0;
end;
function TBackupSink.NextMedia(const Message: WideString):HResult;
begin
result:=-1;
end;
function TBackupSink.Complete(const Message: WideString):HResult;
begin
result:=1;
end;
procedure TForm3.Button1Click(Sender: TObject);
var
MySQLServer:SQLServer;
MyBackUp:BackUp2;
MyBackSink:TBackupSink;
FInterfaceConnection:integer;
BS:TBackupSink;
begin
BS:=TBackupSink.Create;
MySQLServer:=coSQLServer.Create;
MyBackUp:=coBackUp2.Create;
MySQLServer.Connect(＇＇192.169.1.10＇＇,＇＇sa＇＇,＇＇password＇＇);;
MyBackUp.Database:=＇＇DBA＇＇;
MyBackUp.Initialize:=true;
MyBackUp.PercentCompleteNotification:=1;
MyBackUp.Action:=0;//0完整备份，1差异备份，2文件组备份，3日志备份
MyBackUp.Files:=＇＇d:＼dba.bak＇＇;
InterfaceConnect(MyBackUp, IID_BackupSink, BS, FInterfaceConnection);//关键是这里
MyBackUp.SQLBackup (MySQLServer);
InterfaceDisconnect(MyBackUp, IID_BackupSink,FInterfaceConnection);//
BS.free;
end;
end.
2楼: backupsink 找不到 如速达财务软件的使用
3楼: backupsink就在SQLDMO_TLB.pas里，定义了接口！
4楼: 不错，支持，顶一下。
另外，楼主SQLServer是什么控件？哪里下载？
5楼: SQLServer不是控件，包括backupsink,都是COM，是微软SQLDMO中定义众多接口中的一个。
6楼: 哦，那如何导入生成SQLDMO_TLB文件呢？选择哪个com接口？
进销存软件版7楼: 抄一个
打开Delphi,Project菜单->Import Type Library...,在列表框中找到＂Microsoft SQLDMO Object
Library(Version 8.0)＂(你的版本可能和我的不一样),可以看到Class names列表框中显示出相应的类,
由于很多类名与vcl本身的类名冲突(比如TApplication,TTable等),需要修改类的名称,不过不改也没关系,
这里假设没改,点击按钮＂Create Unit＂,进入漫长的等待过程。由于生成的文件比较大(6万多行的代码,
2.46M),这个过程很容易被误认为死机,稍候片刻。
第二步,修改Type Library文件。
经过漫长的等待,终于得到了来之不易的SQLDMO_TLB.pas,然而,当我们Compile的时候却发现这个单元
无法编译,提示大意为ID重复定义,这个简单,把第二个ID改成xID,编译通过。
8楼: [:D]谢谢，试试去。
9楼: 我也实现了了有进度条的备份，不过并非使用COM的方法，而是使用了服务器消息(就好像在查询分析器是输入一个错误语句时会返回第几行错误的红色错误提示)，主要是因为没有测试过SQLDMO在Win98下能不能使用。
10楼: [Error] Project1.dpr(11): Object or class type required
错误提示是那边出错了啊怎么改啊！
11楼: 顶
12楼: 那带进度条的数据库还原怎么实现啊，
有那位高人实现过啊？ 如简单财务软件
13楼: 将backup2改成restore2，backupsink改成restoresink，其他相应改改，应该可以的
进销存软件版14楼: 如何把一个较大的数据库备份到多个文件中 譬如把 ABC数据库备份到 ABC1.dat ABC2.Dat ABC3.Dat中或者 能否让它自动生成多个备份文件
同样如何从多个文件中恢复数据库
15楼: 没看明白
16楼: 测试过，可以用，谢谢楼主！谁要demo我可以发！
17楼: to:pengfeiyan兄
传为我一份吧，研究一下tonyliu398@hotmail.com
18楼: to 楼主
类的名称不修改可不可以？？ 还有要等多长时间呀？？？
我按三个键时显示没有响应啊!!
19楼: 刚才生成好了，可是我编译时抱错呀:
[Error] SQLDMO_TLB.pas(12630): Identifier redeclared: ＇＇ID＇＇
[Fatal Error] Unit1.pas(7): Could not compile used unit ＇＇..＼..＼..＼..＼Program Files＼Borland＼Delphi7＼Imports＼SQLDMO_TLB.pas＇＇
20楼: to yuanyoufa,
找到出错的地方，将ID改成IXD/CFD等什么的，不要和其他的重复就行了。
进销存软件版21楼: 哪些仁兄可以帮忙测试一下使用 SQLDMO 备份能不能在 Win98 下使用？？
22楼: 我也出现这样的错误：
[Error] Project1.dpr(11): Object or class type required
请问要怎么改 如a9财务软件免费版
23楼: 我刚才试过了,也是报告那样的错误!
24楼: 也是报告sailor904的错误!!
25楼: 帮顶!
http://www.source520.com
站长开发推广同盟 站长朋友的终极驿站
同时拥有海量源码电子经典书籍下载
http://www.source520.com/search/search.asp
＂编程.站长＂论坛搜索引擎-----为中国站长注入动力!
26楼: 虽然我还未用,但非常支持楼主的做法和精神
27楼: to:pengfeiyan兄
传为我一份吧，研究一下willing66@163.com，MSN：willing66@163.com
进销存软件版28楼: to:pengfeiyan兄
to:pengfeiyan兄
传为我一份吧，研究一下y81@sogou.com. Y-Authentic@hotmail.com
29楼: 確實可以，謝謝樓主
30楼: to:pengfeiyan兄
传为我一份吧，研究一下guangwen00@126.com
31楼: to:pengfeiyan兄
传为我一份吧，研究一下gmiyou@yeah.net
32楼: 测试通过,很不错~!
支持楼主的做法和精神
33楼: to:pengfeiyan兄
传为我一份吧，研究一下goldme2010@qq.com
34楼: 顶。好东西！！也给俺一份
sytgoodluck@163.com
进销存软件版35楼: to:pengfeiyan兄
也给俺一份,我到现在还没有搞好呢
afa1981128@163.com
36楼: 请问要学DELHPI要从那里入手。
37楼: 也给俺一份wls.ah@tom.com,谢谢!
38楼: to:pengfeiyan兄
rblong@163.com
谢谢
39楼: 也给我一份吧，liuzuofei@126.com
谢谢！
40楼: to:pengfeiyan兄
lybayy@126.com
谢谢
41楼: 有创意啊！
进销存软件版42楼: 我也出现这样的错误：
[Error] Project1.dpr(11): Object or class type required
请问要怎么改
我也是这样错误!可以传一份给我吗
caiwenwen5411@163.com
43楼: Error] Project1.dpr(11): Object or class type required
错误的，新建单元后,把代码考进去就可以了!
44楼: 我怎么还是运行的时候报告错误啊，[sql-dmo]代码执行异常错误，exception_access_viloation
谁发封DEMO给我吧 ！xuminjob@126.com
45楼: 在座的那位兄弟有编译好的例子，希望能给我发一份代码研究研究，我的信箱sunboy8848@21cn.com
我编译出现如下错误，希望能有那位高人指点一下：
[Error] Un_DataBaseBackup.pas(30): Identifier redeclared: ＇＇TBackupSink.PercentComplete＇＇
[Error] Un_DataBaseBackup.pas(31): Undeclared identifier: ＇＇percent＇＇
[Error] Un_DataBaseBackup.pas(32): Undeclared identifier: ＇＇result＇＇
[Error] Un_DataBaseBackup.pas(36): Identifier redeclared: ＇＇TBackupSink.NextMedia＇＇
[Error] Un_DataBaseBackup.pas(41): Identifier redeclared: ＇＇TBackupSink.Complete＇＇
[Error] Un_DataBaseBackup.pas(22): Unsatisfied forward or external declaration: ＇＇TBackupSink.PercentComplete＇＇
[Error] Un_DataBaseBackup.pas(23): Unsatisfied forward or external declaration: ＇＇TBackupSink.NextMedia＇＇
[Error] Un_DataBaseBackup.pas(24): Unsatisfied forward or external declaration: ＇＇TBackupSink.Complete＇＇
[Fatal Error] DataBaseBackup.dpr(6): Could not compile used unit ＇＇Un_DataBaseBackup.pas＇＇
46楼: 很欣赏楼主，，，，。本人还在努力中。。。
47楼: 把恢复的代码贴出来呀. 我的恢复只有在备份那台电脑可以恢复呀. 换台电脑就不行呀.
48楼: to: goodbobi
你出现这个错误的原因是因为还原回来的数据库路径不对。
比如：你在原来的那台机子的存放路径是d:＼database＼xxx.mdf 还原的时候它要把你
的数据库还原到d:＼database这个路径下。但是你在别的机子上并没有d:＼database 这个路径所以还原的时候它就会报错。
进销存软件版49楼: 这段代码在服务器机上使用没有问题
而在客户机上就总是备份失败
并指出问题似乎在这句上 MyBackUp.SQLBackup (MySQLServer);
50楼: to:pengfeiyan兄
pqsxd@qq.com
谢谢 !!
51楼: 各位朋友：
我怎么运行出错：[sql-dmo]代码执行异常错误，exception_access_viloation
上microsoft网站去看了解决方法：升级sql到sp1版本，我现在都升级到sp4了。但还是出了这个错误。望各位指导。
另to：pengfeiyan兄
能发我一份吗？yinghui3377@hotmail.com
谢谢了！
52楼: 给我发一份吧，Email sy_why@126.com
53楼: 涓嶉敊锛岃阿璋㈡悅涓伙紒
54楼: 接受答案了.
联系我们
