Luego acceso de esta forma:
Código Delphi
[-]procedure TFrm_lista_incidencia.Refresh_listado();
begin
conectabd();
PQConnection1.Transaction:=SQLTransaction1;
SQLTransaction1.DataBase:=PQConnection1;
SQLlist_inci.DataBase:=PQConnection1;
SQL_mod_incidencia.DataBase:=PQConnection1;
SQLlist_inci.Close;
SQLlist_inci.Active:=False;
SQLlist_inci.SQL.Clear;
SQLlist_inci.SQL.Text:='SELECT * FROM LISTA_INCIDENCIA';
Datasource1.DataSet:=SQLlist_inci;
try
SQLlist_inci.open;
grid_lista_incidencia.RowCount:=1;
while not SQLlist_inci.EOF do
begin
grid_lista_incidencia.RowCount:=grid_lista_incidencia.RowCount +1;
grid_lista_incidencia.Cells[0,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[0].AsString;
grid_lista_incidencia.Cells[1,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[1].AsString;
grid_lista_incidencia.Cells[2,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[2].AsString;
grid_lista_incidencia.Cells[3,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[3].AsString;
grid_lista_incidencia.Cells[4,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[4].AsString;
grid_lista_incidencia.Cells[5,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[5].AsString;
grid_lista_incidencia.Cells[6,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[6].AsString;
grid_lista_incidencia.Cells[7,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[7].AsString;
SQLlist_inci.Next;
end;
PQConnection1.Close;
except
on E: Exception do
begin
Showmessage( PChar( E.Message )+ 'Error de SQL');
SQLTransaction1.EndTransaction;
end;
end;