adjuntar los registro de un campo de mi tabla en un DBcombobox

[douglas]

buenas quiero llenar un dbcombobox con la informacion de una tabla que tengo en una base de datos hecha en access, solo me interesa que el db combobox se llena con el campo empresa, diganme como le hago, me imagino que es con una while not eof pero no so como tratarlo con bases de datos, intente pero no puede, profis necestio ayudita.

[marcoszorrilla]

Mira este hilo.

Un Saludo.

[douglas]

Simon Estuvre Revisando Ese Hilo, Y Creeme Que Probe Hacer Algo Semejante Y La Verdad No Se Pudo, No Puedes Ayudarme

[marcoszorrilla]

Código Delphi [-]
AdoTable1.First;
   While not AdoTable1.Eof do
   begin
      DBLookUpComboBox8.Items.Add(AdoTable1MiCampo.Value);
      AdoTable1.Next;
   end;

Un Saludo.

[douglas]

sip esta buena la solucion, pero utilizo solo un table, no un ado table e intente realizar el codigo que tu amablemente pusiste y no me funciono, dime, amigo que puedo hacer.

[[Caral]]

Hola
Solucion simple y sencilla.
Quita el DBCombobox y pon un Combobox sencillo.
No uses un Table usa un Query.
Pon este codigo, puede ser en el form create o donde la necesites.

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

A ver como te va, lo comentas.
Saludos

[[egostar]]

Porque mejor no usas un DBLookupComboBox para mostrar la empresa

Ligas las propiedades

ListSource = DataSource
KeyField = Llave
ListField = Empresa

Y listo, ya verás el nombre Empresa en el ComboBox

Nota: requieres de una llave en tu tabla

Salud OS

[douglas]

gracias caral funciono re bien , aaaw, que buenas personas son todos ustedes, funciono re bien, muestra todas las empresas, el codigo me quedo asi:
Código

procedure TForm1.Button1Click(Sender: TObject);
begin Query1.Active:=false;
Query1.SQL.Text:='Select empresa from Empresa';
Query1.Active:=true;
while not Query1.Eof do
begin
combobox1.Items.Add(Query1.Fields[0].text);
Query1.Next;
end;


obviamente al pulsarlo, me reconocera todas las empresas que tenga almacenadas en mi tabla

pero se podra hacer esto solamente al abrir el form ???????

la verdad es que si se puede aprovechando el procedimiento creacion del form, aplique el mismo codigo solo agregando el codigo para limpiar el combobox, puesto que al iniciar varias veces el form, el combobox se iba llenando, a todos muchas gracias aqui les dejo el ejemplo.
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Clear;
Query1.Active:=false;
Query1.SQL.Text:='Select empresa from Empresa';
Query1.Active:=true;
while not Query1.Eof do
begin

combobox1.Items.Add(Query1.Fields[0].text);
Query1.Next;
end;
end;

gracias todo me funciona de maravilla

[douglas]

bueno ahora la intencion de tener en el combobox las empresas es la siguiente, estas tienen un codigo, deseo poder dar clic a cualquier empresa y que me muestre el codigo, que tambien esta en la tabla, e estado pensando como, pero la verdad no se ni como empesarlo, creo que se usa el query, pero la verdad hasta hoy utilize quirys, por favor necesito ayuda, de antemano les agradezco todas sus finas atenciones hacia mi.

[[Caral]]

Hola
En el wiki del club hay mucha información que hemos puesto.
Aqui hay varios ejemplos muy interesantes y aquí hay otros para que los descargues y los pruebes te van a servir mucho.
No dudes en preguntar, para eso estamos.
saludos