Error al conectar con base de datos access actual
Estoy probando a conectarme en la propia base de datos, y que me imprima los datos del campo nombre de la tabla Clientes, pero me dice que Error de compilación el uso de la palabra New no es válido. Si omito las palabras New me dice que no coinciden los tipos y me da el error en set conexion…
¿Alguna sugerencia?
Sub conectar() Dim conexion As New Connection Set conexion = CurrentProject.Connection Dim instruccion As String instruccion = "Select * from clientes" Dim record As New Recordset record.OpenRecordset instruccion, conexion Do Until record.EOF Debug.Print record!nombre record.MoveNext Loop record.Close Set record = Nothing conexion.Close Set conexion = Nothing End Sub
2 Respuestas
Así te funcionará:
Sub conectar() Dim conexion As New ADODB.Connection Set conexion = CurrentProject.Connection Dim instruccion As String instruccion = "Select * from clientes" Dim record As New ADODB.Recordset record.Open instruccion, conexion Do Until record.EOF Debug.Print record!nombre record.MoveNext Loop record.Close Set record = Nothing conexion.Close Set conexion = Nothing End Sub
Y recuerda que tienes que activar la librería "Microsoft ActiveX Data Objects 6.1 Library", si no no te funcionará...
¡Gracias! Jeje buena pregunta. No me entero mucho de esto Antonio, pero entiendo que es ADO al ser mediante código ¿no?. Con la solución Sveinbjorn me listó los clientes correctamente. Yo sólo es por practicar el código lo copié de un tutorial.
Entiendo el código de Sveinbjorn es ADO.
Este es mi canal tengo varios ejemplos::