我这样写的,但是从表中删掉一些数据,恢复不了,是么原因啊 ,其中ADOConnection2连接的master数据库query := TADOQuery.Create(nil);
datamodule1.ADOConnection1.Connected:=false;
query.Connection := datamodule1.ADOConnection2;
try
query.SQL.Add('USE master');
query.SQL.Add('RESTORE DATABASE resourcemanage FROM DISK = '''+trim(form_resdata.lj.text)+''' with FILE = 1,NOUNLOAD , STATS = 10, RECOVERY '); // FILE = 1,NOUNLOAD , STATS = 10, RECOVERY
query.ExecSQL;
query.Free;
except
on E:Exception do
begin
Application.MessageBox(PChar(E.Message),'错误提示',MB_OK+MB_ICONERROR);
query.Free;
end;
end;
datamodule1.ADOConnection1.Connected:=false;
query.Connection := datamodule1.ADOConnection2;
try
query.SQL.Add('USE master');
query.SQL.Add('RESTORE DATABASE resourcemanage FROM DISK = '''+trim(form_resdata.lj.text)+''' with FILE = 1,NOUNLOAD , STATS = 10, RECOVERY '); // FILE = 1,NOUNLOAD , STATS = 10, RECOVERY
query.ExecSQL;
query.Free;
except
on E:Exception do
begin
Application.MessageBox(PChar(E.Message),'错误提示',MB_OK+MB_ICONERROR);
query.Free;
end;
end;
解决方案 »
- 已打开几个excel文档的情况下, 如何用delphi对其中一个进行读 写?
- 百度HI邀请码发放!
- 键盘钩子里,想要'-'这个键,或小键盘上的'-'这个键写到文本文件里怎么是乱码的??有没有w 知道这个键的数值码?比如F12是122这样
- 如何在delphi中向SQL生成一个SQL作业
- webbrowser
- 哪有DELPHI7下啊。在线等待。
- 给点地址下点:Tab控件 !!!在线等待
- 关于用户登录的问题?
- 怎么内嵌execel?我往form里拖进一个texcelworksheet,接着就不知道怎么做了.
- 谁能告诉我呢?
- 写了一个 ActiveX DLL ~~~因为IIS权限设置问题无法使用~~~达人请进!
- 一个简单的关于插入数据到数据库的问题
as
begin
declare @sql nvarchar(500),@temp varchar(1000)
declare @spid int
set @sql='declare getspid cursor for
select spid from sysprocesses where dbid=db_id('''+@dbname+''')'
exec (@sql)
open getspid
fetch next from getspid into @spid
while @@fetch_status =0
begin
set @temp='kill '+rtrim(@spid)
exec(@temp)
fetch next from getspid into @spid
end
close getspid
deallocate getspid
end===================================
网上常见的杀死数据库进程的存储过程,执行后在恢复即可。
但是在查询分析器上可以还原啊
procedure Tf_bk.Button3Click(Sender: TObject);
begin
adoq.SQL.Text:='use master' ;
adoq.ExecSQL;
adoq.SQL.Text:='RESTORE DATABASE analysys from disk='''+edit2.Text+''''+' with REPLACE ');try
adoq.ExecSQL;
showmessage('数据库恢复成功!');
edit2.Text:='';
button3.Enabled:=false;
except
showmessage('数据库恢复失败!');
end;
adoq.SQL.Text:='use analysys' ;
adoq.ExecSQL;
end;
谢谢hsmserver(撒哈拉之雨的悲伤) 特别是wudi_1982(︻┳═一)
马上给分