Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Problema con un Recordset al conectar con una base de datos de Access

Estas en el tema de Problema con un Recordset al conectar con una base de datos de Access en el foro de Visual Basic clásico en Foros del Web. Buenas, soy nuevo en el foro y tambien en el mundo de Vb, tengo un problema al tratar de conectar un recordset a una tabla ...
  #1 (permalink)  
Antiguo 04/02/2008, 22:58
 
Fecha de Ingreso: febrero-2008
Mensajes: 2
Antigüedad: 16 años, 3 meses
Puntos: 0
Información Problema con un Recordset al conectar con una base de datos de Access

Buenas, soy nuevo en el foro y tambien en el mundo de Vb, tengo un problema al tratar de conectar un recordset a una tabla de una base de datos en access, el codigo es el siguiente:

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Productos"
Set Productos = OpenDatabase(App.Path & "\Productos.mdb")
Set recCliente = Productos.OpenRecordset("Cliente")
Set recProducto = Productos.OpenRecordset("Producto")
End Sub

y declare las variable de esta forma:

Dim Productos As Database
Dim recCliente, recProducto As Recordset


La ultima linea me da error y dice que es el error numero '13' en tiempo de ejecucion, no coinciden los tipos.

si me pueden ayudar por favor, gracias...
  #2 (permalink)  
Antiguo 05/02/2008, 03:03
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Re: Problema con un Recordset al conectar con una base de datos de Access

Debes declarar recCliente como Recordset.
Y si en el proyecto también tienes activada la referencia a ADO, deberás declarar las variables así:

Dim Productos As DAO.Database
Dim recCliente As DAO.Recordset, recProducto As DAO.Recordset
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:16.