
jesus culqui
17 de Enero del 2012
|
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
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
|