Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2011-05

Utilizar control TSQLQuery sin conexión a BD

10 messages · 5 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

José Mejuto
to Ismael L. Donis García

Hello Ismael,

Wednesday, May 25, 2011, 5:42:02 PM, you wrote:

ILDG> Es posible usar el control TSQLQuery para una consulta ILDG> sin que esta est� relacionada a ninguna tabla o consulta de una ILDG> base de datos?
ILDG> De ser posible como se har�a?

Depende de la base de datos a la que se est� conectado (hay que estar conectado). Puedes poner un ejemplo ?

Best regards, Jos�

Reply by email

Ismael L. Donis García
to José Mejuto

No, lo que necesito es eso. Un ejemplo en caso de poderse realizar.

Uso Firebird, pero quiero levantar un TSQLQuery como si fuera una tabla virtual, �sea una tabla inexistente. Por supuesto definiendo los campos en tiempo de ejecuci�n.

Saludos Reiterados
=========
|| ISMAEL ||
=========

Earlier message 25 lines
----- Original Message ----- From: "Jos� Mejuto" <joshyfun en gmail.com> To: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus.freepascal.org> Sent: Wednesday, May 25, 2011 2:22 PM Subject: Re: [Lazarus-es]Utilizar control TSQLQuery sin conexi�n a BD Hello Ismael, Wednesday, May 25, 2011, 5:42:02 PM, you wrote: ILDG> Es posible usar el control TSQLQuery para una consulta ILDG> sin que esta est� relacionada a ninguna tabla o consulta de una ILDG> base de datos? ILDG> De ser posible como se har�a? Depende de la base de datos a la que se est� conectado (hay que estar conectado). Puedes poner un ejemplo ? -- Best regards, Jos�

Reply by email

Maxi
to José Mejuto: ILDG> Es posible usar el control TSQLQuery para una consulta ILDG> sin que esta est�…

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.

Reply by email

Ismael L. Donis García
to Maxi

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 ||
=========

Earlier message 23 lines
----- 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.

Reply by email

Fredy Gonzales
to Ismael L. Donis García

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

Earlier message 38 lines
----- 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.

Reply by email

Ismael L. Donis García
to Fredy Gonzales

Lo que necesito es poner abrir un TSQLQuery y despu�s hacer Append y Post sobre el TSQLQuery abierto pero que no me salve los datos ni en tablas ni en ning�n archivo de disco, solo en memoria.

No se si me hago entender bien. Quiero tener consultas abiertas solamente en memoria que las pueda actualizar, pero solo los datos en memoria nada de crear archivos ni de salvar en tablas.

Solo manipulaci�n de los datos en memoria. Estoy buscando alternativas al control TMemDataset ya que los otros controles que he visto, o necesitan de la creaci�n de archivos o no tienen implementados los eventos. Por tal motivo es que quer�a ver si pod�a utilizar el TSQLQuery para lo que necesito.

Necesito migrar una aplicaci�n de Visual Basic y no logr� un control que me trabaje en memoria como necesito. Y eso que me han dicho que en Lazarus se puede hacer todo, pero no acabo de encontrar a ese todo y llevo en esto m�s de 1 mes, caso contrario tendr� que utilizar monodevelop cosa que no quer�a hacer ya que estar�a entonces trabajando con 2 sistemas y eso no me gusta porque me ocupa m�s tiempo.

Saludos Cordiales
=========
|| ISMAEL ||
=========

Earlier message 107 lines
----- Original Message ----- From: "Fredy Gonzales" <fredyg1965 en gmail.com> To: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus.freepascal.org> Sent: Thursday, May 26, 2011 12:02 PM Subject: Re: [Lazarus-es]Utilizar control TSQLQuery sin conexi�n a BD 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.

Reply by email

Fredy Gonzales
to Ismael L. Donis García

A ..ok

no dije nada.

Saludos.

FG

Earlier message 140 lines
----- 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: Thursday, May 26, 2011 12:00 PM Subject: Re: [Lazarus-es]Utilizar control TSQLQuery sin conexi�n a BD Lo que necesito es poner abrir un TSQLQuery y despu�s hacer Append y Post sobre el TSQLQuery abierto pero que no me salve los datos ni en tablas ni en ning�n archivo de disco, solo en memoria. No se si me hago entender bien. Quiero tener consultas abiertas solamente en memoria que las pueda actualizar, pero solo los datos en memoria nada de crear archivos ni de salvar en tablas. Solo manipulaci�n de los datos en memoria. Estoy buscando alternativas al control TMemDataset ya que los otros controles que he visto, o necesitan de la creaci�n de archivos o no tienen implementados los eventos. Por tal motivo es que quer�a ver si pod�a utilizar el TSQLQuery para lo que necesito. Necesito migrar una aplicaci�n de Visual Basic y no logr� un control que me trabaje en memoria como necesito. Y eso que me han dicho que en Lazarus se puede hacer todo, pero no acabo de encontrar a ese todo y llevo en esto m�s de 1 mes, caso contrario tendr� que utilizar monodevelop cosa que no quer�a hacer ya que estar�a entonces trabajando con 2 sistemas y eso no me gusta porque me ocupa m�s tiempo. Saludos Cordiales ========= || ISMAEL || ========= ----- Original Message ----- From: "Fredy Gonzales" <fredyg1965 en gmail.com> To: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus.freepascal.org> Sent: Thursday, May 26, 2011 12:02 PM Subject: Re: [Lazarus-es]Utilizar control TSQLQuery sin conexi�n a BD 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.

Reply by email

Jose Antonio Cuello Principal
to Ismael L. Donis García: Lo que necesito es poner abrir un TSQLQuery y despu�s hacer Append y Post sobre el…

Pero, exactamente que tiene que hacer el aplicativo, porque lo de migrar no tiene que ser necesariamente igual en un sistema que en otro y a veces con un peque�o cambio en el planteamiento del programa se logran muchos avances. Respecto a los dataset en memoria creo recordar que se explicaron distintas opciones, incluso se plantearon soluciones al locate. El "todo" de Lazarus/Free Pascal es que te puedes "montar" lo que necesites, pero claramente no todo est� desarrollado.

Recuerdo que las rx ten�an un TRxMemoryData pero deje de usarlo hace ya mucho, tal vez siga funcionando o te pueda servir de base para crearte tu propio componente. Otra opci�n es combinar Arrays con TreeView, se pueden hacer maravillas con el canvas de los TreeView.

Un saludo.

El jue, 26-05-2011 a las 13:00 -0400, Ismael L. Donis Garc�a escribi�:

Show quoted text 156 lines
Lo que necesito es poner abrir un TSQLQuery y despu�s hacer Append y Post sobre el TSQLQuery abierto pero que no me salve los datos ni en tablas ni en ning�n archivo de disco, solo en memoria. No se si me hago entender bien. Quiero tener consultas abiertas solamente en memoria que las pueda actualizar, pero solo los datos en memoria nada de crear archivos ni de salvar en tablas. Solo manipulaci�n de los datos en memoria. Estoy buscando alternativas al control TMemDataset ya que los otros controles que he visto, o necesitan de la creaci�n de archivos o no tienen implementados los eventos. Por tal motivo es que quer�a ver si pod�a utilizar el TSQLQuery para lo que necesito. Necesito migrar una aplicaci�n de Visual Basic y no logr� un control que me trabaje en memoria como necesito. Y eso que me han dicho que en Lazarus se puede hacer todo, pero no acabo de encontrar a ese todo y llevo en esto m�s de 1 mes, caso contrario tendr� que utilizar monodevelop cosa que no quer�a hacer ya que estar�a entonces trabajando con 2 sistemas y eso no me gusta porque me ocupa m�s tiempo. Saludos Cordiales ========= || ISMAEL || ========= ----- Original Message ----- From: "Fredy Gonzales" <fredyg1965 en gmail.com> To: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus.freepascal.org> Sent: Thursday, May 26, 2011 12:02 PM Subject: Re: [Lazarus-es]Utilizar control TSQLQuery sin conexi�n a BD 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 _______________________________________________ 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

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110527/ee21ce58/attachment.html>

Reply by email

Ismael L. Donis García
to Fredy Gonzales: No se si te sirva esto.. Yo tengo creado un componente TSQLquery a apuntando a cualquier…

La verdad soy nuevo en este mundo y no conozco todav�a el funcionamiento del TreeView, las dem�s soluciones las he mirado todas a no ser el TRxMemoryData ya que nunca he usado los RX, ni los tengo instalado porque una vez lo intent� y me dio error a la hora de instalarlos.

La soluci�n del locate que me dieron me sirvi� para unas cosas pero cuando trat� de enlazar un TDBLookupComboBox no me devuelve el KeyValue porque lo busca del locate del componente no del implementado por mi, por tanto esa opci�n tambi�n se me fue abajo.

Con los TreeView se pueden enlazar TDBLookupComboBox? porque ese es el problema que me est� matando.

Trat� de implementar el locate en el componente TMemDataset, pero me enred� y no funci�n bien. Parece que esta por ahora ser�a mi �nica opci�n (tratar de implementar el locate en este componente).

Saludos Reiterados
=========
|| ISMAEL ||
=========

Earlier message 16 lines
----- Original Message ----- From: Jose Antonio Cuello Principal To: Spanish version of Lazarus List Sent: Friday, May 27, 2011 2:47 AM Subject: Re: [Lazarus-es] Utilizar control TSQLQuery sin conexi�n a BD Pero, exactamente que tiene que hacer el aplicativo, porque lo de migrar no tiene que ser necesariamente igual en un sistema que en otro y a veces con un peque�o cambio en el planteamiento del programa se logran muchos avances. Respecto a los dataset en memoria creo recordar que se explicaron distintas opciones, incluso se plantearon soluciones al locate. El "todo" de Lazarus/Free Pascal es que te puedes "montar" lo que necesites, pero claramente no todo est� desarrollado. Recuerdo que las rx ten�an un TRxMemoryData pero deje de usarlo hace ya mucho, tal vez siga funcionando o te pueda servir de base para crearte tu propio componente. Otra opci�n es combinar Arrays con TreeView, se pueden hacer maravillas con el canvas de los TreeView. Un saludo. ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110527/258ea1ef/attachment.html>

Reply by email