紧急急救

Question

procedure TForm3.SpeedButton5Click(Sender: TObject);
var
  AQuery:TADOQuery;
  StrSql:String;begin
  AQuery:=TADOQuery.Create(nil);
  AQuery.Connection:=DMForm.ADOConnection;
  AQuery.Close;
  DateTimePicker.Date:=DateTimePicker.Date-1;
  label1.Caption:=DateToStr(DateTimePicker.Date);
  StrSql:='Select * from TABLE_rj where rjdate='''+Label1.Caption+'''';
  AQuery.SQL.Text:=StrSql;  try
    AQuery.ExecSQL;
  except
    Application.MessageBox('系统忙，稍后再试！','提示'
          ,MB_ICONINFORMATION+MB_OK);
        exit;
  end;
  RichEdit.Text:=AQuery.FieldByName('memo').AsString;
  DateTimePicker.Date:=strtodate(AQuery.fieldbyname('rjdate').AsString);
  AQuery.Free;
end;以上是我写的查询付值
我把时间为Label1.Caption的从数据库中查出来
显示在一个RichEdit控件 和一个DateTimePicker控件上
他老是提示没有字段
请问这是什么错误呀

Answer 1

  RichEdit.Text:=AQuery.FieldByName('memo').AsString;
出错， 说没有MEMO这个字段可是我做添加就没有问题。就查询有问题