Conexión con base de datos
No onsigo conectar por meio de orÃgenes de datos de ODBC mi página ASP con una base de datos de Acces. He probado con DSN de usuario, con DSN de sistema y con DSN de archivo, pero siempre me aparece en la página el siguiente mensaje de error:
Error en Base de Datos: El objeto no acepta esta propiedad o método
A continuación os dejo el código con el q he estado haciendo las pruebas, a ver si alguien puede ayudare.
<%
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Base"
strSQL = "Select * from DatosAlumnos"
Set miConexion = Conexion.Execute(strSQL)
If Err.Descrpition <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write "<B>Todo OK</B>"
End If
miConexion.Close
Conexion.Close
Set miConexion = Notinhg
Set Conexion = Nothing
%>
Error en Base de Datos: El objeto no acepta esta propiedad o método
A continuación os dejo el código con el q he estado haciendo las pruebas, a ver si alguien puede ayudare.
<%
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Base"
strSQL = "Select * from DatosAlumnos"
Set miConexion = Conexion.Execute(strSQL)
If Err.Descrpition <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write "<B>Todo OK</B>"
End If
miConexion.Close
Conexion.Close
Set miConexion = Notinhg
Set Conexion = Nothing
%>
'Aca te envio un ejemplo de como la abro yo te faltan algunos parametros en el open.
Dim cn,rs,constr,sql
SET cn = Server.CreateObject ("ADODB.Connection")
constr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BasedeDatos.mdb") & ";"
constr = constr & "Jet OLEDB:Database Password=XXX"
sql= "SELECT * FROM Tabla "
SET rs = Server.CreateObject ("ADODB.RecordSet")
cn.Open constr
rs.Open sql, cn, 3, 1
Dim cn,rs,constr,sql
SET cn = Server.CreateObject ("ADODB.Connection")
constr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BasedeDatos.mdb") & ";"
constr = constr & "Jet OLEDB:Database Password=XXX"
sql= "SELECT * FROM Tabla "
SET rs = Server.CreateObject ("ADODB.RecordSet")
cn.Open constr
rs.Open sql, cn, 3, 1