delphi 如何获取sql查询统计的出来的值？

[zengwj1537]

sql语句如图，
我通过SQL查询得到了 total_title 的值是187
我想在delphi 直接使用这个值，赋值在edit1上面，结果报错，说找不到字段“ total_title”

不知道我哪里出错，请高手指导一下，谢谢

procedure TForm1.Button8Click(Sender: TObject);
var
  q4,q5: TQuery;
  str:string;

begin
  Database1.Connected := true;
  q4:= Tquery.Create(nil);
  q4.DatabaseName := database1.DatabaseName;
  with q4 do
    begin
      str:= 'select count(distinct qshm) as total_title from t_inv_title';
      Close;
      SQL.Clear;
      SQL.Add(str);
      Edit1.Text:=fieldbyname('total_title').AsString;
      Open;
    end;
   
end;

[a215107822]

。。。你都没open - - 就先获取他的值了，当然会报错啦

[海阔天空1977]

Open; Edit1.Text:=fieldbyname('total_title').AsString; 这样就可以了！

[FlashDance]

Close;再Clear; 这个Close纯属多余，Clear本身就会Close

[骑牛上铂金]

先要打开数据集，才能获取 其中的返回值！

[sum008]

procedure TForm1.Button8Click(Sender: TObject); var q4,q5: TQuery; str:string; begin Database1.Connected := true; q4:= Tquery.Create(nil); q4.DatabaseName := database1.DatabaseName; with q4 do begin str:= 'select count(distinct qshm) as total_title from t_inv_title'; Close; SQL.Clear; SQL.Add(str); Open; Edit1.Text:=fieldbyname('total_title').AsString; end; end;

[程晨c]

[缘中人]

Edit1.Text:=fieldbyname('total_title').AsString; Open; 顺序调整一下

[丨imgeek丨]

[zengwj1537]

引用 2 楼 nmgyjw 的回复:

Open; Edit1.Text:=fieldbyname('total_title').AsString; 这样就可以了！

可以了，谢谢哈

[zengwj1537]

引用 7 楼 ksrsoft 的回复:

Edit1.Text:=fieldbyname('total_title').AsString; Open; 顺序调整一下

好的，谢谢

[zengwj1537]

引用 1 楼 a215107822 的回复:

。。。你都没open - - 就先获取他的值了，当然会报错啦

多谢您的建议，

[zengwj1537]

引用 5 楼 sum008 的回复:

procedure TForm1.Button8Click(Sender: TObject); var q4,q5: TQuery; str:string; begin Database1.Connected := true; q4:= Tquery.Create(nil); q4.DatabaseName := database1.DatabaseName; with q4 do begin str:= 'select count(distinct qshm) as total_title from t_inv_title'; Close; SQL.Clear; SQL.Add(str); Open; Edit1.Text:=fieldbyname('total_title').AsString; end; end;

感谢感谢

[zengwj1537]

引用 3 楼 FlashDance 的回复:

Close;再Clear; 这个Close纯属多余，Clear本身就会Close

额，，，这是个好问题。