各位大侠,我用 sqlserver语句备份数据库发现一个奇怪问题
语句如下:
qrystr:=' BACKUP DATABASE lsy TO disk='''+tempstr+''''+' with init,stats';qrystr:='use master restore database lsy from disk='''+tempstr+''''+' with Replace ';
现在的问题是
我将 数据库lsy 备份好后
从数据库lsy 中删除一个表yz
然后恢复数据库,按道理数据库中应有表yz
但是没有,想不通
谢谢
语句如下:
qrystr:=' BACKUP DATABASE lsy TO disk='''+tempstr+''''+' with init,stats';qrystr:='use master restore database lsy from disk='''+tempstr+''''+' with Replace ';
现在的问题是
我将 数据库lsy 备份好后
从数据库lsy 中删除一个表yz
然后恢复数据库,按道理数据库中应有表yz
但是没有,想不通
谢谢
解决方案 »
- 怎么样写打印几份Execl表
- 请问如何将DBgrid控件的行和列颠倒,即第一列显示固定表头信息,同时将第一行按照数据库查询数据动态生成,谢谢????????
- 一个调用问题
- 哪位朋友有SplashForm->LoginForm->MDIForm->ChildForm的程序段贴出来给我看看好吗?我将万分感激。在此献上100分了表谢意。
- 大家帮看看我要实现这个功能用什么控件好?
- 插入数据时ADO为什么比BDE慢3倍左右
- 如何消除TABLE中的重复项?高手请帮忙,很急!!!
- 高手不能错过的问题,,,delphi 中如何实现条件编译???????????
- 高手快来帮忙!!!如何调用windows 中的查找功能,我想利用它的在文件中包含文字功能
- 用的是什么数据库???
- 大家也谈谈初学delphi 的方法,和delphi的前景如何?
- kbmMW2.61 提交SQL到数据库时的问题 三个字变为一个半字
procedure Tsjwh.BitBtn1Click(Sender: TObject);
var qrystr,tempstr:string;
begin
if trim(bftx1.Text)=''
then
begin
messagebox(handle,pchar('请先输入备份数据库目录!'),pchar('信息!'),64);
bftx1.SetFocus;
end
else
begin //1
qrystr:='';tempstr:='';
tempstr:=trim(bftx1.Text);
qrystr:=' BACKUP DATABASE lsy TO disk='''+tempstr+''''+' with init,stats'; adotemp.Close;
adotemp.SQL.Clear;
adotemp.SQL.Add(qrystr);
try
adotemp.ExecSQL;
messagebox(handle,pchar('数据库备份成功!'),pchar('信息!'),64);
except
messagebox(handle,pchar('备份数据库失败!'),pchar('信息!'),64);
end;
end;//1end;procedure Tsjwh.BitBtn3Click(Sender: TObject);
var qrystr,tempstr,tempstr1:string;
len:integer;
kg:integer;
begin
kg:=0;
kg:=messagebox(handle,pchar('您确定恢复数据库吗?'),pchar('是否恢复?'),mb_yesNo+mb_iconquestion+mb_defbutton2); if kg=6
then
begin // 恢复1
if trim(hftx1.Text)=''
then
begin
messagebox(handle,pchar('请先输入备份数据库的目录!'),pchar('信息!'),64);
hftx1.SetFocus;
end
else
begin //1
qrystr:='';tempstr:=''; tempstr1:='';
tempstr:=trim(hftx1.Text);
len:=0;
len:=length(tempstr)-3;
tempstr1:=copy(trim(hftx1.Text),len,4);
if tempstr1<>'.bak'
then
begin //11
messagebox(handle,pchar('请输入有效的数据库文件!'),pchar('信息!'),64);
hftx1.SetFocus;
end//11
else
begin //22
tempstr:=trim(hftx1.Text);
qrystr:='use master restore database lsy from disk='''+tempstr+''''+' with Replace ';
adotemp.Close;
adotemp.SQL.Clear;
adotemp.SQL.Add(qrystr);
try
adotemp.ExecSQL;
messagebox(handle,pchar('数据库恢复成功、重新启动程序!'),pchar('信息!'),64); main.close; except
messagebox(handle,pchar('恢复数据库失败!'),pchar('信息!'),64);
end; end;//22
end;//1
end;//恢复2
end;