请问怎么把数据集搜索的数据显示在listbox中？ ( 积分: 50 )

A

AKFFstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #1

在窗体中放了adoconnection1,adodataset,button,listbox 这4个组件，数据库已经连接好，adodataset的commandtext语句是'select distict region from 某表 order by region'，怎么把它的找到的结果在listbox中显示出来？？？？
初学delphi，搞了好久都不知道怎么弄啊，那位大侠帮帮忙！！

 

A

AKFFstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #2

在窗体中放了adoconnection1,adodataset,button,listbox 这4个组件，数据库已经连接好，adodataset的commandtext语句是'select distict region from 某表 order by region'，怎么把它的找到的结果在listbox中显示出来？？？？
初学delphi，搞了好久都不知道怎么弄啊，那位大侠帮帮忙！！

 

C

coolfishs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-08

• #3

procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Close;
Query1.Sql.Text:='select region from 某表';
Query1.Open;
Listbox.Items.Clear;
while not Query1.Eofdo
begin
Listbox.Items.Add(Query1.FieldByName('region').asstring);
Query1.Next;
end;
ShowMessage('数据加载完毕！');
我平时都是这样写的~ 很简单~ 接分

 

A

AKFFstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-08

• #4

晕，我昨晚11点多就搞出来了
adodsregion.First;
with adodsregiondo
begin
while not adodsregion.eofdo
begin
standardfrm.lbleft.Items.Add(adodsregion.fieldbyname('region').asstring);
adodsregion.next;
end;

end;

不过，看见哥们深夜为新人解答问题
接分拉

 

A

AKFFstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-08

• #5

接受答案了.