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

2 Respuestas

849.675 pts. No responderé preguntas de usuarios que no valoren las...

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á...

63.360 pts. ' Si se puede imaginar se puede programar

¿Qué tipo de objeto estas usando?

¿DAO o ADO?

¿Ya agregaste las referencias para utilizarlos?

¡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::

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas