SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Mark en Martes 18 de Febrero de 2003, 00:28

Título: Re: No consigo abrir bases de datos en formato MDB de ACCESS
Publicado por: Mark en Martes 18 de Febrero de 2003, 00:28

Como puedo abrir una base de datos de access 2000, me da error en el formato de la base de datos.

Título: Re: No consigo abrir bases de datos en formato MDB de ACCESS
Publicado por: J.M.Movilla en Martes 18 de Febrero de 2003, 01:35

Hola:

Sospecho que no defines adecuadamente el proveedor; Microsoft.Jet.OLEDB.3.51 sólo sirve para Access 97

Usa el siguiente código:

' Abre la base de datos:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & DataBaseName
    ' Conecta la tabla para el recordset:
    Adodc1.RecordSource = "Table1"
    ' Refresca el recordset cargando la tabla
    Adodc1.Refresh

Espero te funcione bien

Saludos

Título: No consigo abrir bases de datos en formato MDB de ACCESS 200
Publicado por: mvielma en Martes 18 de Febrero de 2003, 15:56

Hola : Si no te funciona de la manera anterior prueba con lo siguiente

En el menu Proyecto, Referencias Cheque la Opcion " Microsoft Activex Data Objects 2.0 Library"

Abre un módulo de Clase y en la propiedad DataSourceBehavior selecciona vbDatasource para recuperar el Recordset en el formulario.

Agrega este código en el módulo:
Option Explicit
Private DB As New Connection
Private RS As New Recordset

Private Sub Class_Initialize()
    Dim strSQL As String
    Sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:EjemploErrores3.mdb;Mode=Read|Write|Share Deny None;Persist Security Info=False"
    DB.Open Sconnect
    Set RS = New Recordset
    RS.CursorLocation = adUseClient
    RS.Open (Tabla), Sconnect, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
    Set Data = Rs
End Sub