Conexión a BD en una clase
Publicado por JavierMMM (3 intervenciones) el 15/11/2012 18:07:02
Hola a todos. Entro en el foro con una duda, porque he estado trabajando con una clase simple de la siguiente manera:
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
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.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<%
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<%@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.
Valora esta pregunta
0