Question

为什么delphi总是报错，adoquery1:field '家庭地址'not found? 可以运行的，但是操作都不成功

procedure TForm5.SpeedButton1Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='select 学号 from change where 学号='+quotedstr(trim(edit1.Text));
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add(sqlstr);
adoquery1.Open;
if trim(edit1.Text)=trim(adoquery1.fieldbyname('学号').AsString) then
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('变动时间').AsDateTime :=self.DateTimePicker1.DateTime ;
ADOQuery1.Post;
showmessage('保存成功!');
end;
end;

Answer 1

我在想这个个错误是不是这代代码报出来的？如果是，有可能是因为你某一个控件连接着adouqyer1，而在你没执行这段代码时，控件上显示着数据，而且这个控件指向了字段“家庭地址”
当你执行open的时候就报上面的错误了；存在可能有：
1.dbgrid设置了固定列
2.dbedit之类的控件绑定了"家庭地址“列

Answer 2

'select 学号 from change where 学号='+quotedstr(trim(edit1.Text));语句中并不包含"变动时间"字段,什么去保存ADOQuery1.FieldByName('变动时间').AsDateTime :=self.DateTimePicker1.DateTime ;呢?
经过 adoquery1.SQL.Add(sqlstr);语句之后,ADOQuery1中只有"学号"一个字段,对其它字段操作都是不可以的.
把这一句改一下:
sqlstr:='select 学号 from change where 学号='+quotedstr(trim(edit1.Text));
改为sqlstr:='select 学号,变动时间,家庭住址 from change where 学号='+quotedstr(trim(edit1.Text));
这个判断也可以不要
if trim(edit1.Text)=trim(adoquery1.fieldbyname('学号').AsString) then
因为已经有:where 学号='+quotedstr(trim(edit1.Text));

Answer 3

liu55721说的对，也可将'select 学号 from change .....' 改为'select * from change ......'。