Visual Basic 6 - non funzia il prg!!!

Forum - Visual Basic 6 - non funzia il prg!!!

rdm90 (Normal User)
Newbie

Messaggi: 2
Iscritto: 10/12/2008

Postato alle 15:50
Mercoledì, 10/12/2008

salve...ho scritto una routine che dovrebbe visualizarmi i docenti di una certi classe... xò nn mi funzia e nn so perchè!!!

Dim db As Database
Dim rs As Recordset

Private Sub cmdCerca_Click()
Dim codcl As String
Dim codins As String

If txtClasse.Text <> "" Then
    codcl = txtClasse.Text
    Set rs1 = db.openrecordset("docenti")
    Set rs2 = db.openrecordset("classi")
    rs1.movefirst
        If rs.EOF Then
            MsgBox (" dati mancanti")
        Else
        Do Until rs2.EOF
            If rs1!classi = codclasssi Then
                codins = rs1!coddocenti
                rs2.movefirst tro = True
                    Do Until rs2.EOF
                        If rs2!coddocenti = codins Then
                            lstInsegnanti.AddItem = rs2!nome
                        Else
                            tro = True
                            rs2.movenext
                        End If
                    Loop
            End If
            rs1.movenext
        Loop
    rs.Close
End If





End Sub

Private Sub Form_Load()
Set db = openndatabase("scuola.mdb")

End Sub

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:48
Mercoledì, 10/12/2008

purtorppo di db nn sn esperto, quindi mi risulta un pò "difficile" capire il tuo codice... ad esempio vedo cose come: rs1!classi che nn so cosa significhino... per aiutarti devi almeno dirci meglio cosa fa il progr che risultato ottieni con quel codice e se ci sono degli errori di run-time scriverli e scrivere dove vb ti segnala la riga...

rdm90 (Normal User)
Newbie

Messaggi: 2
Iscritto: 10/12/2008

Postato alle 17:56
Mercoledì, 10/12/2008

beh dovrebbe visualizzarmi l'elenco dei prof di una certa classe....

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:19
Mercoledì, 10/12/2008

e invece cosa ti visualizza?