■■■■显示记录统计数可以使用adodataset1.recordcount,如果需要在LABEL上显示查询的字段值该怎么写？■■■■

Question

Label1.Caption := AdoDataSet1.Fields.Fields[0].AsString;

Answer 1

求记录值：     
strquery:='select * from aaa';
     adodataset1.active:=false;
     adodataset1.CommandText:=strquery;
     adodataset1.Active:=true;
     label.caption:='表中有'+inttostr(adodataset1.recordcount)+'条记录');
求字段值
     strquery:='select * from aaa where mc='tom';
     adodataset1.active:=false;
     adodataset1.CommandText:=strquery;
     adodataset1.Active:=true;
     label.caption:=??????????????

Answer 2

我的代码就是不知道哪该大写，与icesnow0(lsicesnower）相比，我太菜！！！

Answer 3

icesnow0(lsicesnower）ORA-00914无效列名

Answer 4

icesnow0(lsicesnower）
怎么办？按你的方法，报错：ORA-00914无效列名

Answer 5

*************************************************************
procedure TForm1.BitBtn2Click(Sender: TObject);
 var
  i:integer;
  strquery:string;
 begin
  memo2.lines.clear;
   begin
    for i:=0 to memo1.lines.count-1 do
     begin
       strquery:='select * from service where name='+memo1.Lines[i];
       adodataset1.active:=false;
       adodataset1.CommandText:=strquery;
       adodataset1.Active:=true;
        begin
        memo2.lines.Add(memo1.lines[i]+'表中有'+inttostr(adodataset1.fields[0].asstring)+'条记录');
       end;
     end;
     END;
     
   end;
************************************************************
这段错哪了？？？？

Answer 6

应如此：
strquery:='select * from service where name='''+memo1.Lines[i]+'''';

Answer 7

我的程序不报错就是没结果。请问cyai(cyai）这么多引号可否解释