FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema DBRGRid
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; |
|
|
|