Amigos necesito buscar y rescatar parte de un campo memo,

para ser mas exacto solo 3 renglones con una info que se va guardando a
medida que se modifican los datos de un crédito. (ej el cobrador actual)



hay alguna forma de ver estos datos con alguna consulta o algo asi



espero sus comentarios



Gracias.





Walter Cómito

 Analista de Sistemas

 MP 0397 C.P.C.I.P.C.



›   <mailto:[email protected]> [email protected]

          <mailto:[email protected]> [email protected]



'   +54 351 494.4667

           153.292.707



þ  <http://www.softram.com.ar/> www.softram.com.ar



Q  Si no es necesario, no imprima este correo.

Todos somos responsables por el cuidado del medio ambiente.





NOTA DE CONFIDENCIALIDAD
Este mensaje (y sus anexos) es confidencial y puede contener información de
propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje
por error,
por favor comuníquelo inmediatamente a  <mailto:[email protected]>
walter.comito@ <http://gmail.com/> gmail.com y tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.

Muchas Gracias.



De: [email protected] [mailto:[email protected]] En nombre de Ricardo Aidelman
Enviado el: miércoles, 01 de abril de 2015 21:32
Para: GUFA List Member
Asunto: [GUFA] UPDATE - SQL Command vs. Seek() + Gather



Caballeros:

Tengo una tabla libre MiTabla.dbf, con una PK sobre el campo MiTabla.Id
(Integer)



Tambien tengo un cursor MiCursor, leído con un Select obre MiTabla, donde
modifico algunos campos.



Hasta ahora actualizaba MiTabla con el Procedure Grabar1(), pero tenía
problemas de performance.

Hice pruebas con el Coverage, y el Procedure Grabar2() resultó ser
infinitamente más veloz.



La preguntaes: está mal el comando Update – SQL, o siempre es preferible el
Seek() + Gather



La tabla que se actualiza tiene 12500 registros y pesa 4.0Mb.

El cursor que actualiza la tabla tiene 10 registros

Estoy usando VFP9 SP2





Procedure Grabar1()

     Update MiTabla Set ;

         MiTabla.Campo1 = MiCursor.Campo1,;

         MiTabla.Campo2 = MiCursor.Campo2,;

         MiTabla.Campo3 = MiCursor.Campo3,;

         MiTabla.Campo4 = MiCursor.Campo4 ;

         From MiCursor ;

         Where MiTabla.Id = MiCursor.Id





     * Tiempo de Proceso: Avg 0.636852



Endproc







Procedure Grabar2()



     Select MiCursor

     Locate



     Scan



         Scatter Fields ;

              Campo1, Campo2, Campo3, Campo4 Name loReg



         Select MiTabla



         If Seek( MiCursor.Id, "MiTabla", "Id" )



              Rlock()

              Gather Name loReg

              Unlock

         Endif



         Select MiCursor



     EndScan



     * Tiempo de Proceso: Avg 0.078448



Endproc



Muchas gracias





ricardo aidelman

( socio nº 1545 )

Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 2015.0.5863 / Base de datos de virus: 4321/9433 - Fecha de la
versión: 01/04/2015



---
El software de antivirus Avast ha analizado este correo electrónico en busca de 
virus.
http://www.avast.com

Responder a