Error al conectarse a la BD
Publicado por Jvirgo (29 intervenciones) el 06/09/2005 17:52:38
Hola a todos intendo realizar una sencilla coneccion a Base de datos access y me sale el siguiente error:
Detalles de la excepción: System.Data.OleDb.OleDbException: El motor de base de datos Microsoft Jet no puede abrir el archivo 'C:\Documents and Settings\jvirgo\Mis documentos\bdaccesVBNET.mdb'. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.
Error de código fuente:
Línea 48: q = "select * from equipo; "
Línea 49: oldbcommad = New OleDbCommand("select * from equipo; ", cnn)
Línea 50: cnn.Open() 'ERROR EN ESTA LINEA
Línea 51: oldbcommad.ExecuteNonQuery()
Línea 52: Dim daCargar As OleDbDataAdapter
Tambien les envio las pocas lines de codigo:
Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jvirgo\Mis documentos\bdaccesVBNET.mdb;")
q = "select * from equipo; "
oldbcommad = New OleDbCommand("select * from equipo; ", cnn)
cnn.Open()
oldbcommad.ExecuteNonQuery()
Dim daCargar As OleDbDataAdapter
Me.daCargar.Fill(dsAlumno, "tabla depto")
'cargarDataGrid
Me.Dgclientes.DataSource = Me.dsAlumno.Tables("tabla depto")
End Sub
Le estare muy agradecido por cualquier ayuda que me puedan brindar.
Detalles de la excepción: System.Data.OleDb.OleDbException: El motor de base de datos Microsoft Jet no puede abrir el archivo 'C:\Documents and Settings\jvirgo\Mis documentos\bdaccesVBNET.mdb'. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.
Error de código fuente:
Línea 48: q = "select * from equipo; "
Línea 49: oldbcommad = New OleDbCommand("select * from equipo; ", cnn)
Línea 50: cnn.Open() 'ERROR EN ESTA LINEA
Línea 51: oldbcommad.ExecuteNonQuery()
Línea 52: Dim daCargar As OleDbDataAdapter
Tambien les envio las pocas lines de codigo:
Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jvirgo\Mis documentos\bdaccesVBNET.mdb;")
q = "select * from equipo; "
oldbcommad = New OleDbCommand("select * from equipo; ", cnn)
cnn.Open()
oldbcommad.ExecuteNonQuery()
Dim daCargar As OleDbDataAdapter
Me.daCargar.Fill(dsAlumno, "tabla depto")
'cargarDataGrid
Me.Dgclientes.DataSource = Me.dsAlumno.Tables("tabla depto")
End Sub
Le estare muy agradecido por cualquier ayuda que me puedan brindar.
Valora esta pregunta


0