Hola..
s� que lo tengo en alg�n lado, pero no lo encuentro :) C�mo es la sintaxis para crear una consulta (tzquery) creando el componente por c�digo??.. o sea, sin usar el componente tzquery en dise�o..
chauuuuuuuu
Mailing lists / lazarus-es / 2010-06
consulta sin componentes
6 messages · 3 people · –
- christian Ortiz 2
- Maxi 2
- Paola Bruccoleri 2
Reply by email Subscribe to this list Your subscription
Read-only archive. Use j and k to move between messages.
Hola paola, seria algo como
procedure .......
var Query:Tquery;
DS : Tdatasource;
begin
query := TQuery.create();
DS:= Tdatasource.create();
with query do begin
close;
sql.text:='select ....';
open;
end
endEl 7 de junio de 2010 16:13, Paola Bruccoleri
<pbruccoleri en adinet.com.uy>escribi�:
Show quoted text 13 lines
Hola..
s� que lo tengo en alg�n lado, pero no lo encuentro :)
C�mo es la sintaxis para crear una consulta (tzquery) creando el componente
por c�digo??.. o sea, sin usar el componente tzquery en dise�o..
chauuuuuuuu
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
Christian
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100607/99fa2135/attachment.html>
un codigo mas seguro:
with TZquery.Create(Nil) do
try
Connection := Tu conexion
Sql.Text:= 'Tu consulta';
open o execsql; //dependiendo que haces
finally
Free;
endsi falla la consulta no te queda creado el objeto.
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504
El que pregunta aprende, y el que contesta aprende a responder.
2010/6/8 Maxi <maximiliano.duarte en gmail.com>
Show quoted text 11 lines
un codigo mas seguro:
with TZquery.Create(Nil) do
try
Connection := Tu conexion
Sql.Text:= 'Tu consulta';
open o execsql; //dependiendo que haces
finally
Free;
end
creo q en vez del *finally *seria *except*. *Finally *siempre se ejecutara
Show quoted text 16 lines
si falla la consulta no te queda creado el objeto.
--
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504
El que pregunta aprende, y el que contesta aprende a responder.
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
Christian
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100608/33d677e8/attachment.html>
2010/6/8 christian Ortiz <xortix en gmail.com>:
Show quoted text 44 lines
2010/6/8 Maxi <maximiliano.duarte en gmail.com>
>
> un codigo mas seguro:
>
> with TZquery.Create(Nil) do
> try
> �Connection := Tu conexion
> �Sql.Text:= 'Tu consulta';
> �open o execsql; //dependiendo que haces
> finally
> �Free;
> end
creo q en vez del finally seria except. Finally siempre se ejecutara
>
> si falla la consulta no te queda creado el objeto.
>
> --
> Twitter: @nenunocomar
> Maximiliano Duarte
> Linux User #495070
> Ubuntu User #28504
>
> El que pregunta aprende, y el que contesta aprende a responder.
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
--
Christian
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
Si falla con except tenes que capturar la excepcion, sino con finally falle o no se libera el objeto
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504
El que pregunta aprende, y el que contesta aprende a responder.
un codigo mas seguro: with TZquery.Create(Nil) do try Connection := Tu conexion…
Maxi escribi�:
Show quoted text 13 lines
un codigo mas seguro:
with TZquery.Create(Nil) do
try
Connection := Tu conexion
Sql.Text:= 'Tu consulta';
open o execsql; //dependiendo que haces
finally
Free;
end
si falla la consulta no te queda creado el objeto.
Hola Maxi y Christian..
muchas gracias!!
Saludos...