| Home  | Υλικό υπολογιστών  | Δικτύωση  | Προγραμματισμός  | λογισμικό  | ερώτηση  | συστήματα  |  
Προγραμματισμός  
  • C /C + + Προγραμματισμός

  • Προγραμματισμός Υπολογιστών Γλώσσες

  • Δελφοί Προγραμματισμός

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

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

  • PHP /MySQL Προγραμματισμός

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

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

  • ρουμπίνι Προγραμματισμός

  • Visual Βασικά Προγραμματισμός
  •  
    Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός >> Content
    Πώς να εξόδου Πολλαπλές τιμές Από πρόσβαση ερωτήματος
    Μαθαίνοντας πώς να εξόδου πολλαπλές τιμές από ένα ερώτημα να κάνετε την αίτησή του υπολογιστή σας πιο δυναμική . Ένα πρόγραμμα που μπορείτε να χρησιμοποιήσετε για να υποβάλει ερώτημα σε έναν πίνακα βάσης δεδομένων είναι το 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 Όπως εγγραφών < br >

    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
    < p> Επόμενο X

    rst.Close

    dbs.Close

    End Sub
    Η

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

    Η

    Previous :

    next :
      Σχετικά Άρθρα
    ·Πώς να Αντίστροφη σε Visual Basic 
    ·Πώς να διαβάσετε ένα φάκελο & Display Content Όπως Σ…
    ·Πώς να κάνει ένα παιχνίδι Timed για Visual Basic 
    ·Πώς να μετατρέψετε Δεκαδικό σε Δυαδικό σε Vis…
    ·Visual Studio Tools για το Microsoft Office System 
    ·Πώς να οριοθετήσει αρχείων κειμένου δεδομέν…
    ·Πώς να γράψετε ένα VBS Script για να ανοίξετε ένα…
    ·Πώς να ενημερώσετε χρόνο με VBScript 
    ·Πώς να οικοδομήσουμε μια Κρεμάλα παιχνίδι σ…
    ·Πώς να κάνει ένα ηλεκτρονικό χρονόμετρο αντ…
      Προτεινόμενα άρθρα
    ·Πώς να διαβάσετε ένα αρχείο τυχαίας προσπέλ…
    ·Τα πλεονεκτήματα της προσαρμοσμένης Ετικέτ…
    ·Πώς να χρησιμοποιήσετε το PHP SQLite ως Cache 
    ·Java API Image Tutorial 
    ·Πώς να δημιουργήσετε ένα κοινόχρηστο Λίστα …
    ·Πώς να χρησιμοποιήσετε το VBA και Regex 
    ·VBA Macro & Συμβουλές για το Word 2007 
    ·Πώς να υπολογίσετε το Πάσχα με Java 
    ·Πώς να συνδέσετε Visual Basic σε SQL 
    ·Πώς να αφαιρέσει το Bar όνομα_εφαρμογής από το…
    Copyright © Γνώση Υπολογιστών http://el.wingwit.com