ADO 数据库的备份和还原

[wawanihao]

我是用ADO连接SQL数据库的，服务器就是自己机子的名字，比如KLE，用SQL的服务器建了一个库
library（图书馆信息管理系统），存于E盘的study的目录下。现在如果我让程序再另一台机子上运行
我应该怎么备份和还原数据库啊，就是把那个库一起考走，然后在别的机子上也可以用。

[wawanihao]

直接选择数据库备份还原就可以了吗？

[topforver]

企业管理器 -->备份数据库-->目的那里选择 添加-->选择保存的目录 -->确定就可以了。


-->还原数据库-->选择从设备-->选择设备-->添加，找备份的哪个文件,确定

[smiler007]

以“备份”为关键字在CSDN里搜索....

[oracle100]

那要是要在自己编写的程序中用DELPHI来备分和恢复呢，请各为老大指点一下

[duan24]

你用ADO开发的《图书馆信息管理系统》,要在别的计算机上用，如两台计算机在同一局域网内，不用备份数据库，只须把应用程序的存放路径与你所开发应用程序的保存路径保持一致即可访问你所开发的那台计算机的数据库。

[godear]

企业管理器中操作, 简单方便

[wawanihao]

topforver(辉) 讲的办法不行啊～
备份完生成一个backup文件，还原的时候通不过，比如说原来我的数据库放在E盘的study下，现在还原那个文件夹就不存在了。说什么不是单用户状态

[wawanihao]

恳请大家帮忙

[Open2ye]

还原时，要选择路径的，
把路径选到指定位置。


还原失败，原因可能是路径找不到

[advancejar]

搜 数据库备份

还原时有个存储过程切断当前连接的

[abcdefgdeng]

还原时，要选择路径的，
把路径选到数据库存放位置。
比如E:\study

[helodd]

用语句语句
use master
go
BACKUP DATABASE Northwind
TO DISK = 'c:\Northwind.bak'

go

RESTORE DATABASE TestDB
FROM DISK = 'c:\Northwind.bak'
WITH MOVE 'Northwind' TO 'c:\test\testdb.mdf',
MOVE 'Northwind_log' TO 'c:\test\testdb.ldf'
GO

[wnnnnnn6]

"让程序再另一台机子上运行":
是生成的可执行文件呢?还是在另一台机子调试原程序呢?

[wawanihao]

是生成可执行文件～
继续试验中

[steelxu5]

如果用企业管理器的话，试一下先在该新的服务器上建一个数据库，注意，保证名字和各设置与原数据库一致，方可恢复

[slxj88]

给个例子吧! 其他自己改改吧!
//===备份数据库
procedure TDBBakResFrm.BtnDBBakClick(Sender: TObject);
var
DB:String;
begin
if (edt_DataPath.Text <> '') and (ListBoxDb.Items.Text <> '') then
begin
DB := trim(ListBoxDb.Items[ListBoxDb.ItemIndex]);
if ADOConn.Connected then
ADOConn.Connected := false;
with ADOCom do
begin
try
MMInfo.Lines.Clear;
MMInfo.Lines.Add('正在备份数据库中，请稍后......');
CommandText := 'use Master';
Execute;
CommandText := 'execute sp_helpdevice';
Execute;
CommandText := 'backup database ' + DB + ' to disk=''' + trim(edt_DataPath.Text) +'\'+ DB + FormatDateTime('yyyymmddhhmmss',Now) +'.Bak'+ ''' with init';
Execute;
CommandText := 'Use ' + DB;
Execute;
MMInfo.Lines.Add('');
MMInfo.Lines.Add('恭喜您！数据库已经备份成功！');
MessageBox(Handle,'备份成功！','信息提示！',MB_OK+MB_ICONINFORMATION);
ADOConn.Connected := true;
except
MMInfo.Lines.Add('');
MMInfo.Lines.Add('不好意思！数据库已经备份失败！');
MessageBox(Handle,'备份失败,请重新测试服务器！','信息提示！',MB_OK+MB_ICONERROR);
end;
end;
end
else
begin
MMInfo.Lines.Add('数据库未连接成功......!');
MessageBox(Handle,'数据库备份路径不能为空，请选择！','信息提示！',MB_OK+MB_ICONINFORMATION);
edt_DataPath.SetFocus;
end;
end;

/===还原数据库
procedure TDBBakResFrm.BtnResDbClick(Sender: TObject);
var
DB:String;
begin
DB := Cb_DbList.Text;
if Cb_DbList.Text = '' then
begin
MessageBox(Handle,'还原数据库名不能为空，请选择！','信息提示！',MB_OK+MB_ICONINFORMATION);
Cb_DbList.SetFocus;
Exit;
end
else if edt_ReDataPath.Text = '' then
begin
MessageBox(Handle,'原备份文件不能为空，请填写！','信息提示！',MB_OK+MB_ICONINFORMATION);
edt_ReDataPath.SetFocus;
Exit;
end
else
begin
if ADOConn.Connected then
ADOConn.Connected := false;

with ADOCom do
begin
try
CommandText := 'use Master';
Execute;
CommandText := 'restore database ' + DB + ' from disk=''' + trim(edt_ReDataPath.Text) + ''' with replace';
Execute;
CommandText := 'use ' + DB;
Execute;
MessageBox(Handle,'还原成功！','信息提示！',MB_OK+MB_ICONINFORMATION);
ADOConn.Connected := true;
except
MessageBox(Handle,'还原失败,请重新测试服务器！','信息提示！',MB_OK+MB_ICONERROR);
end;
end;
end;
end;