>Hola estoy realizando un llamado de dos vistas al mismo tiempo sobre una coneccion y al ejecutar mi codigo me manda un error que dice que la coneccion esta ocupada no se como poder determinar cuando esta liberada la coneccion para que permita continuar abriendo la segunda tabla si alguien me puede ayudar se los agradeceria bastante.
>
>Me despido y estamos en contacto les envio el error que me envia y el codigo que estoy usando para activar estas dos tablas.
>
>Error 1541:
>Connection DRIVER=SQL Server;SERVER=SERVERSJR\SQLEXPRESS;UID=emanuel;PWD=lloskks;APP=Microsoft Visual FoxPro;WSID=VILLI;DATABASE=PDVS is busy.
>
>DO E:\WPROGEN\EXCLU
>lcDataBase = "PDVS"
>lcServer = "SERVERSJR\SQLEXPRESS"
>lcUser = "emanuel"
>lcPassword = "lloskks"
>
>PUBLIC lcConn
>TEXT TO lcConn NOSHOW TEXTMERGE PRETEXT 7
> Driver={SQL Server};Server=<
>;Database=<>;
> Uid=<>; Pwd=<>
>ENDTEXT
>
>lnConexion = SQLSTRINGCONNECT(lcConn)
>
>IF lnConexion > 0
> TRY
> USE dbastandar!VCLA CONNSTRING lnConexion ALIAS CLA IN 0
> USE dbastandar!VEMP CONNSTRING lnConexion ALIAS EMP IN 0
> lnId = CLA.T_ID
> *USE dbastandar!VCLAID CONNSTRING lnConexion ALIAS WCLA IN 0
> CATCH TO OERR
> =MESSAGEBOX([Error en vistas:]+CHR(13) + CHR(10)+ CHR(10)+ CHR(10)+;
> [Error :] + STR(OERR.ERRORNO)+ CHR(10)+ ;
> [Mensaje: ] + OERR.MESSAGE + CHR(10)+;
> [Detalles: ] + OERR.DETAILS + CHR(10),;
> 16,"Verifique Error")
> FINALLY
> ENDTRY
>ELSE
> IF AERROR(laError) > 0
> MESSAGEBOX("Error Conectar al Servidor de Datos :"+laError[2],16,"Error de Conexión")
> ENDIF
>ENDIF
>
>
>Gracias a todos ustedes .
>atentamente Emanuel O. Villicaña Villegas
Hola Emanuel,
Se puede compartir la conexion: SQLSTRINGCONNECT([lShared] | [cConnectString [, lSharable]])
De la manera que hiciste ne se comparte. Busca en help.
José
