La Web del Programador: Comunidad de Programadores
 
    Pregunta:  39222 - CONECTAR A MDB EN SERVIDOR WEB
Autor:  Juan Pablo Sanchez
Hola,
necesito realmente una ayuda porque me encuentro en un verdadero apuro.
Necesito conectarme a la base de datos de un servidor web, donde se encuantra una BD Access para operar con ella y facilitar el trabajo.
La conexión a esta BD l hago de la siguiente manera:

Dim conn As New ADODB.Connection
Dim rs As New Recordset

server = "http://www.servidor.com"
Source = "D:\rura\datos.mdb"

strconn = "Provider=MS Remote;" & "Remote Server=" & server & ";" & "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Source & ";" & "admin" & ";"

conn.Open strconn

SQL = "Select * From tabla"

rs.Open SQL, conn, 1, 2

el problema es cuando abre el recordset, y el mensaje es el siguiente:

Error '-2147024891 (80070005)' en tiempo de ejecución':
Error del servidor RDS.El servidor denegó el acceso al controlador RDS predeterminado utilizado para obtener acceso a esta página.

Por favor, si alguien me puede ayudar se lo agradeceré enormemente,

Saludos.

  Respuesta:  clau d li
Por que no intentas con esto
DataSource= "D:\rura\datos.mdb"

strconn=" Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="& DataSource

checa que este creada la coneccion ODBC en tu servidor
y checa que no tenga algun tipo de contraseña la conexion a la base de datos si la tiene solo agrega:

DataSource= "D:\rura\datos.mdb"
uid="miusuario"
pwd="mipassword"

strconn=" Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="& DataSource&"; uid="& uid &"; pwd:" & pwd

si sigue marcado error checa en Origenes de Datos ODBC en DNS del Sistema que la conexion este creada