Access - consultas con parametros en acces desde basic

Dim db As New OleDb.OleDbConnection

Dim cmd As New OleDb.OleDbCommand

Dim param As OleDb.OleDbParameter

' Establecer la cadena de conexión a tu base de datos de Access

db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ruta\Hacia\Tu\BaseDeDatos.mdb"

db.Open()

' Crear el comando y asignar la conexión

cmd.Connection = db

cmd.CommandText = "NombreDeTuConsultaAlmacenada"

cmd.CommandType = CommandType.StoredProcedure

' Crear y agregar el parámetro a la consulta almacenada

param = New OleDb.OleDbParameter("@Id", OleDbType.Integer) ' Ajusta el tipo de datos según sea necesario

param.Value = 1 ' Asigna el valor del parámetro

cmd.Parameters.Add(param)

' Ejecutar la consulta

Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader()

' Recorrer los resultados

While reader.Read()

    ' Realizar las operaciones necesarias con los datos recuperados

    Dim id As Integer = reader.GetInt32(0)

    Dim nombre As String = reader.GetString(1)

    Dim direccion As String = reader.GetString(2)

    Dim telefono As String = reader.GetString(3)

    Console.WriteLine($"ID: {id}, Nombre: {nombre}, Dirección: {direccion}, Teléfono: {telefono}")

End While

' Cerrar el DataReader y liberar recursos

reader.Close()

' Cerrar la conexión

db.Close()