SQL VBA Tutorial

Structured Query Language ( SQL ) είναι η γλώσσα υπολογιστών που χρησιμοποιείται για τη διαχείριση των σχεσιακών βάσεων δεδομένων . Visual Basic for Applications ( VBA) είναι η γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft για χρήση με τις εφαρμογές του Microsoft Office για τη δημιουργία δυναμικού περιεχομένου . Η Microsoft Access είναι το πρόγραμμα βάσης δεδομένων στο εσωτερικό της σουίτας Microsoft Office που χρησιμοποιεί τόσο SQL και VBA για τη διαχείριση των δεδομένων και την αυτοματοποίηση της συστηματικής λειτουργίες της βάσης δεδομένων . Χρησιμοποιώντας το κέλυφος προγραμματισμού πίσω από τη Microsoft Access , μπορείτε να συνδεθείτε με την κύρια βάση δεδομένων , την αναζήτηση δεδομένων , να προσθέσουν νέα δεδομένα και να διαγράψετε δεδομένα συνδυάζοντας SQL και VBA κώδικα προγραμματισμού . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων που θέλετε να συνεργαστεί με τη Microsoft Access . Ανοίξτε το Visual Basic Editor κάνοντας κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και στη συνέχεια " Visual Basic ". 2

Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια " Module" στη Visual Basic.

Η

3 Πληκτρολογήστε τον κωδικό για να συνδεθείτε με τη βάση δεδομένων . Θα πρέπει να δημιουργήσετε μια σύνδεση για να χρησιμοποιήσετε τις δηλώσεις SQL στη βάση δεδομένων .

Sub SQLTutorial ( )

'Set up μεταβλητές σας να κρατήσει τις πληροφορίες

Dim Conn ως ADODB.Connection « Αυτή είναι η πραγματική σύνδεση

Dim rsSelect ως ADODB.Recordset « Αυτό είναι όπου θα αποθηκεύσετε το
δεδομένων

Δημ. rsDelete ως ADODB.Recordset

Dim rsInsert ως ADODB.Recordset

Δημ. rsUpdate ως ADODB.Recordset

Δημ. strSelectQuery ως String « Αυτή είναι η πραγματική SQL SELECT εντολή

Δημ. strDeleteQuery ως String « Αυτό θα κρατήσει το SQL DELETE δήλωση

Δημ. strInsertQuery ως String « Αυτή είναι η δήλωση SQL INSERT

Δημ. strUpdateQuery ως String « Αυτό θα κρατήσει τη δήλωση UPDATE

» Πληκτρολογήστε τις πληροφορίες για να συνδεθείτε με τη βάση δεδομένων που θέλετε

Set Conn = Νέα ADODB.Connection

με το Conn

ConnectionString = . " Provider = Microsoft.Jet.OLEDB.4.0 ? " & _

"Πηγή δεδομένων = C : \\ Documents \\ SampleDatabase.mdb "

Open

End With

τώρα σύνδεσή σας στη βάση δεδομένων έχει γίνει . . Στη συνέχεια, θα αναθέσει τις δηλώσεις SQL για τις μεταβλητές που έχουν ήδη δηλωθεί παραπάνω .
Η

4 Πληκτρολογήστε ένα "SELECT " δήλωση SQL για να επιλέξετε δεδομένα από τη βάση δεδομένων . Μια πρόταση SELECT ερώτημα γίνεται συνήθως σαν αυτό : " επιλέξετε στήλες από το τραπέζι " . Μπορείτε να προσθέσετε κριτήρια για την πρόταση SELECT , με την προσθήκη στο "WHERE " ρήτρα . Για παράδειγμα , έχετε έναν πίνακα που ονομάζεται «Πελάτες» που θέλετε να αναζητήσετε όλους τους πελάτες της με το επώνυμο του " Σμιθ ". Η VBA και SQL κώδικα θα μοιάζει με αυτό :

strSelectQuery = "SELECT * FROM WHERE tblCustomers
Επώνυμο = 'Smith'

Ο αστερίσκος ( * ) είναι μπαλαντέρ , που σημαίνει ότι θέλετε να τραβήξετε όλες οι πληροφορίες , ή στήλες , σε οποιονδήποτε με το επώνυμο του " . Smith " Για να επιλέξετε ορισμένες στήλες , μπορείτε να χρησιμοποιήσετε:

strSelectQuery = "SELECT όνομα, Επώνυμο ΑΠΟ ΟΠΟΥ tblCustomers επώνυμο = 'Smith' "
5

Πληκτρολογήστε το " DELETE " δήλωση , αν θέλετε να διαγράψετε γραμμές δεδομένων από έναν πίνακα ο κώδικας για αυτό είναι : .

strDeleteQuery = " ΔΙΑΓΡΑΦΗ ΑΠΟ ΟΠΟΥ tblCustomers Επώνυμο = « Smith »

η δήλωση αυτή θα διαγράψει όλες τις γραμμές όπου ο πελάτης έχει ένα επώνυμο " Smith " από " πελάτες " του πίνακα . η βασική σύνταξη για ένα DELETE δήλωση είναι " DELETE FROM πίνακας WHERE στήλη = ' αξία " . "
Η 6

Τύπος στη σύνταξη για να εισαγάγετε μια νέα γραμμή σε έναν πίνακα . Χρησιμοποιήστε το " εισαγωγή" δήλωση.

strInsertQuery = " INSERT INTO tblCustomers ΑΞΙΕΣ ( John , Smith , 123 Main Street , Cleveland , Ohio ) "

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

Πληκτρολογήστε την πρόταση SQL για να αλλάξετε μια σειρά δεδομένων . Αυτή είναι η "UPDATE " δήλωση.

strUpdateQuery = " tblCustomers UPDATE SET Επώνυμο = ' Jones ' , Όνομα = " Jim " WHERE Επώνυμο = 'Smith' "

Η δήλωση αυτή αλλάζει ο καθένας που έχει ένα επώνυμο " Smith " σε " Jones " και τα ονόματα τους για να « Τζιμ ». Μπορείτε να αλλάξετε πολλές στήλες δεδομένων κάθε φορά σε μία δήλωση UPDATE με τον διαχωρισμό των στηλών με κόμματα . Η βασική σύνταξη για ένα UPDATE είναι " τραπέζι UPDATE SET column1 = τιμή1 , στήλη2 = τιμή2 , στήλη 3 = τιμή3 , ... WHERE στήλη = value. "
8

Πληκτρολογήστε τον κωδικό VBA που θα εκτελέσετε το ερώτημα και να αποθηκεύσετε τα αποτελέσματα σε εγγραφών . Κλείστε τον κώδικα VBA .

Set rsSelect = Νέα ADODB . εγγραφών

Με rsSelect

Set . Ενεργός _ = Conn

. CursorType = adOpenStatic

. Πηγή = strSelectQuery

. Open

End With

Set rsDelete = Νέα ADODB.Recordset

Με rsDelete

Set . Ενεργός _ = Conn

. CursorType = adOpenStatic

. Πηγή = strDeleteQuery

. Open

End With

Set rsInsert = Νέα ADODB.Recordset

Με rsInsert

Ορισμός . Ενεργός _ = Conn

. CursorType = adOpenStatic

. Πηγή = strInsertQuery

. Open

End With

Set rsUpdate = Νέα ADODB.Recordset

Με rsDelect

Set . Ενεργός _ = Conn

. CursorType = adOpenStatic

. Πηγή = strUpdateQuery

. Open

End With

' Πληκτρολογήστε τον κώδικα VBA για να κάνει τη δουλειά με τα δεδομένα που έχουν συγκεντρωθεί από τις δηλώσεις SQL .

« μπορείτε να χρησιμοποιήσετε τα δεδομένα για να μετά σε μορφές , σε άλλους πίνακες ή αναφορές .

» Κλείστε τα εγγραφών και σύνδεση με τελειώσετε

rsSelect.Close

rsDelete.Close

rsInsert.Close

rsUpdate.Close

End Sub
Η
εικόνων