当我点备份的时候,在backup目录下有备份文件,说明是备份成功了,但程序会报错.
adoquery:commandtext does not return a result set的错误,不知怎么办,各位能帮我一下吗???备份代码如下:
var
path:string;
begin //进行数据备份操作
path:=GetCurrentDir+'\backup\'+formatdatetime('yyyymmddhhmmss',now)+'.bak';
self.Caption:='正在备份数据...';
begin
begin
try
Data_from.adoquery.Close;
Data_from.adoquery.SQL.Clear;
Data_from.adoquery.SQL.Add('backup database data to disk='+''''+ Trim(path)+'''');
Data_from.adoquery.Active:=True;
Data_from.adoquery.open;
Application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
except
Application.MessageBox('数据库备份失败!请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
exit;
end;
end;
end;
self.Caption:='备份数据';
end;
adoquery:commandtext does not return a result set的错误,不知怎么办,各位能帮我一下吗???备份代码如下:
var
path:string;
begin //进行数据备份操作
path:=GetCurrentDir+'\backup\'+formatdatetime('yyyymmddhhmmss',now)+'.bak';
self.Caption:='正在备份数据...';
begin
begin
try
Data_from.adoquery.Close;
Data_from.adoquery.SQL.Clear;
Data_from.adoquery.SQL.Add('backup database data to disk='+''''+ Trim(path)+'''');
Data_from.adoquery.Active:=True;
Data_from.adoquery.open;
Application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
except
Application.MessageBox('数据库备份失败!请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
exit;
end;
end;
end;
self.Caption:='备份数据';
end;
解决方案 »
- 多进程插入Access数据库
- 怎样将焦点移入DbGird控件中?
- xml文件怎么根据属性值确定节点?
- MDI窗体的问题,子窗体怎么不能控制父窗体菜单的属性呢?
- 庆祝小虫当上斑竹,散分!!!(请斑竹手下留情,我会结在非技术区)
- 向其他窗口中写入字符
- Double属性为为零时为什么不存储,高手请进。
- 怎样在Dephi中实现Pc喇叭响?我用chr(7)不能实现!用汇编也不行,因为in 和out 语句出错,谁能教我怎么做?
- 欢迎访问http://CoolSlob.8u8.com More>>
- 大家在WEB编程是用Cookie吗?
- 如何用update在数据库中修改是实型的变量
- 在汇编中要调用showmessage时怎么组织参数?
Data_from.adoquery.open;
==========================================================================
改为Data_from.adoquery.ExecSQL;试一试