Ayuda con consulta SELECT Visual Basic

Hola que tal. Espero que me puedan ayudar con esta consulta, el problema es que necesito hacer una consulta por numero de cheque y por banco al mismo tiempo para poder imprimir el cheque, pensé en hacer un recordset con las dos consultas pero me manda un error, espero que me puedan ayudar.
Dim rsFicha As ADODB.Recordset
Dim rsbanco As ADODB.Recordset
    Set rsFicha = New Recordset
    Set rsbanco = New Recordset
    Dim numcheque As Integer
    Dim banco As String
    If flex.Row <= 0 Then
       MsgBox "No hay ningún registro seleccionado para imprimir", vbExclamation, "Imprimir ficha"
       Exit Sub
    End If
    numcheque = flex.TextMatrix(flex.Row, 0)
    banco = flex.TextMatrix(flex.Row, 4)
    rsFicha.Open "Select * FROM cheques Where numcheque = " & numcheque And "& banco like '" & banco & "'", cnn, adOpenStatic, adLockReadOnly
    If rsFicha.RecordCount > 0 Then
       Set DataReport1.DataSource = rsFicha
       With DataReport1
            DataReport1.Show
        End With
    Else
       MsgBox "No hay registro para imprimir ", vbInformation
    End If
El error que me manda dice:
Error '13' en tiempo de ejecución:
No coinciden los tipos
Gracias. Ojala me puedan ayudar

1 Respuesta

Respuesta
1
Pruébalo así,
rsFicha.Open "Select * FROM cheques Where numcheque = " & numcheque & " And banco like '" & banco & "'", cnn, adOpenStatic, adLockReadOnly
Al parecer tenias problemas al concatenar los datos...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas