Conexión a BD en una clase

JavierMMM · #1 (**permalink**) 09/11/2012, 12:46

Hola a todos. Ya de nuevo por aquí con una duda, porque he estado trabajando con una clase simple de la siguiente manera:

Código ASP:

Ver original<%
Dim MyRobot
 
Set MyRobot = new Cyborg
 
Response.Write "<br>Esto --> '" & MyRobot.CyborgName & "' está declarado en la clase."
 
 
Class Cyborg
Public CyborgName
 
     Public Sub Class_Initialize
      Response.Write "<br>Clase creada"
      CyborgName = "[ Cameron ]"
     End Sub 
      
 
     Public Sub Class_Terminate
      Response.Write "<br>Clase destruida"
     End Sub 
End Class
 
%>

Pero lo que ahora intento es que desde la clase se haga mi conexión a la BD que tengo en SqlSever. Lo que he intentado es lo siguiente

Código ASP:

Ver original<%@LANGUAGE=VBScript%>
<!-- #include file="lib/archivodeconexion.asp" -->
 
<html>
<body>
 
<%
 
Set Cnxn = new conexion
 
    Cnx = Cnxn.conn
    Cnx.open
 
    strSQL = "Select * From MiTabla"
    set objRS = Cnx.execute (strSQL)
 
%>
 
</body>
</html>
 
<%
Class conexion
 
Public conn
 
    Public Sub Class_Initialize
        Set conn = Server.CreateObject ("Adodb.Connection")
        conn.ConnectionString=aliascadconexion
        Response.Write "<br>Clase creada<br /><br />"
    End Sub
 
 
    Public Sub Class_Terminate
        Response.Write "<br><br>Clase destruida"
        'if conn.State > 0 then conn.close
        'set conn=nothing
    End Sub
End Class
%>

Esta consulta me funciona perfectamente con la cadena de conexión pues ya la he usado, pero ahora cuando uso la clase me manda el siguiente mensaje:

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: 'DSN=conexion;UID=usuario;P'

Si alguien puediera orientarme en que estoy haciendo mal se los agradeceré.

Saludos.