[Lazarus-es] leer todos los Record con SQLdb

hfiandor hfiandor en ceniai.inf.cu
Vie Nov 4 11:20:07 CET 2016


Amigos listeros:

 

En el documento SQLdb How to do se explica por qué solamente se leen los
primeros 10 registros al ejecutar una consulta y brinda una solución para
que lea todos los registros. 

 

Tengo una aplicación donde hago lo siguiente:

  begin

 

    fdm.SQLQuery1.Active := False;

    fdm.dsSQLQuery1.DataSet:=fdm.tTemp2;

    fdm.SQLite3Connection1.DatabaseName:=camino_BD + '\temp.db';

    fdm.SQLQuery1.SQL.Text := 'SELECT * FROM Temp2 WHERE codNegSerAct =
:SelCodigoNegSerAct ORDER BY codNegSerAct';

    fdm.SQLQuery1.Params.ParamByName('SelCodigoNegSerAct').AsString :=
SelNSA;

    fdm.SQLQuery1.ExecSQL;

    fdm.tTemp2.Last; //para que lea completo

 

    if fdm.SQLQuery1.Active = False then fdm.SQLQuery1.Active := True

    else begin end;

    fEstadoCuenta_2.frDBDataSet2.DataSet := fdm.SQLQuery1;

 
fEstadoCuenta_2.frReport2.LoadFromFile(camino_actual+'\plantillas\Extendida_
2.lrf');

    fEstadoCuenta_2.frReport2.ShowReport;

 

    fdm.SQLQuery1.Close;

    fdm.SQLTransaction1.Active := False;

    fdm.SQLite3Connection1.Connected := False;

 

No tengo la certeza de haber escrito la instrucción    fdm.tTemp2.Last;
//para que lea completo en el lugar correcto.

 

Agradecería que alguien me comentara al respecto y cualquier otra sugerencia
que deseen.

 

Saludos

Ing. Héctor F. Fiandor Rosario

 

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20161104/e4f6188f/attachment.html>


Más información sobre la lista de distribución Lazarus-es