Hola Amigos del Foro...soy nuevo, la verdad es que hace tiempo que frecuento el foro y se lo buenos que son con los recién llegados
Bueno, sin mas preámbulo, estaría muy agradecido si me dan una ayudita del porque me arroja el siguiente error, al llamar mi programa vs desde una componente.
me explico? bueno, mi programa en vs, esta hecho para ser una librería la cual publicare mediante COM+, esta com+ la utiliza una pag. ASP. y esta pag. en ASP me retorna el siguiente mensaje.
"
ADODB.Connection error '800a0e78'
La operación no está permitida si el objeto está cerrado. "
Leí sobre el error, y tiene que ver con un juego de abrir/cerrar la conexión, a continuación les dejo el código VS en cuestión.
Código:
Public Function CargarPwd(LoginEmpresa As String, LoginUsuario As String, Password As String) As Boolean
On Error GoTo Error_CargarPwd
CodEmp As Long
Dim CodBco As Long
CargarPwd = False
Conn.Open Conexion ' Conexion es mi connString (está validado el formato)
Set proc = New ADODB.Command
Set proc.ActiveConnection = Conn
proc.CommandType = adCmdStoredProc
proc.CommandText = "extranet.pkg_Componentes.sp_Gente_Usu_CargarPwd"
proc.Parameters.Append proc.CreateParameter("p_LoginEmpresa", adVarChar, adParamInput, 200, LoginEmpresa)
proc.Parameters.Append proc.CreateParameter("p_LoginUsuario", adVarChar, adParamInput, 200, LoginUsuario)
proc.Parameters.Append proc.CreateParameter("p_password", adVarChar, adParamInput, 200, Password)
Dim Rs As New ADODB.Recordset
Set Rs = proc.Execute
Do While Not Rs.EOF
mCodigo = Rs("usicodigo")
mLoginEmpresa = Rs("usiloginempresa")
mLoginUsuario = Rs("usiloginusuario")
mPassword = Rs("usipassword")
mUltPass = Rs("usiultpass")
mNombreUsuario = Rs("usinomusuario")
mTipo = Rs("usitipo")
mCargo = Rs("usicargo")
mNumLocal = Rs("usilocal")
mCodVenta = Rs("usicodventa")
mCheques = Rs("usicheques")
mCodigoEmpresa = Rs("usicodempresa")
mEmail = Rs("usiemail")
CodEmp = Rs("usicodempresa")
CodBco = Rs("usicodbanco")
CargarPwd = True
Exit Do
Loop
If CargarPwd Then
If CodEmp <> 0 Then
Empresa.Conectar Conexion
If Not Empresa.Cargar(CodEmp) Or Not CargarPwd Then
CargarPwd = False
End If
End If
If CodBco <> 0 Then
Banco.Conectar Conexion
If Not Banco.Cargar(CodBco) Or Not CargarPwd Then
CargarPwd = False
End If
End If
If CargarPwd Then
If Not RegistraConeccion(mCodigo) Then
CargarPwd = False
End If
End If
End If
Conn.Close
Exit Function
Error_CargarPwd:
Conn.Close
CargarPwd = False
Exit Function
End Function
Bueno amigos, espero me puedas ayudar, estaré muy agradecido de ello.
Saludos.