Conectar a mdb en servidor web
Publicado por juan pablo (23 intervenciones) el 11/10/2002 12:03:59
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 la 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.
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 la 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.
Valora esta pregunta
0