那里可以先 select name from from 表 while not adoquery.eof do begin listbox.items.add(adoquery.fieldbyname('name').asstring); adoquery.next; end;
哎 我是新手啊 以前没用过 我把注意重点放在重新获得dbgrid的焦点行上去了
var sqlstr:string; begin sqlstr:=select name from table_name; adoquery1.SQL:=sqlstr; adoquery1.Open; while not adoquery1.eof do begin listbox1.items.add(adoquery.fieldbyname('name').asstring); adoquery.next; end;end;
listbox1.items.clear; adoquery1.close; adoquery1.connection:=adoconnection1; adoquery1.sql.clear; adoquery1.sql.add(select distinct name from tablename); adoquery1.open; while not adoquery1.eof do begin s:=adoquery1.fieldbyname('name').asstring; listbox1.items.add(s); adoquery1.next; end;
while not adoquery.eof do
begin
listbox.items.add(adoquery.fieldbyname('name').asstring);
adoquery.next;
end;
sqlstr:string;
begin
sqlstr:=select name from table_name;
adoquery1.SQL:=sqlstr;
adoquery1.Open;
while not adoquery1.eof do
begin
listbox1.items.add(adoquery.fieldbyname('name').asstring);
adoquery.next;
end;end;
listbox1.items.clear;
adoquery1.close;
adoquery1.connection:=adoconnection1;
adoquery1.sql.clear;
adoquery1.sql.add(select distinct name from tablename);
adoquery1.open;
while not adoquery1.eof do
begin
s:=adoquery1.fieldbyname('name').asstring;
listbox1.items.add(s);
adoquery1.next;
end;