Clase para conexion BD

[PosProdukcion]

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

[Myakire]

Pues no es que no se mantenga, simplemente no existe ¿dónde mandas llamar al procedimiento bdConex?, recuerda que esto no es C donde con colocar un método con el nombre de la clase se hace constructor.
Debes de implementar este método:

Código:

Private Sub Class_Initialize()
    Set conex = Server.CreateObject ("ADODB.Connection")
    conex.Open Application("cadenaConexion")
End Sub

Saludos

[PosProdukcion]

Y al Initialize() hay que llamarlo expresamente, no basta con el New Clase(), no?

[Myakire]

Y al Initialize() hay que llamarlo expresamente, no basta con el New Clase(), no?

No el método llamado Class_Initialize() es el constructor de las pseudo clases de vbscript, así como el Class_Terminate() es el destructor, sobra decir que se invocan solitos al instanciar la clase

Saludos

[Escorpion_Negro]

Bueno quería preguntar como se podría ocupar esta misma clase llamando una consulta o Procedimiento Almacenado en SQL Server y en la Clase retorne los registros

[PosProdukcion]

Te dejo mi versión....

Código:

Class bdConex
    Public rsQuery  'Es un array doble que contiene los datos leidos de BD, es
                    'una copia del recordset, pero en formato array
    Public totalRegistros

    Public Sub Query(cadenaSQL)
        Dim rs

        'Crea la conexion
        Set conex = server.createobject ("ADODB.Connection")
        conex.Open Application("cadenaConexion")

        Set rs = server.createobject("ADODB.RecordSet")
        rs.CursorType = 3
        'LockType = Read-Only
        rs.LockType = 1
        'CursorLocation = adUseClient
        rs.CursorLocation = 3
        'Y abrimos el Recordset
        'objRecordset.Open source,actconn,cursortyp,locktyp,opt
        rs.Open cadenaSQL, conex, 3, 1, 1

        'Obtengo los datos con GetRows
        If Not(rs.EOF) and Not(rs.BOF) Then
            rsQuery = rs.GetRows
            totalRegistros = rs.RecordCount
        Else
            totalRegistros = 0
        End If
        
        'Cierro y limpio objetos ya
        rs.Close
        conex.Close
        set rs = nothing
        set conex = nothing
    End Sub

    Public Sub Ejecuta(strSQL)
        Dim i
        Dim rsInsert

        'Crea la conexion
        Set conex = server.createobject ("ADODB.Connection")
        conex.Open Application("cadenaConexion")
        Set rsInsert = server.createobject("ADODB.RecordSet")
        
        set rsInsert = conex.execute(strSQL)

        conex.Close
        set rsInsert = nothing
        set conex = nothing

    End Sub
   ...........

[Muzztein]

wuau.... no tenia idea de estos.

Class_Initialize()
Class_Terminate()

yo los hacia a mano.

[PosProdukcion]

Iniciado por Muzztein

wuau.... no tenia idea de estos.

Class_Initialize()
Class_Terminate()

yo los hacia a mano.

Bueno, para mí el inconveniente es que no aceptan parámetros, así que en muchos casos en lugar de Initialize() uso un método inicializador con parámetros

[Muzztein]

claro, por que deben ser usados para crear los valores por defecto que tendran las variables a utilizar y cosas asi