for i:=0 to ADOQuery1.RecordCount - 1 do
begin
ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
end;
begin
ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
end;
for i:=0 to ADOQuery1.RecordCount - 1 do
begin
ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
AdoQuery1.Next;
end;
while not ADOQuery1.eof do
begin
listbox2.items.add(ADOQuery2.fieldbyname('fieldname').asstring;
next;
end;
ADOQuery1.First;
while not ADOQuery1.eof do
begin
listbox2.items.add(ADOQuery2.fieldbyname('fieldname').asstring;
next;
end;
AdoQuery1.First;
While Not AdoQuery1.Eof do
begin
if AdoQuery1.FieldByName('FieldName').IsNull then
ListBox2.Items.Add(AdoQuery1.FieldByName('FieldName').AsString;
AdoQuery1.Next;
end;