Pasar parámetros a una consulta

Estimado Experto:
Tengo hecha una consulta en Access y la utilizo a través de un ado datacontrol en Visual Basic 6 (ojo... No la reescribo como sentencia SQL), quisiera pasarle un parámetro a dicha consulta pero no me doy cuenta como hacerlo.
Private Sub Form_Load()
    Dim strBaseDatos As String
    Dim intFila As Integer
    Dim intColumna As Integer
    strBaseDatos = App.Path + "\Práctico 06.mdb"
    With Me.adoConsulta -----> adoDataControl
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strBaseDatos & ";"
        ' Indicarle de que tabla vamos a leer los datos
        .CommandType = adCmdStoredProc
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .RecordSource = "KilosDeProductosPorAño" ---> consulta diseñada y almacenada en Access que tiene que recibir un parámetro como el nombre del vendedor
    End With
    Set hfgListado.DataSource = adoConsulta
    With hfgListado
        .FixedCols = 1
        .ColWidth(0) = 2000
        '.BackColorFixed = vbWhite
        For intFila = 0 To .Rows - 1
            .Col = 0
            .Row = intFila
            .CellFontName = "Times New Roman"
            .CellFontSize = 10
            .CellFontBold = True
        Next intFila
        For intColumna = 0 To .Cols - 1
            .Col = intColumna
            .Row = 0
            .CellFontName = "Times New Roman"
            .CellFontSize = 10
            .CellFontBold = True
        Next intColumna
        For intColumna = 1 To .Cols - 1
            .ColWidth(intColumna) = 1000
        Next intColumna
    End With
End Sub
Respuesta
1
Por más que intente darle al recordset la consulta de access no me fue posible, creo que lo único que tienes que hacer es darle la sentencia de Sql.
Suerte
Pitcher !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas