[Lazarus-es] SQLQuery

[Ismael L. Donis Garcia]

Los pasos deben ser:

- Iniciar transacción.
- Realizar consulta
- Cerrar transacción
- Cerrar consulta

Te paso un ejemplo de preocedimiento público que yo uso, el cual instancio desde los formularios.

procedure Tdm.p_rssc1();
begin
  if trasc1.Active then trasc1.EndTransaction;
  rssc1.Close;
end;

procedure Tdm.p_rssc1(sqlstr: string; blnread: boolean);
begin
  p_rssc1();
  rssc1.Filter:='';
  rssc1.SQL.Clear;
  rssc1.SQL.Text := sqlstr;
  rssc1.ReadOnly := blnread;
  trasc1.StartTransaction;
  rssc1.Open;
end;

procedure Tdm.p_rssc1(sqlstr: string; blnread: boolean; LParam: TStrings;
  LValor: TStrings);
var
  i: Integer;
begin
  p_rssc1();
  rssc1.Filter:='';
  rssc1.SQL.Clear;
  rssc1.SQL.Text := sqlstr;
  rssc1.ReadOnly := blnread;
  for i := 0 to LParam.Count - 1 do begin
   if leftstr(LParam[i], 1) = 'i' then
     rssc1.Params.ParamByName(LParam[i]).AsInteger:=StrToInt(LValor[i])
    else if leftstr(LParam[i], 1) = 'm' then
      rssc1.Params.ParamByName(LParam[i]).AsSmallInt:=StrToInt(LValor[i])
    else if leftstr(LParam[i], 1) = 'd' then
     rssc1.Params.ParamByName(LParam[i]).AsDate:=StrToDate(LValor[i],'yyyy/mm/dd','/')
    else
     rssc1.Params.ParamByName(LParam[i]).AsString:=LValor[i];
  end;
  trasc1.StartTransaction;
  rssc1.Open;
end;

Como te darás cuenta es un procedimiento sobrecargado, se ejecutará en dependencias de los parametros que le pases

Saludos Cordiales
========
| ISMAEL |
========
Only for the small landowners and Cubans companies
Website: www.sisconge.byethost15.com
              www.sisconge.hol.es
  ----- Original Message ----- 
  From: Héctor Fiandor 
  To: Spanish version of Lazarus List 
  Sent: Thursday, September 24, 2015 7:47 AM
  Subject: [Lazarus-es] SQLQuery


  Estimados miembros de la lista:

   

  Estoy usando Lazarus para la aplicación y sqlite para las BD.

   

  He usado la facilidad SQLQuery para mostrar un Reporte de una consulta simple, usando en el DataModule el SQLQuery, la Coneccion y la Trnsition, y quiero conocer si tengo que usar la Conección y la Transitión para consultas simples y en qué orden debo cerrarlas cuando termine el Reporte.

   

  Anticipándole las gracias,

   

  Ing. Héctor Fiandor

  hfiandor en ceniai.inf.cu

   



------------------------------------------------------------------------------


  _______________________________________________
  Lazarus-es mailing list
  Lazarus-es en lists.lazarus.freepascal.org
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150924/a85e469d/attachment-0002.html>