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
SecPro Sistemas, S.A. de C.V.
México