Problema DBRGRid

[jehemo]

Alguien podria ayudarme, tengo el siguiente problema, estoy realizando una aplicacion con una base de datos en MySQL a traves de ADO y trato de mostrar los datos en un DBGRid pero cuando lo ejecuto el DBGRid me aparece vacio a continuacion el codigo


procedure TPrincipal.Consultar1Click(Sender: TObject);
var
FCEmpresas: TFCEmpresas;
begin
Datamodule2.AQEmpresas.SQL.Clear;
datamodule2.AQEmpresas.Active:= false;
Datamodule2.AQEmpresas.SQL.Text:= ('select id_empresa, empresa from empresas order by id_empresa');
FCEmpresas:= TFCEMpresas.Create(Application);
with FCEmpresas do
begin
DBGCEmpresas.DataSource:= Datamodule2.DSEmpresas;
datamodule2.AQEmpresas.Active:= true;
DBGCEmpresas.columns.add.fieldName:='id_empresa';
DBGCEmpresas.columns.Add.FieldName:= 'empresa';
DBGCEmpresas.Columns[0].Title.Caption:= 'Id';
DBGCEmpresas.Columns[1].Title.Caption:= 'Empresa';
Show();
end;

[Casimiro Notevi]

Recuerda poner etiquetas cuando muestres código, ejemplo:




Tu código quedaría así:

Código Delphi [-]
procedure TPrincipal.Consultar1Click(Sender: TObject);
var
    FCEmpresas: TFCEmpresas;
begin
    Datamodule2.AQEmpresas.SQL.Clear;
    datamodule2.AQEmpresas.Active:= false;
    Datamodule2.AQEmpresas.SQL.Text:= ('select id_empresa, empresa from empresas order by id_empresa');
    FCEmpresas:= TFCEMpresas.Create(Application);
    with FCEmpresas do
    begin
        DBGCEmpresas.DataSource:= Datamodule2.DSEmpresas;
        datamodule2.AQEmpresas.Active:= true;
        DBGCEmpresas.columns.add.fieldName:='id_empresa';
        DBGCEmpresas.columns.Add.FieldName:= 'empresa';
        DBGCEmpresas.Columns[0].Title.Caption:= 'Id';
        DBGCEmpresas.Columns[1].Title.Caption:= 'Empresa';
        Show();
    end;

[Casimiro Notevi]

Y no olvides leer nuestra guía de estilo, gracias por tu colaboración.

[ecfisa]

Hola.

Siempre trata de exponer con la mayor claridad lo que deseas realizar, aportando la mayor cantidad de detalles sobre la dificultad que tenes para conseguirlo.

Según entiendo, lo que deseas hacer es que, en el evento OnClick de un botón del form principal se abra otro form que contiene un TDBGrid que debe mostrar los campos id_empresa y empresa de la tabla empresas.

Como un ejemplo en el código:

Código Delphi [-]
var
    FCEmpresas: TFCEmpresas;

no estás indicando de que componente desciende TFCEmpresas...

Entonces, suponiendo que AQEmpresas sea de tipo TADOQuery, TFCEmpresas de tipo TForm y DBGCEmpresas de tipo TDBGrid, creo que deberías probar de este modo:

Código Delphi [-]
procedure TTPrincipal.Consultar1Click(Sender: TObject);
begin
  with Datamodule2.AQEmpresas do
  begin
    Close;
    SQL.Text := 'select id_empresa, empresa from empresas order by id_empresa';
    Open;
  end;
  FCEmpresas := TFCEmpresas.Create(Self);
  with FCEmpresas do
  begin
    with DBGCEmpresas do
    begin
      Columns.Add.FieldName := 'id_empresa';
      Columns.Add.FieldName := 'empresa';
      Columns[0].Title.Caption := 'Id';
      Columns[1].Title.Caption := 'Empresa';
      DataSource := Datamodule2.DSEmpresas;
    end;
    Visible := True; 
  end;
end;

Eso si mi conjetura anterior hubiera sido acertada...

Un saludo.

[jehemo]

Gracias por la ayuda pero no he resuelto mi problema, el problema es que no me muestra la informacion de la base de datos en el dbgrid solo me aparece las columnas vacias supongo q me falta una instruccion para cargar los datos pero desconozco cual es

[ecfisa]

Hola jehemo.

El código que te puse anteriormente estaba previamente probado y muestra los campos correctamente en el DBGrid. Lo que me hace pensar que tabla 'empresas' pueda no tener datos...

Saludos.