定义一个公用的进程，访问数据库

定义一个公用的过程，访问数据库

procedure Tfmbook.tabsheetjsShow(Sender: TObject);
begin
self.etrq.Text :=datetostr(date);
self.aopen(self.adqxs,'select * from xs');
end;
procedure tfmbook.aopen(adoq: TADOQuery; str: string);
begin
adoq.Active :=false;
adoq.SQL.Clear ;
adoq.SQL.Add(str);
adoq.Active :=true;
end;
这是我定义的一个过程，在运行了之后，在adoq.Active :=true;这一句出现了错误，是“stream read error"
不知道是怎么回事，我也找不出是到底是什么问题，请大家帮忙……
------解决方案--------------------------------------------------------
该回复于2009-06-19 09:21:45被版主删除
------解决方案--------------------------------------------------------
gjajsfaj