Código Delphi [-] ADOQuery9.SQL.Text := 'SELECT TuTabla.NoSub FROM TuTabla ORDER BY TuTabla.NoSub'; ADOQuery9.Active := True; While not ADOQuery9.Eof do begin ComboBox1.Items.Add(ADOQuery9.Fields[0].Text); ADOQuery9.Next; end;
ADOQuery9.SQL.Text := 'SELECT TuTabla.NoSub FROM TuTabla ORDER BY TuTabla.NoSub'; ADOQuery9.Active := True; While not ADOQuery9.Eof do begin ComboBox1.Items.Add(ADOQuery9.Fields[0].Text); ADOQuery9.Next; end;