Question

Delphi里的ComboBox怎么读取数据库信息

小弟新手,自己自己写了一下,运行时没有错误,也没有提示.但是omboBox不显示数据者是为什么,请大家帮我看一下代码

procedure TForm1.oninit();
var temp:string;
begin
with ADOQuery1 do
begin
close;
with SQL do
begin
clear;
add('select 部门名称 from 部门资料');
end;
open;
first;
bumen.clear;
while (eof=false) do
begin
temp:=fieldbyname('部门名称').AsString;
bumen.Items.Append('temp');
next;
end;
end;
end;
楼下的大哥 办法不行阿.同样也谢谢你啊

Answer 1

看你的有点乱 给你写了个新的 自己看吧
with adoquery1 do
begin
close;
sql.clear;
sql.add('select 部门名称 from 部门资料');
open;
first;
while not eof do
begin
bumen.items.add(fieldbyname('部门名称').asstring);
next;
end;
bumen.itemindex:=0;
end;

Answer 2

bumen.clear; 放在with ADOQuery1 do
begin 后面
－－－－－－－－－－－－－－－－－－－－
因为你的程序中做了循环bumen.clear;当然没有东西了~~!