image
Inicio » Foros » ASP

ASP

Conexión a BD en una clase

Volver al foro | Responder | Añadir nuevo tema


De: JavierMMM
Fecha: 15/11/2012
Mensaje:

Hola a todos. Entro en el foro con una duda, porque he estado trabajando con una clase simple de la siguiente manera:

<%
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

<%@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.


Volver al foro | Responder | Añadir nuevo tema

Quizás le interese:

WebEstilo.com no se hace responsable de las opiniones que los usuarios puedan verter en cualquiera de los foros existentes.

Si te solucionó el problema pulsa en G+1


Gracias!






Comparte



Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.