error 1541 La conexión #0 está ocupada.

[Dario Alberto Becerra Begazo]

Tengo este problema al momento de establecer mi entorno de trabajo con firebird desde vfp. Cómo puedo solucionarlo?

[Dario Alberto Becerra Begazo]

Así coloco en mi código: 

  Function ESTABLECERENTORNO

    with This

      .nResultado = -1    

      do case

        case SQLSETPROP(.nHandle, "Asynchronous"      ,  .F.) < 0     

        case SQLSETPROP(.nHandle, "BatchMode"         ,  .T.) < 0     

        case SQLSETPROP(.nHandle, "ConnectTimeOut"    ,   15) < 0     

        case SQLSETPROP(.nHandle, "DisconnectRollback",  .F.) < 0     

        case SQLSETPROP(.nHandle, "DispLogin"         ,    3) < 0     

        case SQLSETPROP(.nHandle, "DispWarnings"      ,  .F.) < 0    

        case SQLSETPROP(.nHandle, "IdleTimeout"       ,    0) < 0     

        case SQLSETPROP(.nHandle, "PacketSize"        , 4096) < 0  

        case SQLSETPROP(.nHandle, "QueryTimeOut"      ,    0) < 0  

        case SQLSETPROP(.nHandle, "Transactions"      ,    1) < 0     && En esta parte es donde sale el error.

        case SQLSETPROP(.nHandle, "WaitTime"          ,  100) < 0    

        otherwise

          .nResultado = 1 

      endcase

      Return (.nResultado == 1)

    endwith

  EndFunc

[Dario Alberto Becerra Begazo]

Me Sale este mensaje:

El jueves, 28 de noviembre de 2019, 23:57:13 (UTC-5), Dario Alberto Becerra Begazo escribió:

[ZeRoberto]

En Transaction pon un Try

Saludos 

ze 

--
Visita el 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 esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/30f6308b-f26c-42b7-804e-26b481bcff1e%40googlegroups.com.

[ArturoPC]

Comenta o borra esa línea. Con eso se soluciona.

[Dario Alberto Becerra Begazo]

eso hice y funcionó. Gracias.

[Luis suescún]

Cual línea ?

--

Visita el 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 esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/24b236aa-624c-4714-8708-8b97be557a3a%40googlegroups.com.

[Germán Fabricio Valdez]

usas VFPA,10 o VFP9

en VFPA se corrigio el eror en la ultima version que publique.

en VFP9 no da ese error.  

estas instrccion es una de las mas importantes en el manejo de transacciones

[ZeRoberto]

Pon esto asi

Local loError

SQLSetProp(0, "Asynchronous",        .F.)     && Los conjuntos resultado son retornados sincrónicamente (.F.)
SQLSetProp(0, "BatchMode",           .T.)     && SQLEXEC() retorna todos los conjuntos resultado de una sola vez (.T.)
SQLSetProp(0, "ConnectTimeOut",       15)     && El tiempo de espera, en segundos, antes de retornar un error de conexión (15)
SQLSetProp(0, "DisconnectRollback",  .T.)     && Las transacciones pendientes son grabadas o desechadas con SQLDISCONNECT. (.F. = grabadas)
SQLSetProp(0, "DispLogin",             3)     && La caja de diálogo ODBC no se muestra (3)
SQLSetProp(0, "DispWarnings",        .F.)     && Los mensajes de error no son mostrados (.F.)
SQLSetProp(0, "IdleTimeout",           0)     && El tiempo en minutos para que una conexión no usada se desactive (0 = nunca)
SQLSetProp(0, "PacketSize",         8192)     && Tamaño del paquete de datos usado por la conexión (4096)
SQLSetProp(0, "QueryTimeOut",          0)     && El tiempo de espera, en segundos, antes de retornar un error general (0)
SQLSetProp(0, "WaitTime",            100)     && El tiempo, en milisegundos, hasta que VFP verifique que la instrucción SQL se completó (100)

Try
   SQLSetProp(0, "Transactions",       1)     && 1 Automatico, 2 Manual
 Catch To loError
EndTry

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El jue., 5 de dic. de 2019 a la(s) 14:48, Dario Alberto Becerra Begazo (muniocona...@gmail.com) escribió:

  case SQLSETPROP(.nHandle, "Transactions"      ,    1) < 0     && En esta parte es donde sale el error.

Cual línea ?

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/24b236aa-624c-4714-8708-8b97be557a3a%40googlegroups.com.

--
Visita el 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 esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/2d86c420-673d-4550-8e3f-2cb82de70aec%40googlegroups.com.