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:


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]

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...