Question

delphi程序调试,为什么总是找不到字段

procedure TForm1.Button1Click(Sender: TObject);
var
cmdstr1,cmdstr2:string;
begin
OraSession1.ConnectString:='oilmis/oilmis@192.168.0.111:1521:oilsim';
OraSession1.Connect;
memo1.Lines.Add('数据库连接成功！');
cmdstr1:='select max(XFBJ_ID) from YW_XFBJ';
OraQuery1.Close;
OraQuery1.SQL.Clear;
OraQuery1.SQL.Add(cmdstr1);
OraQuery1.Open;
cmdstr2:=OraQuery1.FieldByName('XFBJ_ID').AsString;
memo1.Lines.Add(cmdstr2);
end;

备注： 其中YW_XFBJ表内 XFBJ_ID 为 integer 数据类型（数据库为oracle9i）

Answer 1

cmdstr1:='select max(XFBJ_ID) from YW_XFBJ';
OraQuery1.Close;
OraQuery1.SQL.Clear;
OraQuery1.SQL.Add(cmdstr1);
OraQuery1.Open;
该sql语句执行的结果无字段名，你用cmdstr2:=OraQuery1.FieldByName('XFBJ_ID').AsString当然找不到字段名。

将cmdstr2:=OraQuery1.FieldByName('XFBJ_ID').AsString;改为cmdstr2:=OraQuery1.fields[0].AsString即可