导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2003/11/9 17:06:44
标题:
加入我的收藏
楼主:
我想在edit1.text中显示ACCESS中行的数目, 怎样现实?
----------------------------------------------
-
作者:
2003/11/9 18:11:31
1楼:
Query.RecordCount 或者你用SQL查 select count(*) as ... from ... 推荐第1个!
----------------------------------------------
-
作者:
2003/11/9 19:11:59
2楼:
procedure TForm1.FormActivate(Sender: TObject); var online:integer; begin online:=dm_main.ADOQuery.RecordCount; dbtext1.Caption:=inttostr(online); end; 可以吗?为什么会出错呢?
----------------------------------------------
-
作者:
2003/11/9 19:38:13
3楼:
你的dbtext1是何控件,有Caption这个属性吗?应该是TEXT属性才对吧!
----------------------------------------------
-
作者:
2003/11/9 19:51:36
4楼:
Data Controls 页有这个组件啊,有caption 没有 text 属性啦~~
----------------------------------------------
-
作者:
bryan (bao)
★☆☆☆☆
-
盒子活跃会员
2003/11/9 20:08:13
5楼:
Tdbtext也没有caption属性,换label吧.
----------------------------------------------
-
作者:
2003/11/9 20:27:21
6楼:
我试过了,换了label只显示 1 ,其实不只一行啊~~
----------------------------------------------
-
作者:
bryan (bao)
★☆☆☆☆
-
盒子活跃会员
2003/11/9 20:50:13
7楼:
你就在online:=dm_main.ADOQuery.RecordCount;设置断点看看online 的值是不是1,不是的话,那就是label后边被遮住了,如果是1, 哼哼!就要怀疑你这句了"其实不只一行啊~~ ";
----------------------------------------------
-
作者:
2003/11/9 21:55:08
8楼:
procedure TForm1.FormActivate(Sender: TObject); begin with adoquery1 do begin close; sql.Clear; sql.Add('select * from admin'); open; label1.Caption:=inttostr(recordcount); end; end; 原来是这样~~
----------------------------------------------
-