怎么把数据库里一个字段的值放到ListBox中?

ledalln 2001-12-19 02:24:54
我用DBListBox竟然什么也取不到?!这是什么原因?
后来我用ListBox写了程序:
for i:=0 to ADOQuery1. -1 do//不知道怎么写
begin
ListBox2.Items[i]:=ADOQuery2.Parameters[0].Value;
end;
请问我该怎么办????
...全文
140 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
stdxhwj 2001-12-19
  • 打赏
  • 举报
回复
你用dblookuplistbox就可以了,你只要设下面的listsource 和keyfield就可以了!
ledalln 2001-12-19
  • 打赏
  • 举报
回复
打开了,而且我还拿着DBGrid对照,DBGrid显示的很清楚
snjun 2001-12-19
  • 打赏
  • 举报
回复
adoquery有没有打开呢
ledalln 2001-12-19
  • 打赏
  • 举报
回复
谢谢!可是我的DBListBox为什么不行呢?DBListBox的DataSource和DataField都设好了啊!
刘志飞 2001-12-19
  • 打赏
  • 举报
回复
ListBox2.Items.Clear;
AdoQuery1.First;
While Not AdoQuery1.Eof do
begin
if AdoQuery1.FieldByName('FieldName').IsNull then
ListBox2.Items.Add(AdoQuery1.FieldByName('FieldName').AsString;
AdoQuery1.Next;
end;
hymn 2001-12-19
  • 打赏
  • 举报
回复
listbox2.items.clear;
ADOQuery1.First;
while not ADOQuery1.eof do
begin
listbox2.items.add(ADOQuery2.fieldbyname('fieldname').asstring;
next;
end;
xyc189 2001-12-19
  • 打赏
  • 举报
回复
listbox2.items.clear;
while not ADOQuery1.eof do
begin
listbox2.items.add(ADOQuery2.fieldbyname('fieldname').asstring;
next;
end;
Liusp 2001-12-19
  • 打赏
  • 举报
回复
AdoQuery1.First;
for i:=0 to ADOQuery1.RecordCount - 1 do
begin
ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
AdoQuery1.Next;
end;
Liusp 2001-12-19
  • 打赏
  • 举报
回复
for i:=0 to ADOQuery1.RecordCount - 1 do
begin
ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
end;

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧