Foros Club Delphi

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)
-   -   adjuntar los registro de un campo de mi tabla en un DBcombobox (https://www.clubdelphi.com/foros/showthread.php?t=49188)

douglas 15-10-2007 21:16:31

adjuntar los registro de un campo de mi tabla en un DBcombobox
 
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 15-10-2007 21:29:52

Mira este hilo.

Un Saludo.

douglas 15-10-2007 23:44:56

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

marcoszorrilla 16-10-2007 06:59:47

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

douglas 23-10-2007 19:36:03

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 23-10-2007 19:53:46

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 23-10-2007 20:00:46

Porque mejor no usas un DBLookupComboBox para mostrar la empresa

Ligas las propiedades

Cita:

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 23-10-2007 23:14:26

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 23-10-2007 23:17:00

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 24-10-2007 01:16:45

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


La franja horaria es GMT +2. Ahora son las 01:50:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi