当前位置:主页>仓库管理软件> 列表

数据库备份---远程备份到本地

仓库管理软件版1楼: 我想利用SQL脚本来实现远程mySQL数据库服务器备份到本地,那位大哥能不能给点提示啊!

2楼: 我也碰到这样的问题,找了好久没找到答案。 如财务软件免费版下载

3楼: 在本地设置一个完全共享的文件夹 rwfolder
然后 back up database abc to disk = ''\\pcname\rwfolder'' with init,stats
试试应该可以

4楼: 可以用sql脚本实现,但是我不知道怎么做啊,那位大哥能不能详细说明啊

5楼: 下面是我做的一段把SQL SERVER数据库备份到本地的代码,可能代码比较难懂,详细可以在白天跟我联系(QQ:287076851 加我的时候请发"程序设计")

//TODO:处理数据备份
if CheckBoxDBF.Checked then
begin
try
try
if EditTargeDir.Text<>'''' then
begin
AdoQueryBackUp:=TAdoQuery.Create(frmDataBakup);
AdoQueryBackup.Connection:=frmDM.ADOConSQL;//frmDM.ADOConSQL是已经连接到要备份数据库的ADO连接
frmInputBox.LabelPara.Caption:=''请输入本机的Administrator密码:'';


frmInputBox.EditInput.PasswordChar:=''*'';
frmInputBox.Caption:=''请输入密码'';
if frmInputBox.ShowModal=mrok then
AdminPW:=frmInputBox.EditInput.Text;
//备份远程SQL Server到本地
try
Winexec(pchar(''net share test=''+ExtractFileDir(EditTargeDir.Text)),SW_HIDE);//共享本地保存数据的文件夹,这是必要的
except
on E:Exception do
Application.MessageBox(pchar(E.Message),''Net share ERROR'');
end;

try
Winexec(pchar(''net use \\''+PublicElement.LocalIP+''\test ''+AdminPW+'' /user:domain\Administrator''),SW_HIDE);//连接到刚才的共享,LocalIP是取得当前计算机IP的函数
except
on E:Exception do
Application.MessageBox(pchar(E.Message),''Net Use ERROR'');
end;

try
AdoQueryBackup.SQL.Clear;

AdoQueryBackup.SQL.Text:=''backup database YYFD to disk=''+''''''''+''\\''+PublicElement.LocalIP+''\test\''+ExtractFileName(EditTargeDir.Text)+'''''''';//执得备份SQL语句
AdoQueryBackup.ExecSQL;
except
on E:Exception do
Application.MessageBox(pchar(E.Message),''Backup ERROR'');
end;

//备份结束
end;
except
on E:Exception do
begin
Application.MessageBox(pchar(E.Message),''数据库备份出错'') ;
Raise;
end;
end;
finally
begin
AdoQueryBackup.Close;
AdoQueryBackup.Free;
end;
end;
Application.MessageBox(''数据库备份已经成功完成!'',''操作成功'');
end
else
if CheckBoxSQL.Checked then
begin
//TODO:将数据备份到指定其他SQL服务器中
Application.MessageBox(''程序暂时没有提供备份到其他服务器的功能!'',''提示'');
end;

6楼: 多人接受答案了。