关于将数据库中的数据动态加入combobox的items的问题

Question

看你使用的是什么样的数据库了,Paradox的很简单,ADO的我还没有试过.等我试一下先!

Answer 1

procedure Thkglf.lpd1DropDown(Sender: TObject);
begin
lpd1.Items.Clear;
with   lpdf.adoquery1  do
begin
close;
sql.clear;
sql.add('select *  from  lpd');
open;
while  not  eof  do
begin
lpd1.Items.Add(fieldbyname('lpd').asstring);
next;
end;
end;
end;

Answer 2

我是这样写的啊
procedure init(fieldname,tablename:string,cb:tcombobox);
var
  sqlstr: string
begin
 sqlstr:=format('select %s from %s',[fieldname,tablename]);
with query do 
begin
 close; 
 sql.clear;
 sql.add(sqlstr);
 open;
 while not eof do 
 begin
  cb.itmes.add(fields[0].asstring);
  next;
 end;
end;
 
 

Answer 3

可以写一个ADDITEM函数,封装到类中,调用即可.