Come accedere alla query di aggiornamento Attraverso VB

Microsoft Access è un linguaggio di scripting , Visual Basic, Applications Edition (VBA) , che è possibile utilizzare per eseguire operazioni di database come selezionare e aggiornare le query . Programmi VBA che eseguono queste operazioni fanno con oggetti virtuali , comprese quelle che rappresentano il database corrente , record , definizioni di query e di altri elementi del database . Facendo aggiornamenti o qualsiasi tipo di operazione di database in VBA implica la comprensione come gestire questi oggetti , che vengono raccolti in una gerarchia ad albero chiamato " modello di oggetti . " Esecuzione di query di aggiornamento con Visual Basic permette agli sviluppatori di modificare il contenuto del database in modo rapido e con meno possibilità di errore dell'utente . Cose che ti serviranno
Microsoft Access
Mostra più istruzioni
1

Open Access e creare la seguente tabella di esempio , che il programma Visual Basic farà un'operazione di aggiornamento su : creare un campo " campo1 " in una tabella chiamata " tabella 1 ", quindi digitare un record in questo campo : " . xyz"
2

Premi " Alt- F11 " per entrare nell'ambiente di sviluppo integrato di Visual Basic ( IDE ) , quindi fare clic su comando " Module" del menu "Inserisci" . Questa azione creerà un nuovo spazio per l'inserimento di un programma VB
3

Incollare o digitare il seguente programma nel modulo di codice : .

Public Sub doUpdate ( )

Const tabname = " Tabella1 "

Dim dbs Come DAO.Database

Dim rst Come DAO.Recordset

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset ( tabname ) per

rst.MoveFirst

Do Until rst.EOF

rst ! Campo1 = " zxy " Allora

rst.Edit

rst ! Campo1 = " abc"

rst.Update

rst.Close

dbs.Close

Exit Sub End If

rst.MoveNext

loop

End Sub

l'affermazione " OpenRecordset " apre la " Tabella 1 " tabella per la modifica , e imposta un riferimento a quel tavolo con la" variabile rst " . Il blocco di istruzioni che inizia con " Do Until " e termina con "loop" si muove attraverso i dati " RST" , alla ricerca di un record il cui valore è "xyz ". Il programma utilizza la "Modifica" e "Aggiorna" metodi di " RST" per cambiare il valore di questo record , una volta che trova il record "xyz" .
4

Avviare il programma facendo clic su uno qualsiasi dei suoi dichiarazioni , quindi premendo "F5 ". Premere il tasto " Alt-F8 " per tornare ad Access. Vedrete il valore " xyz" è stato immesso in precedenza ora cambiato in " abc ".
5

Comunicati " Alt-F8 " per tornare all'IDE . Digitare le seguenti nuove dichiarazioni dopo l'ultima istruzione " Dim " nel listato del programma :

f = InputBox ( "Che valore vuoi cercare " ) per

v = InputBox ( " Che valore vorresti cambiare a ? " ) per

Queste istruzioni di query l' utente per un valore da cercare , e un nuovo valore per modificare a .
6

Type sopra la dichiarazione " Se rst Campo1 = ! " zxy " Allora " con questa nuova affermazione :

rst Campo1 = f Poi

questa dichiarazione e quella nella fase successiva utilizzerà il nuovo "f ! " e " v " variabili per trovare e aggiornare il record corretto nella tabella
7

Type sopra la dichiarazione . " rst Campo1 = " abc " " con questa dichiarazione : !

rst ! Campo1 = v
8

eseguire il programma come avete fatto al punto 4 . Rispondere alle indicazioni quando poi compare, digitando " abc " per il valore di cercare, e "xyz" per il valore di passare. Il programma riveduto cambierà il "abc " a " xyz ".

• Che cosa è OCX in Visual Basic ? 
• Come utilizzare VBA per leggere un documento di Microsoft Word