最近写了一个数据库备份程序,总是失败,希望大虾指点!

Bozs2004 2006-10-09 01:50:52
try
BS:=TBackupSink.Create;
MySQLServer:=coSQLServer.Create;
MyBackUp:=coBackUp2.Create;
MySQLServer.Connect(strServerName,strUserID,strUserPass);;
MyBackUp.Database:=strDatabaseName;
MyBackUp.Initialize:=true;
MyBackUp.PercentCompleteNotification:=1;
MyBackUp.Action:=0;//0完整备份,1差异备份,2文件组备份,3日志备份
MyBackUp.Files:=trim(edtFileDir.Text);
InterfaceConnect(MyBackUp, IID_BackupSink, BS, FInterfaceConnection);//关键是这里
MyBackUp.SQLBackup (MySQLServer);
InterfaceDisconnect(MyBackUp, IID_BackupSink,FInterfaceConnection);//
except
Forms.application.MessageBox('数据库备份失败!',pchar(Forms.Application.title),64);
exit;
end;

Forms.application.MessageBox('数据库备份完毕!',pchar(Forms.Application.title),64);
ProgressBar1.Position:=0;
end;
...全文
237 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
frankzhenglei 2006-10-09
  • 打赏
  • 举报
回复
如果要备份到客户机必须共享一个目录让服务器做映射,否则备份都会失败
Bozs2004 2006-10-09
  • 打赏
  • 举报
回复
有人知道吗?
Bozs2004 2006-10-09
  • 打赏
  • 举报
回复
主要是备份到客户机时失败
备份到服务器上没问题
Bozs2004 2006-10-09
  • 打赏
  • 举报
回复
MyBackUp.SQLBackup (MySQLServer);

问题好像出现在这部分

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧