<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:m =
"http://schemas.microsoft.com/office/2004/12/omml"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE>@font-face {
font-family: Cambria Math;
}
@font-face {
font-family: Calibri;
}
@page Section1 {size: 612.0pt 792.0pt; margin: 70.85pt 3.0cm 70.85pt 3.0cm; }
P.MsoNormal {
FONT-SIZE: 11pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Calibri","sans-serif"
}
LI.MsoNormal {
FONT-SIZE: 11pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Calibri","sans-serif"
}
DIV.MsoNormal {
FONT-SIZE: 11pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Calibri","sans-serif"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.EstiloCorreo17 {
COLOR: windowtext; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: personal-compose
}
.MsoChpDefault {
mso-style-type: export-only
}
DIV.Section1 {
page: Section1
}
</STYLE>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></HEAD>
<BODY lang=ES vLink=purple link=blue bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Los pasos deben ser:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>- Iniciar transacción.</FONT></DIV>
<DIV><FONT face=Arial size=2>- Realizar consulta</FONT></DIV>
<DIV><FONT face=Arial size=2>- Cerrar transacción</FONT></DIV>
<DIV><FONT face=Arial size=2>- Cerrar consulta</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Te paso un ejemplo de preocedimiento público que yo
uso, el cual instancio desde los formularios.</FONT></DIV>
<DIV><FONT face=Arial size=2><BR>procedure Tdm.p_rssc1();<BR>begin<BR> if
trasc1.Active then trasc1.EndTransaction;<BR> rssc1.Close;<BR>end;</DIV>
<DIV> </DIV>
<DIV>procedure Tdm.p_rssc1(sqlstr: string; blnread: boolean);<BR>begin<BR>
p_rssc1();<BR> rssc1.Filter:='';<BR> rssc1.SQL.Clear;<BR>
rssc1.SQL.Text := sqlstr;<BR> rssc1.ReadOnly := blnread;<BR>
trasc1.StartTransaction;<BR> rssc1.Open;<BR>end;</DIV>
<DIV> </DIV>
<DIV>procedure Tdm.p_rssc1(sqlstr: string; blnread: boolean; LParam:
TStrings;<BR> LValor: TStrings);<BR>var<BR> i:
Integer;<BR>begin<BR> p_rssc1();<BR> rssc1.Filter:='';<BR>
rssc1.SQL.Clear;<BR> rssc1.SQL.Text := sqlstr;<BR> rssc1.ReadOnly :=
blnread;<BR> for i := 0 to LParam.Count - 1 do begin<BR> if
leftstr(LParam[i], 1) = 'i' then<BR>
rssc1.Params.ParamByName(LParam[i]).AsInteger:=StrToInt(LValor[i])<BR>
else if leftstr(LParam[i], 1) = 'm' then<BR>
rssc1.Params.ParamByName(LParam[i]).AsSmallInt:=StrToInt(LValor[i])<BR>
else if leftstr(LParam[i], 1) = 'd' then<BR>
rssc1.Params.ParamByName(LParam[i]).AsDate:=StrToDate(LValor[i],'yyyy/mm/dd','/')<BR>
else<BR>
rssc1.Params.ParamByName(LParam[i]).AsString:=LValor[i];<BR>
end;<BR> trasc1.StartTransaction;<BR> rssc1.Open;<BR>end;</DIV>
<DIV> </DIV>
<DIV>Como te darás cuenta es un procedimiento sobrecargado, se ejecutará en
dependencias de los parametros que le pases</DIV>
<DIV></FONT> </DIV>
<DIV><FONT face=Arial size=2>Saludos Cordiales</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========<BR>Only for the small landowners and
Cubans companies<BR>Website: <A
href="http://www.sisconge.byethost15.com">www.sisconge.byethost15.com</A><BR>
<A href="http://www.sisconge.hol.es">www.sisconge.hol.es</A></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=hfiandor@ceniai.inf.cu href="mailto:hfiandor@ceniai.inf.cu">Héctor
Fiandor</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, September 24, 2015 7:47
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [Lazarus-es] SQLQuery</DIV>
<DIV><BR></DIV>
<DIV class=Section1>
<P class=MsoNormal>Estimados miembros de la lista:<o:p></o:p></P>
<P class=MsoNormal><o:p> </o:p></P>
<P class=MsoNormal>Estoy usando Lazarus para la aplicación y sqlite para las
BD.<o:p></o:p></P>
<P class=MsoNormal><o:p> </o:p></P>
<P class=MsoNormal>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.<o:p></o:p></P>
<P class=MsoNormal><o:p> </o:p></P>
<P class=MsoNormal>Anticipándole las gracias,<o:p></o:p></P>
<P class=MsoNormal><o:p> </o:p></P>
<P class=MsoNormal><SPAN lang=EN-US>Ing. Héctor Fiandor<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN
lang=EN-US>hfiandor@ceniai.inf.cu<o:p></o:p></SPAN></P>
<P class=MsoNormal><SPAN lang=EN-US><o:p> </o:p></SPAN></P></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>