Foros Club Delphi - Mostrar en un combobox lo que hay en una tabla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Mostrar en un combobox lo que hay en una tabla (https://www.clubdelphi.com/foros/showthread.php?t=82540)

Mostrar en un combobox lo que hay en una tabla

Muy buenos días/noches... a todos

Estoy viendo la manera de hacer funcionar mi código que no me funciona.

Tengo una BD acces, con varias tablas.

Mi código lo que deberia hacer es mostrar en un combobox lo que tengo en la tabla1, y por medio de un botón poder agregar otro item a la tabla1.

Para mostrar lo que hay en la tabla1 uso este código, pero no me muestra nada, ni si queira me salta algún error.

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

El ADOConnection1 conectado la la base datos BASE.mdb

el ADOQuery1 en propiedad SQL escribi Select * from Tabla1, en propiedad conection conectado a ADOConnection1, en propiedad Active: truee

el DataSource4 conectado al ADOQuery1.

Agregue un DBGrid1 conectado al datasource4 y me muestra lo que tengo en la tabla.
Pero en el combobox queda vacío

donde esta mi errrror...

Hola
Campo es como se llama el campo de la tabla1 ?
Saludos

si...
nombre base datos BASE.mdb
nombre tabla tabla1
nombre de campo a utilizar campo

La tabla tiene varios campos, campo, campo1, campo2 y campo3, pero el que lo utilizare ahora es solo CAMPO.

gracias

Hola
No veo ningun error, solo que no se necesita desconectar el adoquery:

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

Saludos

gracias de nuevo..

Copie su codigo, lo probe y sigue igual, en el combobox no me muestra nada.

DEsactive la propiedad del adoquery1 Active:false y sigue lo mismo, no me meustra nada en el combobox, y en el dbgrig tampoco, pero si dejo Active:true en el dbgrib si me muestra, pero esto no importa, lo que busco es que me muestre en el combobox.

Hola
Busca un sitio en internet donde puedas poner el codigo y la base de datos y me pasas el link para bajarlo y revisar a ver que problemas tienes.
Saludos

bien.. gracias de nuevo

lo puse en rapishare, despeus de varios minutos de probar y probar, asta que logre dejarlo listo apra bajar, no entendia muy bien como configurar rapishare.
https://rapidshare.com/files/3538628935/Program.rar

https://rapidshare.com/files/3538628935/Program.rar

Hola
Primero que nada si vas a poner un programa en alguna carpeta, no se como se te ocurre una ruta tan larga como esa :D
Bueno, al grano:
El codigo esta bien, el problema es que el evento onchage del combobox no hara lo que necesitas.
En el form 1 pon en el evento oncreate el codigo, quedara asi:

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
   Combobox1.Clear;
     ADOQuery1.SQL.Text := 'Select campo from tabla1';
   ADOQuery1.Active := True;
   While not ADOQuery1.Eof do
   begin
      Combobox1.Items.Add(ADOQuery1.Fields[0].Text);
      ADOQuery1.Next;
   end;
   AdoQuery1.Active := False;
end;

Ves el evento oncreate del form.
Tambien limpias el combobox primero.
Saludos

:D:D:D.... jajaja---

era alrgo el ruta.. jajaja

bueno.. gracias y mas gracias... ya solucionado el inconveniente.

Aora si me funciona el codigo.

^\||/