ADOQuery1.sql.text:='select * from table';
ADOQuery1.Open;
while not ADOQuery1.eof do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('aa').AsString);
ADOQuery1.Next;
end;
ComboBox1.Properties.Items.Clear;
for i:=0 to DM.ADOQueryMap.RecordCount-1 do
begin
ComboBox1.Properties.Items.Add(DM.ADOQueryMap.FieldValues['Map_Name']);
DM.ADOQueryMap.Next;
end;
DM.ADOQueryMap.Close;
combobox1.Items.Clear;
adoquery1.Connection:=adoconnection1;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select A from B';
adoquery1.Open;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('A').AsString);
adoquery1.Next;
end
如果还需要保存指针可用
while not adoquery1.Eof do
begin
.......
combobox1.Items.AddObject(adoquery1.fieldbyname('A').AsString,[red]object[/red]);
adoquery1.Next;
end
