N
nzfsoft
Unregistered / Unconfirmed
GUEST, unregistred user!
界面上有如下控件:
一、DBexpressConnection(2个)
1.SQLCn 2.TmpCn
其中SQlCn连接到用户数据库ICSALER,TmpCn连接到MASTER数据库
二、一个ClintDataset。(名字为 C)
=======================
备份成功:
恢复操作:
procedure TForm1.Button2Click(Sender: TObject);
var SQL,FileName,s:string;
R:integer;
begin
s:='';
d.InitialDir :='C:/';
d.Filter :='*.mdb|*.mdb';
d.Title :='OKOKOKOKO';
d.Execute ;
FileName:=d.FileName;//获取的文件名字与路径
C.Close ;
SQLcn.Close;
TmpCn.Close ;
tmpcn.ExecuteDirect( 'ALTER DataBase IcSaler SET SINGLE_USER ');//这句时死机
SQL:='restore database icsaler from disk='+''''+FileName+'''';
R:=TmpCn.ExecuteDirect(SQL);
Showmessage('R='+Inttostr(R));
tmpCN.Open ;
end;
我已经把其它连接关闭了。只打开连接到Master库的TempCon,但是为什么不可以备份呢?
一、DBexpressConnection(2个)
1.SQLCn 2.TmpCn
其中SQlCn连接到用户数据库ICSALER,TmpCn连接到MASTER数据库
二、一个ClintDataset。(名字为 C)
=======================
备份成功:
恢复操作:
procedure TForm1.Button2Click(Sender: TObject);
var SQL,FileName,s:string;
R:integer;
begin
s:='';
d.InitialDir :='C:/';
d.Filter :='*.mdb|*.mdb';
d.Title :='OKOKOKOKO';
d.Execute ;
FileName:=d.FileName;//获取的文件名字与路径
C.Close ;
SQLcn.Close;
TmpCn.Close ;
tmpcn.ExecuteDirect( 'ALTER DataBase IcSaler SET SINGLE_USER ');//这句时死机
SQL:='restore database icsaler from disk='+''''+FileName+'''';
R:=TmpCn.ExecuteDirect(SQL);
Showmessage('R='+Inttostr(R));
tmpCN.Open ;
end;
我已经把其它连接关闭了。只打开连接到Master库的TempCon,但是为什么不可以备份呢?