combobox y ado

[galmacland]

hola, como incluyo dentro de la lista de los combobox los resultados de un adoquery o adotable, lo he intentado con varias probiedades pero solo me da el primer resultado cuando los quiero todos...
gracias por adelantado,

[MasterXP]

Mira, lo que tienes que hacer es un ciclo que te llene el ComboBox, en el Evento OnEnter del ComboBox pones lo siguiente:

Código Delphi [-]
  procedure TForm1.ComboBox1Enter(Sender: TObject);
  var
  Art_list:string; //Art_List es la variable que te cojera el valor de la tabla
  //y se lo pasara al combobox
  Ultimo:Integer;
  i:integer;
  begin
     With ADOQuery1 DO
     Begin
     Close;
     SQL.Clear;
     SQL.Add('Select (Count(Distinct(Campo))) From TuTabla;')
     Open;
     //La Variable Ultimo es tipo integer, y te servira para finalizar el ciclo
     Ultimo:=Fields[0].AsInteger;
   ADOQuery1.Close;
     
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('Select Distinct(Campo) From TuTabla ORDER BY Campo')
   ADOQuery1.Open;
 ADOQuery1.First;
   FOR i:=1 To Ultimo DO
     Begin
     Art_List:=ADOQuery1.Fields[0].AsString;
ComboBox1.Items.Add(Art_List);
   ADOQuery1.Next;
     end;
     end;
     end;
  end;

[lgarcia]

Hola

No se si has probado con el DBLookCombobox, pero si estas obligado a utilizar un ComboBox solo tienes que ejecutar la Query y luego:

CuentasClientes.First;
while not CuentasClientes.Eof do
begin
CBCuentas.Items.Add(CuentasClientescuenta.Value);
CuentasClientes.Next;
end;
end;

Saludos
Luis Garcia

______________________________
Ahorrar despedidas es ahorrar llanto

[sakuragi]

hola que tal

lgarcia me si no es mucha molestia me peudes decir a que te refieres con:

CuentasClientes

CBCuentas

CuentasClientescuenta.Value


gracias

saludos

[MasterXP]

Empezado por sakuragi

hola que tal
lgarcia me si no es mucha molestia me peudes decir a que te refieres con:

CuentasClientes

CBCuentas

CuentasClientescuenta.Value
gracias
saludos

Supongo que:

CuentasClientes.First; --> Tabla CuentasClientes
while not CuentasClientes.Eof do --> EOF (Final del archivo)
begin
CBCuentas.Items.Add(CuentasClientescuenta.Value); --> ComboBoxCuentas
CuentasClientes.Next; --> Siguiente registro de la Tabla CuentasClientes
end;
end;

Saludos...