[Lazarus-es] Utilizar control TSQLQuery sin conexión a BD

Fredy Gonzales fredyg1965 en gmail.com
Jue Mayo 26 18:02:39 CEST 2011


No se si te sirva esto..

Yo tengo creado un componente TSQLquery a apuntando a cualquier tabla. desde 
de DataModule, eso si siempre conectado a mi base de datos principal.

Entonces cuando quiero realizar algo sencillo con mi base de datos que no 
requiera mucho problemas realizo esto


// Aqui actualizo algunos datos de menos importancia.
 With global.qrytools do begin;
           Close;
           SQL.Text:='UPDATE conductor Set con_imaid = :ID1 WHERE con_id = 
:ID2';
           Params.ParamByName('ID1').AsInteger := 0;
           Params.ParamByName('ID2').AsInteger := idCond;
           ExecSQL;
           Close;
     end;


// Aqui hago una consulta con el mismo componente, pero a una tabla 
distinta.
 With global.qrytools do begin;
          Close;
          SQL.Text:='Select mov_id,mov_num from movil where mov_estado=0 and 
mov_id not in (Select con_idmov from conductor where con_idmov > 0)';
          Open;
          SetLength(aIdCboVeh,RecordCount);
          SetLength(aNumMov,RecordCount);
          i:= 0;
          while Not EOF Do
              begin
                 cbovehiculos.Items.Add('Movil ' + 
FieldByName('mov_num').AsString);
                 aIdCboVeh[i] := FieldByName('mov_id').AsInteger;
                 aNumMov[i] := FieldByName('mov_num').AsString;
                 i:= i + 1;
                 Next;
              end;
          Close;
     end;

Si te das cuenta, uso el qrytools indistintamente a cualquier cosa que yo 
quiera hacer y como vez, hasta le paso parametros.

Todo eso con el ZeosDBO.

Tengo un gran problema con Lazarus 0.9.31 que lo instale y no puedo 
reinstalar los paqueres de Zeos si no te enviara un ejemplo.

Saludos.

FG







----- Original Message ----- 
From: "Ismael L. Donis García" <ismael en citricos.co.cu>
To: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Sent: Wednesday, May 25, 2011 2:48 PM
Subject: Re: [Lazarus-es]Utilizar control TSQLQuery sin conexión a BD


No me sirve, trabajo con Firebird y quiero que la aplicación corra tanto en
Windows como en Linux

Gracias de todos modos por el comentario.
=========
|| ISMAEL ||
=========
----- Original Message ----- 
From: "Maxi" <maximiliano.duarte en gmail.com>
To: "Spanish version of Lazarus List"
<lazarus-es en lists.lazarus.freepascal.org>
Sent: Wednesday, May 25, 2011 3:31 PM
Subject: Re: [Lazarus-es] Utilizar control TSQLQuery sin conexión a BD


Mysql tiene la Posibilidad de crear tablas en memoria que pueden ser o
no persistentes a reinicios

-- 
No a la obsolecencia programada:
http://dimensionargentina.blogspot.com/2011/01/todo-esta-disenado-para-romperse.html

Twitter: @nenunocomar
Identi.ca: @nenuno
Linux User #495070
Ubuntu User #28504
http://miexperiencialinux.blogspot.com/

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



_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es 





More information about the Lazarus-es mailing list