while not table1.Eof do begin listbox1.Items.Add(table1.FieldByName('sno').AsString); table1.Next; end; table1的active属性设置为true!
Query1.clear; Query1.SQL.Add('Select sno from student'); Query1.ExecSQL; try Query1.Open; for i:=0 to Query1.RecordCount-1 do ListBox1.Items.Add(FieldByName('sno').AsString); Query1.Close; except ... end;
一行一行的读取相应的字段,添加listbox1.item[i]
for i:=1 to Adoquery1.RecordCount do begin listbox1.Items.Add(ADOquery1.FieldByName('sell_num').AsString); ADOQuery1.Next; end;
with query1 do begin close; sql.clear; sql.add('select sno from student'); open; first; while not eof do begin listbox1.item.add(fieldbyname('sno').asstring); next; end; end;
while not table1.Eof do begin listbox1.Items.Add(table1.FieldByName('sno').AsString); table1.Next; end;
var i:integer begin with query1 do begin close; sql.clear; sql.add('select sno from student'); open; first; for i:=1 to Adoquery1.RecordCount do begin listbox1.item.add(fieldbyname('sno').asstring); next; end; query1.close end;
listbox1.items.clear;//记得清空,否则越加越多 with adoquery1 do begin close; sql.clear; sql.add(' select sno from tablename1'); open; first; while not eof do begin listbox1.items.add(FieldByName('sno').AsString); next; end; close; end;
begin listbox1.Items.Add(table1.FieldByName('sno').AsString);
table1.Next; end;
table1的active属性设置为true!
Query1.SQL.Add('Select sno from student');
Query1.ExecSQL;
try
Query1.Open;
for i:=0 to Query1.RecordCount-1 do
ListBox1.Items.Add(FieldByName('sno').AsString);
Query1.Close;
except
...
end;
begin
listbox1.Items.Add(ADOquery1.FieldByName('sell_num').AsString);
ADOQuery1.Next;
end;
begin
close;
sql.clear;
sql.add('select sno from student');
open;
first;
while not eof do
begin
listbox1.item.add(fieldbyname('sno').asstring);
next;
end;
end;
begin listbox1.Items.Add(table1.FieldByName('sno').AsString);
table1.Next; end;
i:integer
begin
with query1 do
begin
close;
sql.clear;
sql.add('select sno from student');
open;
first;
for i:=1 to Adoquery1.RecordCount do
begin
listbox1.item.add(fieldbyname('sno').asstring);
next;
end;
query1.close
end;
with adoquery1 do
begin
close;
sql.clear;
sql.add(' select sno from tablename1');
open;
first;
while not eof do
begin
listbox1.items.add(FieldByName('sno').AsString);
next;
end;
close;
end;