Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να εξόδου Πολλαπλές τιμές Από πρόσβαση ερωτήματος

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

Ξεκινήστε το Microsoft Office Access 2010 και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic ". Κάντε κλικ στο " Εισαγωγή" πεδίο και επιλέξτε " Ενότητα ". 2

Πατήστε το " Ctrl " και "A " και πιέστε " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη μονάδα σας . Η υπορουτίνα θα δημιουργήσετε έναν νέο πίνακα , προσθέστε τα αρχεία σε αυτό και στη συνέχεια το ερώτημα πολλά πεδία . Το ερώτημα θα εξόδου πολλαπλές τιμές για τους τομείς αυτούς και να τους προβάλλουμε μέσα από ένα πλαίσιο μηνύματος .

Private Sub accessMultipleQueryValues ​​( )

Dim dbs Όπως Database

Dim rst Όπως εγγραφών

Dim strSQL Όπως String Dim

X As Integer

Set dbs = CurrentDb

strSQL = " CREATE TABLE multipleValues ​​( Πεδίο1 ΚΕΙΜΕΝΟ , Field2 ΚΕΙΜΕΝΟ , Πεδίο3 ΚΕΙΜΕΝΟ ) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( Πεδίο1 , Πεδίο2 , Πεδίο3 ) "

strSQL = strSQL & " ΑΞΙΕΣ ( « field1Data σειρά 1 »,« γραμμή field2Data 1 »,« γραμμή field3Data 1 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( Πεδίο1 , Πεδίο2 , Πεδίο3 ) "

strSQL = strSQL & " ΑΞΙΕΣ ( « field1Data γραμμή 2 », « field2Data γραμμή 2 », « γραμμή field3Data 2 ') ? "

DoCmd . SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( Πεδίο1 , Πεδίο2 , Πεδίο3 ) "

strSQL = strSQL & " ΑΞΙΕΣ ( « field1Data σειρά 3 »,« γραμμή field2Data 3 »,« γραμμή field3Data 3 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " Επιλέξτε multipleValues . * από multipleValues ​​"

strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data γραμμή 2 ' ? "

Set RST = dbs.OpenRecordset ( strSQL )

ΤΥ . MoveLast

rst.MoveFirst

Για Χ = 0 Για να rst.RecordCount - 1

MsgBox " Field1 δεδομένων : " . & rst.Fields ( 0 ) Value & " , Field2 δεδομένων : " . _

& rst.Fields ( 1 ) Value & " , Πεδίο3 δεδομένων : . " & rst.Fields ( 2 ) Αξία

rst.MoveNext

Επόμενο X

rst.Close

dbs.Close

End Sub
Η

4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας .


Η

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα