Actualizar datos desde un Cursor a SQL Server 2019

[integral]

Que tal amigos 

Muy Buenos Dias

Quiero actualizar algunos registros desde VFP9 a SQL Server 2019 desde un Cursor...

Venia utilizando lo siguiente :

TEXT To lcSQL_UP NOSHOW

   UPDATE dbo.Prestamos

      SET ...

ENDTEXT

IF SQLExec(cn. lcSQL_UP_04) < 1

    = AERROR(laerror)

...

ENDIF

Buscando hoy cierta información encontré el siguiente ejemplo  Con algunos Comandos que No vengo utilizando.

Aquí les muestro el ejemplo del código que encontré

SELECT tu Tabla o Cursor

* Variables a Grabar

nID = TuTabla.ID
nNombre = TuTabla.Nombre
nTelefono = TutTabla.Telefono
...

ThisForm.Conectar && Conecta con la DB SQL Server o bien crea la conexion a SQL

= SQLSETPROP(lnHandle,'Transactions',2) && Iniciamos la transaccion

TEXT TO lcSQL NOSHOW
     INSERT INTO TBLTABLA (ID,Nombre,Telefono)
           VALUES (?nID,?nNombre,?nTelefonor)
ENDTEXT

IF SQLEXEC(lnHandle,lcSQL)<0
    IF AERROR(laError)>0
         Menssagebox( laError[2])
    ENDIF
ENDIF

IF SQLCOMMIT(lnHandle) > 0    && Confirma los cambios
    * && Aquí nada, ya que significa que se realizo exitosamente
ELSE
   IF AERROR(laError)>0
       SQLROLLBACK(lnHandle)   && Deshacemos los cambios
       Messagebox ( laError[2])
   ENDIF
ENDIF

Agradezco sus comentarios y sugerencias

Saludos,

Integral

[integral]

Que tal amigos 

Muy Buenos Días

Grabo los cambios que se realizan en cada registro .Pero esta sucediendo algo extraño.

La tabla principal tiene 35 campos. Actualizo algunos registros desde VFP9 a SQL Server 2019 desde un Cursor...

Utilizo el siguiente código :

  TEXT TO lcSQL_UP_05 TEXTMERGE NOSHOW
   UPDATE dbo.prestamos
 SET fech_regis  = ?m.fech_regis,
          registro      = ?m.registro,
          cod_pres   = ?m.cod_pres,
...

  ...

...

          obs           = ?m.obs       && Hasta completar los 35 campos
 WHERE registro = ?m.registro
  ENDTEXT

Y me aparece el siguiente mensaje ...

 

 

Aquí viene lo extraño. Si solo indico en el código del UPDATE solo 16 campos. No me muestra el mensaje del error y

graba perfectamente los cambios realizados.

Busque información sobre el =MessageBox y leí que soporta a 1024 caracteres de lo contrario se truca el mensaje...

Agradezco sus comentarios y sugerencias.

Saludos,

Integral

[Gerardo Cagnola]

es el tamaño del string del update, está "truncado" la sentencia

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/8e85e83b-b589-439c-8d5f-a274bc21480fn%40googlegroups.com.

[Wagner Cevallos]

Creo que para que evites el desbordamiento de texto , utiliza un procedimiento almacenado  que diseñes en SQL y lo llamas desde VFP

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/8e85e83b-b589-439c-8d5f-a274bc21480fn%40googlegroups.com.

--

Ing. Wagner Javier Cevallos  Macías

0985303564-0996496512

^{Portoviejo-Manabí-Ecuador}

[Gerardo Cagnola]

35 campos a actualizar??? too much

podrías revisar que dato se actualizó y cual no, y recién ahí armás el update

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CADp%3DHRrb8uaJN8zrVNOUUM_5RwpD%3DbnzZj%2Be0V84BHWZ_APbyw%40mail.gmail.com.

[elkin dario uribe torres]

Buenos días.

Pueden ser muchos los campos, pero a veces necesarios.  En mi caso para un software se necesitaron actualizar 41 campos y tenia ese problema y un amigo que se llama Luis Horacio me recomendó no volver a utilizar la instrucción:

TEXT TO lcSQL_UP_05 TEXTMERGE NOSHOW

ENDTEXT

Que la cambiara por esta

set textmerge on TO memvar lcStringSQL noshow

set textmerge to

y desde ahí la vengo utilizando y no he tenido problemas.

Cordialmente

Elkin uribe

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CA%2B7ERdvL19uiZ_yg3ppDeF6Q8F9P5H4t3idzfxVTj3UgvjP_Ew%40mail.gmail.com.

[integral]

Que tal amigos del Foro

Gracias por sus comentarios y  sugerencias.

Colega Elkin Uribe, estuve buscando y leyendo información a cerca de este comando.  Fue a partir de VFP 7.0 que se comenzó a utilizar.

En versiones anteriores se utilizaba el comando que sugieres.

SET Textmerge on TO

Encontré también un articulo donde mencionan utilizar el PRETEXT...

Si no funciona con ello, tendré que utilizar tu sugerencia.

Atte.

Integral

[Mik]

Yo estilo usarlo así:

TEXT TO myCommand NOSHOW PRETEXT 15

ENDTEXT

El TEXTMERGE solo lo uso cuando voy a escribir en el comando el valor de alguna variable <<myVariable>>

Quiza te sirva!

Saludos!!

[integral]

Que tal amigos

Muy Buenas Noches

El siguiente código fue la solución a mi problema.

TEXT TO lcSQL_UP_05 TEXTMERGE NOSHOW PRETEXT 15

....

ENDTEXT 

ó

TEXT TO lcSQL_UP_05 TEXTMERGE NOSHOW PRETEXT 2+4+8

...

ENDTEXT

Hasta la próxima.

Saludos,

Integral

[DSánchez]

Hola Integral

Y porque no te vas hacer store procedure mejor,  en mi caso me paso algo raro  con  = SQLSETPROP(lnHandle,'Transactions',2) && Iniciamos la transaccion 

no me confiaria de esto en un sistema con muchas concurrencias y mas donde hay problemas de conectividad inestabilidad de luz y grabando tablas encabezados y detalles.

Mejor migrar a store procedure ahora con un curso que tomes en udemy u otro lado, mas la I.A. avanzas rapido.

Saludos

[Esteban Herrero]

Es así Douglas, en todos los motores están los Store Procedures, xq no usarlos, p eso están. Simplifica el código.

Con respecto a las Transacciones, SIEMPRE usar transacciones Manuales sin dudarlo a esto.

Si estas teniendo problemas es xq quizás estas definiendo mal el Modo antes del Select/Update.

No utilizo mucho SqlServer pero creo q el modo es "isolation level serializable", no recuerdo bien si tanto p Select/Update, en FB utilizo distintos modos ya sea p Update o Select.

Saludos

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/f2d180b5-04f7-4627-b63c-4a167bbcd399n%40googlegroups.com.

[Dsan]

Hola buen dia.

Claro de acuerdo con usted Esteban,  ese tema lo tengo muy claro, en el grupo me apoye mucho con los manuales y 2 que 3 que recuerdo presentaciones de Miguel Antunez, 

pero mas que escribir código, con clientes que no tiene muchos recursos hay que saber implementar desde la codificación hasta la configuración del servidor en este caso SQL Server, y hasta que me tome un cursos dba pues aprendí esa lección no solo es codificación, sino también saber instalar y configurar el motor que sea. 

Y aprendí a la mala, y pues trabajar de lado del servidor es lo más correcto más que las api odbc vienen cambiando y nuestro vfp vienen quedando atrás, en mi caso ya hace un poco más de tres año usando vfp advanced que por mucho no estén de acuerdo con su uso, pero tengo la alternativa de reportar bugs y me solucionen, algo que no tenemos en vfp9.  lógico mientras se va avanzando en otra plataforma, para escritorio pos vfp/vfp advanced.

Pero al final mi recomendación para el colega Integral,  es no confiarse en la transacción sino hacerlo todo transaccional del lado del servidor en el motor que se use.

saludos

DSanchez

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/CdnF2b_DZ9Q/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/3936f6b6-6569-491b-a12f-f0690abe8ab8%40yahoo.com.ar.

[mpulla]

Hola Integral.

Como te recomiendan algunos colegas es mejor manejarlo en la base de datos, hace mucho generaba un xml con todos los datos que necesitaba al mandar a grabar, paso el xml a sql server y el lo procesaba.

Con json es mas liviano, mira este ejemplo.

CREATE PROCEDURE sp_Productos_iu
    @Productos NVARCHAR(MAX)
AS
BEGIN
    SET NOCOUNT ON;

    BEGIN TRY
        BEGIN TRANSACTION;

        SELECT
            JSON_VALUE(value, '$.ItemId') AS ItemId,
            JSON_VALUE(value, '$.Nombre') AS Nombre,
            JSON_VALUE(value, '$.Precio') AS Precio,
        INTO #ProductosTemp
        FROM OPENJSON(@Productos);

        MERGE INTO Productos AS Target
        USING #ProductosTemp AS Source
        ON (Target.ItemId = Source.ItemId)
        WHEN MATCHED THEN
            UPDATE SET
                Target.Nombre = Source.Nombre,
                Target.Precio = Source.Precio,
                Target.FechaActualizacion = GETDATE()
        WHEN NOT MATCHED BY TARGET THEN
            INSERT (ItemId, Nombre, Precio)
            VALUES (Source.ItemId, Source.Nombre, Source.Precio);

        DROP TABLE #ProductosTemp;

        COMMIT TRANSACTION;

    END TRY
   
    BEGIN CATCH
        IF @@TRANCOUNT > 0
            ROLLBACK TRANSACTION;
       
        DECLARE @ErrorMessage NVARCHAR(4000);
        DECLARE @ErrorSeverity INT;
        DECLARE @ErrorState INT;

        SELECT
            @ErrorMessage = ERROR_MESSAGE(),
            @ErrorSeverity = ERROR_SEVERITY(),
            @ErrorState = ERROR_STATE();

        RAISERROR(@ErrorMessage, @ErrorSeverity, @ErrorState);
    END CATCH
END;

Saludos.

Mauricio

El lunes, 24 de noviembre de 2025 a las 10:30:40 UTC-5, integral escribió: