帮忙看一下这段程序
这段程序执行后出现"commandtext does not return a resulr set",应该怎么修改
procedure Tmembertimeout_Frm.FormCreate(Sender: TObject);
var
str:string;
begin
str:='select * from 会员信息 where 到期日期<='+''''+formatdatetime('yyyy-mm-dd',now())+'''';
self.ADODataSet1.Active:=false;
self.ADODataSet1.CommandText :=str;
self.ADODataSet1.Active:=True;
end; |