Cargar Listview con Select From

[jeaguiar25]

Tengo una nueva pregunta para aquellos que saben más. Lokoman me ayudo con una sentencia para no ingresar dos veces un usuario en una lista, bueno la reformule para que me carge un listview, pero me carga todos los usuarios en la tabla y no el que especifico, la que uso es esta:

Private Sub Cargar_Listado_Click()
Dim strVALOR_DOCUMENTO As String
Dim rsConsulta As ADODB.Recordset
Dim li As ListItem
Set rsConsulta = New ADODB.Recordset
strVALOR_DOCUMENTO = Text1.Text
If rst.EOF = False Then
rsConsulta.Open "SELECT * FROM ListadeEspera WHERE Documento = " & strVALOR_DOCUMENTO, cnn, adOpenDynamic, adLockBatchOptimistic
Do Until rst.EOF
rst.MoveFirst 'Nos movemos al principio del Recordset.
Set li = ListView1.ListItems.Add(, , rst("ID"))
li.ListSubItems.Add , , rst("FechaIngreso")
li.ListSubItems.Add , , rst("Especialidad")
li.ListSubItems.Add , , rst("Observaciones")
rst.MoveNext 'Pasamos al siguiente registro.
Loop
End If
End Sub
A quien me pueda ayudar muchas gracias de antemano.

[Insomnia]

Hola

El resultado de la select lo metes en el recordset rsConsulta pero luego para ir añadiendo los datos utilizas rst (que no se de donde sale ni que recordset contiene). Si he entendido el código, deberias usar rsConsulta para llenar el listview en lugar de rst.

--Saludos--

[jeaguiar25]

Lo intente de las 2 maneras rst o rsConsulta, están ambos recordset declarados, pero con ninguno de los dos me da el resultado que quiero. En ambos casos me trae todos los registros

[lokoman]

Hola!!

Intenta así:

Código vb:

Private Sub Cargar_Listado_Click()
    Dim strVALOR_DOCUMENTO As String
    Dim rsConsulta As ADODB.Recordset
    Dim li As ListItem
    
    Set rsConsulta = New ADODB.Recordset
    strVALOR_DOCUMENTO = Text1.Text
    
    If rsConsulta.EOF = False Then
        rsConsulta.Open "SELECT * FROM ListadeEspera WHERE Documento = " & strVALOR_DOCUMENTO, cnn, adOpenDynamic, adLockBatchOptimistic
        
        Do Until rsConsulta.EOF
            rsConsulta.MoveFirst   'Nos movemos al principio del Recordset.
            Set li = ListView1.ListItems.Add(, , rsConsulta!ID)
            li.ListSubItems.Add , , rsConsulta!FechaIngreso
            li.ListSubItems.Add , , rsConsulta!Especialidad
            li.ListSubItems.Add , , rsConsulta!Observaciones
            rsConsulta.MoveNext    'Pasamos al siguiente registro.
        Loop ' Fin del "Do Until rsConsulta.EOF"
    
    End If ' Fin del "If rsConsulta.EOF = False Then"
End Sub
 

[jeaguiar25]

Muchas gracias Lokoman, siempre eres de gran ayuda, un abrazo!!!!
PD.: Anda al pelo

[lokoman]