Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/09/2007, 04:21
Avatar de PosProdukcion
PosProdukcion
 
Fecha de Ingreso: noviembre-2004
Ubicación: Manzanares el Real (Madrid)
Mensajes: 726
Antigüedad: 20 años, 5 meses
Puntos: 9
Clase para conexion BD

Hola, estoy intentando hacer una clase parra agrupar los metodos de BD, tengo así:

Código:
<%
  Class bdConex
    
    Dim conex 'ADODB.Connection
    Dim errNum
    Dim errMsg
    Dim strSQL

    Public Sub bdConex
        'Crea la conexion
        Set conex = Server.CreateObject ("ADODB.Connection")
        
        On error resume next
        conex.Open Application("cadenaConexion")

        'Actualiza el valor de error
        errNum = Err.number
       
    End Sub
  
    Public Sub cerrar
        conex.Close
        'Set conex = nothing
    End Sub
    
  End Class
%>
Para llamarle desde un script ASP, hago:

Código:
<!-- #include file="clases/bdConex.asp" -->

Dim conexion
Set conexion = new bdConex

conexion.cerrar() 
El problema está al cerrar la conexión, me dice Se requiere un objeto: 'conex'

¿Cuál es el problema? ¿Será que no mantiene la instancia del objeto conex entre la llamada a Open y la llamada a cerrar? ¿Solución?

Gracias