[VB6] Controllo ListView e ricerca dati su Access

[Magicolotto]

sto cercando di visualizzare un recordset in una list view pero ho dificolta, mi da un errore .....

" nessun valore specificato per alcuni parametri necessari "

vi presento il codice :

Private Sub Form_Load()
    Me.MousePointer = 11
Dim strConn As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ordini.mdb"
cn.Open strConn
rs.Open "SELECT Dipendente,Dataordine,NumRicambio,Descrizionee,Quantità,Cliente,NumeroTelefonicoDestinatario,DataSpedizione,Metodospediz,Spesetrasporto,PagamentoAnticipato,Acconto,OrdineBanco,OrdineOfficina FROM Ordini WHERE codice", cn, 3, 3     If rs.EOF = False Then
        Dim tLi As ListItem
        Do While Not rs.EOF
        Set tLi = Lvw1.ListItems.Add
        tLi.Text = rs("codice")
                    If IsNull(rs("Dipendente")) = False Then
                tLi.SubItems(1) = rs("Dipendente")
            End If
            If IsNull(rs("Dataordine")) = False Then
                tLi.SubItems(2) = rs("Dataordine")
            End If
            If IsNull(rs("NumRicambio")) = False Then
                tLi.SubItems(3) = rs("NumRicambio")
            End If
                        If IsNull(rs("Descrizionee")) = False Then
                tLi.SubItems(4) = rs("Descrizionee")
            End If
               If IsNull(rs("Quantità")) = False Then
                tLi.SubItems(5) = rs("Quantità")
            End If
            If IsNull(rs("Cliente")) = False Then
                tLi.SubItems(6) = rs("Cliente")
            End If
            If IsNull(rs("NumeroTelefonicoDestinatario")) = False Then
                tLi.SubItems(7) = rs("NumeroTelefonicoDestinatario")
            End If
            If IsNull(rs("DataSpedizione")) = False Then
                tLi.SubItems(8) = rs("DataSpedizione")
            End If
            If IsNull(rs("Metodospediz")) = False Then
                tLi.SubItems(9) = rs("Metodospediz")
            End If
            If IsNull(rs("Spesetrasporto")) = False Then
                tLi.SubItems(10) = rs("Spesetrasporto")
            End If
             If IsNull(rs("PagamentoAnticipato")) = False Then
                tLi.SubItems(11) = rs("PagamentoAnticipato")
            End If
            If IsNull(rs("Acconto")) = False Then
                tLi.SubItems(12) = rs("Acconto")
            End If
            If IsNull(rs("OrdineBanco")) = False Then
                tLi.SubItems(13) = rs("OrdineBanco")
            End If
            If IsNull(rs("OrdineOfficina ")) = False Then
                tLi.SubItems(14) = rs("OrdineOfficina ")
            End If
            
            
    rs.MoveNext
    Loop
        
    rs.Close
    Set rs = Nothing
    Me.MousePointer = 4
    If Lvw1.ListItems.Count > 0 Then
        Lvw1.SortKey = 0
        Lvw1.Sorted = True
        Lvw1.ListItems.Item(1).Selected = False
    End If
    Dataordine = ""

    End If
End Sub

[Magicolotto]

risolto , grazie

[oregon]

Immagino fosse

"WHERE codice"

senza il valore da trovare ...

[Magicolotto]

no...

questo

tLi.Text = rs("codice")

non fa parte dei campi........ errore di distrazione



grazie cmq
ho un'altro problem


quando da mouse , selezione un record sulla listview.. faccio aprire un'altro form , dove si dovrebbe visualizzare quello selezionato

pero'

mi apre sempre il primo recordset in ARCHIVIO



come fare?

[oregon]

E che codice esegui quando selezioni la riga ?

[Magicolotto]

Dim tSel As Boolean
tSel = False

For i = 1 To Lvw1.ListItems.Count
If Lvw1.ListItems.Item(i).Selected = True Then
tSel = True
Exit For
Else
tSel = False
End If
Next i

If tSel = True Then

Load popup
frmgestione.Show 1, popup
Else
MsgBox "Perfavore seleziona una voce nella lista", vbExclamation
Exit Sub
End If

[oregon]

Scusa, ma mi spieghi a cosa dovrebbe servire questo codice e come c'entra il database dato che non ci sono istruzioni relative al db?

La listview non e' collegata in alcun modo al db ...

[Magicolotto]

si infatti...

dopo aver aperto una connessione

eseguo quel codice...

poi dovrei fare un confronto tra un RS("id") selezionato e andare alla ricerca nel db di quell'id

e fare aprire il form con tutto il relativo recordset



ma non ci riesco

[oregon]

No ... nessun confronto ...

Devi eseguire una query (una SELECT ... WHERE ...) in cui passi l' ID della riga che hai selezionato.

Cosa carichi nelle righe della Listview? C'e' anche l'ID per ogni riga ?

[Magicolotto]

si cè l'id di ogni riga