Código Delphi [-] ADOQuery1.SQL.Text := 'Select Descripcion From Categorias'; ADOQuery1.Active := True; While not ADOQuery1.Eof do begin Combobox1.Items.Add(ADOQuery1.Fields[0].Text); ADOQuery1.Next; end; ADOQuery1.Active := False;
ADOQuery1.SQL.Text := 'Select Descripcion From Categorias'; ADOQuery1.Active := True; While not ADOQuery1.Eof do begin Combobox1.Items.Add(ADOQuery1.Fields[0].Text); ADOQuery1.Next; end; ADOQuery1.Active := False;