MOSTRAR DATOS A UN DBGRID
mariarosina
12 de Marzo del 2010
TENGO EL SIGUIENTE PROCESO PARA MOSTRAR EN MI DBGRID LOS DATOS:
1.- ALIAS
2.- DB
3.- SQL SELECT * FROM EN EL TQUERY
4- ACTIVE TRUE
5- DATASOURCE
6- DBGRID
MI PROBLEMA ES POR QUE NO SE MUESTRAN LOS DATOS?
1.- ALIAS
2.- DB
3.- SQL SELECT * FROM EN EL TQUERY
4- ACTIVE TRUE
5- DATASOURCE
6- DBGRID
MI PROBLEMA ES POR QUE NO SE MUESTRAN LOS DATOS?
anonibox
12 de Marzo del 2010
hola Maria mira ya conctaste ta tabla?? eso hace q muestre la informacion de tu bd en el DBGrid.. si puedes ser mas especifica te podremos ayudar mejro
danielluyo
12 de Marzo del 2010
Que Base de datos estas usando? DBFs?
El DBGrid debe señalar al DataSource
...que debe señalar al TQuery
...que debe señalar al TDatabase
...que debe tener el Alias a la BD
... que debe estar en Active := True (Tambien el TQuery)
incluso deberias poder ver los datos en tiemnpo de diseño
El DBGrid debe señalar al DataSource
...que debe señalar al TQuery
...que debe señalar al TDatabase
...que debe tener el Alias a la BD
... que debe estar en Active := True (Tambien el TQuery)
incluso deberias poder ver los datos en tiemnpo de diseño
Prueba esto:
Uso listado_tip_demorada: TStringGrid;
Y en la propiedad colcount del dbgrid pon el número de columnas que usas.
Este codigo lo pegas en el evento create de tu formulario
Uso listado_tip_demorada: TStringGrid;
Y en la propiedad colcount del dbgrid pon el número de columnas que usas.
Este codigo lo pegas en el evento create de tu formulario
listado_tip_demorada.Cells[0,0]:='Código';
listado_tip_demorada.Cells[1,0]:='Nombre Tipo Demorada';
listado_tip_demorada.Cells[2,0]:='Descripción';
PQConnection1.Transaction:=SQLTransaction1;
SQLTransaction1.DataBase:=PQConnection1;
SQLlist_tip_demo.DataBase:=PQConnection1;
SQL_mod_demo.DataBase:=PQConnection1;
SQL_delete_tipo_demo.DataBase:=PQConnection1;
SQLlist_tip_demo.Close;
SQLlist_tip_demo.Active:=False;
SQLlist_tip_demo.SQL.Clear;
SQLlist_tip_demo.SQL.Text:='select idtipodemo as Codigo,tipo_nombre as tipo,descrip_tipo as descripcion from tipo_demo order by idtipodemo';
Datasource1.DataSet:=SQLlist_tip_demo;
try
SQLlist_tip_demo.Open;
listado_tip_demorada.RowCount:=1;
format_dbgrid();
while not SQLlist_tip_demo.EOF do
begin
listado_tip_demorada.RowCount:=listado_tip_demorada.RowCount +1;
listado_tip_demorada.Cells[0,listado_tip_demorada.RowCount - 1]:=SQLlist_tip_demo.Fields[0].AsString;
listado_tip_demorada.Cells[1,listado_tip_demorada.RowCount - 1]:=SQLlist_tip_demo.Fields[1].AsString;
listado_tip_demorada.Cells[2,listado_tip_demorada.RowCount - 1]:=SQLlist_tip_demo.Fields[2].AsString;
SQLlist_tip_demo.Next;
end;
SQLlist_tip_demo.Active:=True;
PQConnection1.Close;
except
on E: Exception do
begin
Showmessage( PChar( E.Message )+ 'Error de SQL');
SQLTransaction1.EndTransaction;
format_dbgrid();
PQConnection1.Close;
end;
end