请问这个错误怎么解决？

Question

代码如下:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from tb1 where ID is not null');
query1.Open;
query2.close;
query2.SQL.Clear;
query2.SQL.Add('update tb2 set D01 =''' + IntToStr(query1.Recordcount) + '''');
query2.execsql;RvProject1.Execute;
end;
end.用的是delphi7 自带的Rave做的报表  报表是显示数据库tb2的每一项数据

Answer 1

图片链接
http://hiphotos.baidu.com/%BA%DA%C6%EF%D2%E3%BB%A4/pic/item/cb8bdbdf1c67920062279823.jpghttp://hiphotos.baidu.com/%BA%DA%C6%EF%D2%E3%BB%A4/pic/item/08493a1f18a535e6e1fe0b23.jpg

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
query1.SQL.Clear; 
query1.SQL.Add('select * from tb1 where ID is not null'); 
query1.Open; 
{
query2.close; 
query2.SQL.Clear; 
query2.SQL.Add('update tb2 set D01 =''' + IntToStr(query1.Recordcount) + ''''); 
query2.execsql; }
RvProject.open;
RvProject1.Execute; 
end; 
end. 
你的图片并不能说明什么，我这么做只是让你检查错误出在那儿，
另外RvProject的ProjectFile属性是否与对应的Rav文件关联

Answer 3

query2.SQL.Clear; 
query2.SQL.Add('update tb2 set D01 =' + IntToStr(query1.Recordcount) + '); 
query2.execsql; 

Answer 4

{ 
query2.close;  
query2.SQL.Clear;  
query2.SQL.Add('update tb2 set D01 =''' + IntToStr(query1.Recordcount) + '''');  
query2.execsql; }RvProject的ProjectFile属性关联没有问题实在不知上面这句错在哪？请指教！谢谢了

Answer 5

从错误代码上的字面意思看是创建资源句柄错误，可能是你的rave的设置问题．
或许是你上面的query2是没有返回数据的，如果这个也用报表输出可能是这里出错。

Answer 6

SQL语名好像没错,
是不是错在:RvProject1.Execute; 

Answer 7

我把sql语句都先不用 单独用RvProject1.Execute; 
来显示数据库是没有问题的！ 

Answer 8

query2.SQL.Clear; 
query2.SQL.Add('update tb2 set D01 =''' + IntToStr(query1.Recordcount) + ''''); 
query2.execsql; 
这句错了，query2.SQL.Add('update tb2 set D01' + IntToStr(query1.Recordcount)); 

Answer 9

具体问题好像不出在这
query2.close;   
query2.SQL.Clear;   
query2.SQL.Add('update tb2 set D01 =2');   
query2.execsql;RvProject1.Execute; 这样也会出同样的错~