7 replies to this topic

[amell2020]

hola amigos de nuevo, esta vez le pregunto como puedo llenar varios combobox con tablas diferente de mi BD, yo tengo 5 combobox el cual solo se llenar un solo.
bien yo lo que hice tome un ADOquery y el oncreate puse esto:

delphi

procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOQuery1.SQL.Text:='SELECT [TIPO DE ATENCIÓN].[TIPO DE ATENCIÓN]FROM [TIPO DE ATENCIÓN];';
 
  ADOQuery1.Active:=true;
while not ADOQuery1.Eof do
begin
 
ComboBox1.Items.Add(ADOQuery1.Fields[0].text);
   ADOQuery1.Next;
end;

bueno yo podria hacer es poner mas ADOquery y hacer los mismo paso con los otros combobox, pero creo que de seguro debe haber otra manera para hacerlo sin tener que usar varios ADOquery.
Aguien puede ayudarme???

[Caral]

Hola
Hay muchas maneras de hacer lo que quieres.
1- Lo que haces, uno por uno.
2- hacer una consulta que traiga los datos que necesitas de las tablas que necesitas y colocar los datos en sus respectivos combobox.
3- otras mas que ni me imagino.
Saludos

[amell2020]

me podrian dar un ejemplo de 2-hacer una consulta que traiga los datos que necesitas de las tablas que necesitas y colocar los datos en sus respectivos combobox. gracias

[Caral]

Hola
Dame los datos:
1- Nombre de las tablas.
2- Nombre de los campos que quieres poner en los combobox.
3- Cuantos Combobox ?.
Saludos

[amell2020]

Tablas: atenciones, valor, maestro
Campos: id_atenciones, nombre, direccion
bien id_atenciones pertenece a la tabla ateciones las demas siguen el orden

[Caral]

Hola
Intenta esto:

delphi

procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOQuery1.SQL.Text:='SELECT atenciones.id_atenciones, valor.nombre, maestro.direccion '+
                    ' FROM id_atenciones, nombre, direccion';
 
   ADOQuery1.Active:=true;
  while not ADOQuery1.Eof do
begin
   ComboBox1.Items.Add(ADOQuery1.Fields[0].text);
   ComboBox2.Items.Add(ADOQuery1.Fields[1].text);   
   ComboBox3.Items.Add(ADOQuery1.Fields[2].text);   
   ADOQuery1.Next;
end;

Puede ser que pida un group by, pero ya veremos.
Saludos

[amell2020]

hola eh puesto el codigo hermano caral, pero los combobox se quedan vacios, mira como lo hice:

delphi

procedure THOSPI.FormCreate(Sender: TObject);
 
begin
  //Llena el Tipo de Sala
 
 
   //codigo nuevo
   ADOQuery1.SQL.Text:='SELECT [TIPO DE SALA].[TIPO DE SALA], LABORATORIOS.LABORATORIO,IMAGENES.[ESTUDIO DE IMAGEN],MEDICAMENTOS.MEDICAMENTO FROM [TIPO DE SALA], LABORATORIOS, IMAGENES, MEDICAMENTOS';
   ADOQuery1.Active:=true;
   while not ADOQuery1.Eof do
        begin
   ComboBox1.Items.Add(ADOQuery1.Fields[0].text);
   ComboBox2.Items.Add(ADOQuery1.Fields[1].text);
   ComboBox3.Items.Add(ADOQuery1.Fields[2].text);
   ComboBox4.Items.Add(ADOQuery1.Fields[3].text);
   ADOQuery1.Next;
 
end;

[Fenareth]

Si necesitas hacerlo en 5 combobox pero no quieres usar más de un ADOQuery (no comprendo porqué no, Delphi no cobra por componente usado  ) puedes usar el mismo pero sustituyendo la sentencia cada vez que quieres llenar un combo diferente...

Algo así:

delphi

procedure Forma.FormCreate(Sender: TObject);
var
  i: Integer;
begin
    // Llenamos Combo 1
    ADOQuery1.Close;    
    ADOQuery1.SQL.Text := 'SELECT CAMPOS FROM TABLA WHERE CONDICION';
    ADOQuery1.Open;
 
    for i:= 0 to ADOQuery.RecordCount -1 do
    begin
         Combo1.Items.Add(ADOQuery.Fields[0].AsString);
         ADOQuery1.Next;
    end;
 
    // Llenamos Combo 2
      ADOQuery1.Close;    
      ADOQuery1.SQL.Text := 'SELECT CAMPOS FROM TABLA WHERE CONDICION';
      ADOQuery1.Open;
  
      for i:= 0 to ADOQuery.RecordCount -1 do
      begin
           Combo2.Items.Add(ADOQuery.Fields[0].AsString);
           ADOQuery1.Next;
      end;
 
    .
    .
    .
   
   {y así sucesivamente}
 
end;

Otra manera que pudieras hacer es crear una función general para llenar los combos donde le pases como parámetros la consulta que llena el combo, y el combo a llenar y sólo lo mandes llamar tantas veces como sea necesario... algo así:

delphi

procedure LlenaCombo(SQL: String; Combo: TComboBox);
var
  i: Integer;
begin
      ADOQuery1.Close;    
        ADOQuery1.SQL.Text := SQL;
        ADOQuery1.Open;
 
      for i:= 0 to ADOQuery.RecordCount -1 do
         begin
             Combo.Items.Add(ADOQuery.Fields[0].AsString);
             ADOQuery1.Next;
         end;
end;

Y lo mandas llamar en el create de la forma principal tantas veces como lo necesites:

delphi

procedure Forma.FormCreate(Sender: TObject);
begin
     LlenaCombo('SELECT CAMPO FROM TABLA1 WHERE CONDICION', Combo1);  // Llena Combo1
     LlenaCombo('SELECT CAMPO FROM TABLA2 WHERE CONDICION', Combo2);  // Llena Combo2
     LlenaCombo('SELECT CAMPO FROM TABLA3 WHERE CONDICION', Combo3);  // Llena Combo3
     LlenaCombo('SELECT CAMPO FROM TABLA4 WHERE CONDICION', Combo4);  // Llena Combo4
     LlenaCombo('SELECT CAMPO FROM TABLA5 WHERE CONDICION', Combo5);  // Llena Combo5
end;

De esta manera solo usas un ADOQuery y como es una función recursiva, sólo la desarrollas una sola vez y la mandas llamar todas la veces que quieras 

Espero serte de ayuda... cualquier cosa, no dudes en comentarla

Saludox !




[pre]
[/pre]