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.