1 Fare clic sulla scheda "Database Strumenti" , clicca su " Visual Basic ", e fare clic sul menu "Inserisci" . Fare clic su "Modulo" per inserire un nuovo modulo di codice
2
Creare una nuova procedura sub digitando quanto segue : .
Private Sub useLikeCommand ( ) economici
3
dichiarare le variabili che si intende utilizzare per interrogare una tabella di database aggiungendo il seguente codice VBA :
Dim datastring As String
Dim dbs As Database Dim
RST come Recordset
Dim X As Integer
Set dbs = CurrentDb
4
definire la stringa si passa alla istruzione SQL :
datastring = " a * "
5
Digitare il seguente codice per aprire un recordset utilizzando un'istruzione SQL che utilizza l'operatore Like :
Set rst = dbs.OpenRecordset ( "Dipendenti SELEZIONA . [ Cognome ] , Lavoratori . [ Nome ] "_
&" FROM Impiegati "_
& " WHERE ( ( ( Employees. [ Nome ] ) Like ' " & ( datastring ) & " ')); " ) economici 6
Creare un " per ... loop" per visualizzare i risultati restituiti dalla query utilizzando la finestra immediata :
RST . MoveFirst
per x = 0 Per rst.RecordCount
Debug.Print rst.Fields ( " [ Nome ] " ) . Valore
Debug.Print rst.Fields ( " [ Nome ] " ) Valore
rst.MoveNext
Avanti X
7
Concludere la procedura aggiungendo il seguente codice : .
rst.Close
dbs.Close
End Sub
8
Premere " Ctrl " e "G" per visualizzare la finestra immediata . Premere il tasto " F5 " per eseguire la procedura .
software © www.354353.com