Question

delphi7计算数据库记录数

我想统计数据库中SC表

的记录数，如果超过数量超过20，就showmessage('超过上限！');
怎么用delphi7实现这个功能，求代码

Answer 1

表的记录数可通过表的RecordCount属性获取。如表table1：
x:=table1.RecordCount;

追问

能把代码写给我看看吗，我还是不太会

追答

x:=adoquery1.RecordCount;
if x>20 then showmessage('超过上限！');

追问

追答

只有在
adoquery1.execsql; 或者 adoquery1.open; 后才能取记录数。

追问

能帮我把代码改对吗？我快要疯了

追答

试了下，只有在open过程后可获取 记录数。

procedure TForm1.Button1Click(Sender: TObject);
var
  x:integer;
begin
     query1.open;
     x:=query1.RecordCount;
     showmessage(inttostr(x));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    query1.Close;
end;

Answer 2

你这个报错，，，，其实你百度一下或许就知道了。你begin后面的第二行代码，把SQL语句清空了，语句都清空了然后还OPEN，OPEN之后又RECORDCOUNT，这么写报错很正常啊....多看点书啊