Sajon
15 de Julio del 2005

Hola

Estoy tratando de consultar una base de datos hecha en Access97 y no soy capaz, cada vez que trata de conectar me da el siguiente error:

OleDbException (0x80004005): El motor de base de datos Microsoft Jet no puede abrir el archivo 'X:DataBase.mdb'. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.]

La base de datos no está protegida, ya que es una prueba que yo he hecho.

Por favor necesito que alguien me eche una mano y que me diga que puedo hacer, porque estoy ya totalmente saturado. El código es el siguiente:



Sub BindGrid_ProveedoresTipoA()

Dim ConnStr As OleDb.OleDbConnection

ConnStr = New OleDb.OleDbConnection
ConnStr.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=X:DataBase.mdb;"

'Intenta abrir la Base de Datos
ConnStr.Open()

End Sub


Muchísimas gracias y un saludo

Gracias

IVANKO
15 de Julio del 2005

http://www.connectionstrings.com/

IVANKO
15 de Julio del 2005

te paso una función y como llamarla.
------------------------------------funciones.asp------------
<%
' FUNCION PARA ABRIR BD
function OpenDBase(StrSQL,url)
dim Conn
dim rsSocis
dim DataSetName
set Conn=Server.CreateObject("ADODB.Connection")
DataSetName= "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DataSetName=DataSetName & Server.MapPath(url)
Conn.Open DataSetName
set rsSocis=Server.CreateObject("adodb.recordset")
rsSocis.open StrSQL,Conn,3,3
set OpenDbase=rsSocis
set Con=nothing



end function

%>

----------------llamada a la función---------------------------

dim Conn
dim rsPepe

strSql="sentencia sql"
set rsPepe= OpenDBase(strSql,"cualquiera.mdb")


Yo la uso siempre para mis aplicaciones y funciona.