Tengo un problema que no soy capaz de solucionar, espero
que me echeis una mano.
Vamos por el principio
Tengo instalados en mi ordenador: Windows XP Pro, con
SP2. Office 2003. Visual Studio Net 2003 Arqu.
Al intentar abrir una base de datos Access con el
siguiente código:
Friend Sub Conectar(Optional ByVal nombreBaseDatos As
String = "", _
Optional ByVal commandString As
String = "")
If nombreBaseDatos = "" Then
nombreBaseDatos = ArchivoDatos
End If
ArchivoDatos = nombreBaseDatos
If ArchivoDatos = "" Then
Exit Sub
End If
If CadenaSelect = "" Then
CadenaSelect = "SELECT * FROM Table1"
End If
If commandString = "" Then
commandString = CadenaSelect
End If
CadenaSelect = commandString
CadenaConexion
= "Provider=Microsoft.Jet.OLEDB.4.0; DataSource=" &
ArchivoDatos & ".Admin"
Try
dbConnection = New OleDbConnection
(CadenaConexion)
dbConnection.Open()
Catch ex As Exception
MessageBox.Show("Error al crear la conexión:"
& vbCrLf & ex.Message)
Exit Sub
End Try
dbConnection.Open()
dbDataSet = New Data.DataSet
dbDataAdapter = New OleDbDataAdapter
(CadenaSelect, dbConnection)
Dim commandBuilder As New OleDbCommandBuilder
(dbDataAdapter)
dbDataAdapter.MissingSchemaAction =
MissingSchemaAction.AddWithKey
Try
dbDataAdapter.Fill(dbDataSet, NombreTabla)
Catch ex As Exception
MessageBox.Show("Error en Fill:" & vbCrLf &
ex.Message)
End Try
End Sub
Da el error:
Error al crear la conexión.
No se pudo encontrar el archivo ISAM instalable.
He intentado de todo, pero no hay manera de lograr que
funcione.
Agradecería mucho un poco de ayuda para salir de este
atolladero. Gracias.
Leer las respuestas