Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come passare una stringa di un comando come in Microsoft Access

Interrogazione dei dati da una tabella di database utilizzando i caratteri jolly in Microsoft Access non è così difficile come si potrebbe pensare . In Access è possibile utilizzare Visual Basic, Applications Edition (VBA ) per automatizzare i processi , come l'esecuzione di query di dati . In VBA è possibile creare istruzioni SQL per interrogare una tabella per trovare i valori corrispondenti a un modello specificato. L'operatore "Like" può essere utilizzata in istruzioni SQL per specificare un criterio come "Like" D * " " che restituirà tutti i valori di campo che iniziano con la lettera D. Hai bisogno
Northwind database di

Mostra più istruzioni

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