易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi中的LISTVIEW怎么与数据库连接

[b]如题所示,我想用LISTVIEW来显示ACCESS中的数据,应该怎样弄呢,希望能举出一个简单的实例![/b]

少了一个NEXT

Delphi(Pascal) code:

listview1.clear;
with adoquery1 do
begin
Sql.text := 'Select * from table1';
Open ;

while not eof do
begin
with listview1.items.add do
begin
caption := fieldbyName('field1').asstring;
subitems.add(fieldbyName('field2').asstring);
subitems.add(fieldbyName('field3').asstring);
subitems.add...
end;
Next;
end;
end;




Delphi(Pascal) code:

var
Item: TListitem;
begin
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
Item:= ListView1.Items.Add;
Item.Caption:= ADOQuery1.Fields[0].AsString;
Item.SubItems.Add(ADOQuery1.Fields[1].AsString);
ADOQuery1.Next;
end;



原来已有人答了,闪过

谢谢大家快速的回复!实验成功了,可能是我以前的数据控件连接有问题。

建议先倒到缓存再更新界面,不然要获取数据还得上界面或者数据库取

具体怎么弄,能详细说一下吗?
引用
建议先倒到缓存再更新界面,不然要获取数据还得上界面或者数据库取


比如用一个数组保存数据


相关问答:

Python中的Unicode在Delphi如何还原成Gb2312?

已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......

delphi 异步线程

delphi 异步线程怎么怎么实现?
请各位大佬帮忙!
最好有个实例!
多谢

你不同步就是异步了,还写啥

默认情况下,线程就是异步的…………*^_^*

估计楼主同步和异步概念都没弄清

真无语。。可 ......

delphi 数组跟for

如何用数组跟for打印出下面的图形
*
**
***
****

如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......

delphi動態調用dll的困惑

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改  
  var  
  ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号