LISTATO 1 Il listato del programma che gestisce una rubrica telefonica, soluzione dellesercizio proposto nella scorsa lezione
Private Sub btnAggiorna_Click() dbArchivio.Recordset.Update End Sub Private Sub btnCancella_Click() dbArchivio.Recordset.Delete End Sub Private Sub btnCerca_Click() Dim Criterio As String Criterio = "Cognome LIKE """ & txtCerca.Text & "*""" If obPrecedente.Value Then dbArchivio.Recordset.FindPrevious Criterio ElseIf obProssimo.Value Then dbArchivio.Recordset.FindNext Criterio ElseIf obPrimo.Value Then dbArchivio.Recordset.FindFirst Criterio Else dbArchivio.Recordset.FindLast Criterio End If If dbArchivio.Recordset.NoMatch Then MsgBox "Elemento non trovato" End If End Sub Private Sub btnNuovo_Click() dbArchivio.Recordset.AddNew End Sub Private Sub btnPrecedente_Click() If Not dbArchivio.Recordset.BOF Then dbArchivio.Recordset.MovePrevious End If End Sub Private Sub btnPrimo_Click() If Not dbArchivio.Recordset.BOF Then dbArchivio.Recordset.MoveFirst End If End Sub Private Sub btnSeguente_Click() If Not dbArchivio.Recordset.EOF Then dbArchivio.Recordset.MoveNext End If End Sub Private Sub btnUltimo_Click() If Not dbArchivio.Recordset.EOF Then dbArchivio.Recordset.MoveLast End If End Sub Private Sub btnConta_Click() Dim Criterio As String Dim Contatore As Integer Contatore = 0 Criterio = "Cognome LIKE ""*" & txtCerca.Text & "*""" dbArchivio.Recordset.FindFirst (Criterio) Do While Not dbArchivio.Recordset.NoMatch Contatore = Contatore + 1 dbArchivio.Recordset.FindNext (Criterio) Loop MsgBox "Sono stati trovati " & Contatore & " record" End Sub