Πώς να εκτελέσει παραμέτρων σε ένα DAO Ερώτημα στην Access VBA

Microsoft Office Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται συνήθως για τις μικρότερες και τις τοπικές βάσεις δεδομένων . Visual Basic for Applications , επίσης γνωστή ως VBA , είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των διαδικασιών ρουτίνας . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση δεδομένων από τους πίνακες της βάσης δεδομένων . Μπορείτε να δημιουργήσετε ένα ερώτημα για να ενημερώσετε επίσης δεδομένα σε έναν πίνακα βάσης δεδομένων . Σε μερικά βήματα μπορείτε να γράψετε κώδικα VBA για να εκτελέσετε ένα ερώτημα ενημέρωσης και, επίσης, να δημιουργήσετε ένα ερώτημα επιλογής για να δείτε την ενημερωμένη έκδοση . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο " Εισαγωγή" πεδίο και επιλέξτε " Ενότητα ".
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα λειτουργική μονάδα σας για να ενημερώσετε τον πίνακα Εργαζόμενοι και στη συνέχεια προβάλετε την ενημερωμένη έκδοση με ένα ερώτημα επιλογής .

Δημόσια DAOQuery Sub ( )

Dim τίτλο As String

Dim db Όπως DAO.Database

Dim rst Όπως DAO.Recordset

Dim qry Όπως String

title = " DAO Query "

Set db = CurrentDb ( )

qry = " εργαζόμενοι UPDATE SET εργαζόμενοι . [ κινητό τηλέφωνο ] = '210 -999 - 999 "

qry = qry & " WHERE ( ( ( Employees. [ Επώνυμο ] ) = « cencini ')) ? "

DoCmd.SetWarnings False

DoCmd.RunSQL ( qry )

Debug.Print τίτλο & " : SQL Ενημέρωση Paramenter Ερώτημα : " & _

vbNewLine & "" & qry

qry = " SELECT Υπαλλήλων . [ Επώνυμο ] , εργαζόμενοι . [ κινητό τηλέφωνο ] "

qry = qry & " FROM Υπάλληλοι "

qry = qry & " WHERE ( ( ( Employees. [ Επώνυμο ] ) = « cencini ')) ? "

Debug.Print τίτλο & " : SQL Query : " & _

vbNewLine & " " & qry

« Τρέξτε το qry και να δημιουργήσει ένα αρχείο που

set RST = db.OpenRecordset ( qry )

Debug.Print τίτλο & " : Ανάκτηση των στοιχείων σχήματος για το δεδομένο σύνολο αποτέλεσμα:« για

i = 0 Για να rst.Fields.Count - 1

Debug.Print . "