Structured Query Language (SQL) ist der Computer für die Verwaltung von relationalen Datenbanken verwendet. Visual Basic für Applikationen ( VBA) ist die Programmiersprache, die von Microsoft entwickelt, um mit den Microsoft Office-Anwendungen verwenden, um dynamische Inhalte zu erstellen. Microsoft Access ist die Datenbank-Programm innerhalb des Microsoft Office-Suite , die sowohl SQL und VBA , Daten zu verwalten und bieten Automatisierung systematischen Datenbank-Funktionen verwendet . Mit der Programmierung Shell hinter Microsoft Access können Sie auf der zentralen Datenbank , die Suche nach Daten zu verbinden, neue Daten hinzufügen und Löschen von Daten durch die Kombination von SQL und VBA-Programmierung Code. Anleitung
1
Öffnen Sie die Datenbank , die Sie mit in Microsoft Access zu arbeiten. Öffnen Sie den Visual Basic-Editor , indem Sie auf das " Database Tools " und dann " Visual Basic ".
2
Klicken Sie auf "Einfügen" und dann "Module" in der Visual Basic-Editor.
3
Typ in dem Code, um die Verbindung zur Datenbank . Sie müssen eine Verbindung herzustellen , um SQL -Anweisungen an die Datenbank zu verwenden.
Sub SQLTutorial ()
'Set Up Ihre Variablen , um die Informationen
Dim Conn halten als ADODB.Connection 'Dies ist die eigentliche Verbindung
Dim rsSelect als ADODB.Recordset ' Dies , wo Sie die Daten
Dim rsDelete als ADODB.Recordset
sparen Dim ist rsInsert als ADODB.Recordset
Dim rsUpdate als ADODB.Recordset
Dim strSelectQuery als String ' Dies ist die eigentliche SQL-SELECT- Befehl
Dim strDeleteQuery als String' Dies halten die SQL DELETE-Anweisung
Dim strInsertQuery as String 'Dies ist die SQL-Anweisung INSERT
Dim strUpdateQuery als String' Dies wird die UPDATE-Anweisung
'Type in den Details halten die Verbindung auf die Datenbank , die Sie
Set Conn = New ADODB.Connection
Conn
ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; ." & _
"Data Source = C: \\ Documents \\ SampleDatabase.mdb " .
Open
End With
Jetzt ist Ihre Verbindung zur Datenbank vorgenommen wurde. Als nächstes werden Sie SQL-Anweisungen an den Variablen, die Sie bereits oben angegebenen zuordnen.
4
Typ in einer "SELECT" SQL-Anweisung , um Daten aus der Datenbank auswählen. Eine SELECT-Abfrage ist in der Regel wie folgt aus : "SELECT Spalten aus Tabelle " . Sie können Kriterien der SELECT-Anweisung hinzufügen, indem Sie in der "WHERE" -Klausel. Zum Beispiel haben Sie eine Tabelle namens "Kunden " , die Sie für alle Kunden mit dem Nachnamen suchen " Smith. " Die VBA -und SQL- Code wird wie folgt aussehen:
strSelectQuery = "SELECT * FROM tblKunden WHERE Nachname =
'Smith ' Das Sternchen (*) ist ein Platzhalter , so dass Sie ziehen wollen alle Informationen oder Spalten auf jeder mit dem Nachnamen " . Smith ", um bestimmte Spalten auswählen möchten, verwenden Sie :
strSelectQuery = "SELECT Vorname, Nachname FROM tblKunden WHERE Nachname = ' Smith ' " .
5
Typ in die "Delete "-Anweisung , wenn Sie Reihen von Daten aus einer Tabelle löschen wollen der Code dafür ist :
strDeleteQuery = " DELETE FROM WHERE Nachname = tblKunden 'Smith ' "
Diese Anweisung löscht alle Zeilen, in denen der Kunde einen Nachnamen " Smith " aus Tabelle" Customers " . die grundlegende Syntax für eine DELETE-Anweisung " FROM Tabelle WHERE Spalte = ' löschen der Werte ' . "
6
Typ in der Syntax , um eine neue Zeile in eine Tabelle einzufügen. Verwenden Sie die " INSERT "-Anweisung.
strInsertQuery =" INSERT INTO tblKunden VALUES ( John , Smith , 123 Main Street, Cleveland, Ohio) "
Wenn Sie eine Tabelle, die Kunden Vorname, Nachname , Adresse, Stadt und Staat Spalten gehabt hat , diese Aussage wird in der Daten in der rechten Spalte einfügen . das Komma erzählt der Code, um in die nächste Spalte vor dem Eintritt in den Werten zu überspringen. Achten Sie darauf , dass Sie sich in den Werten in der richtigen Reihenfolge der Spalten in der Tabelle eingeben , so dass Ihre Daten konsistent ist.
7
Geben Sie die SQL-Anweisung , um eine Reihe von Daten zu verändern. Dies ist der " UPDATE "-Anweisung.
strUpdateQuery = " UPDATE tblKunden SET Name = ' Jones ' , Vorname =" Jim "WHERE Nachname = 'Smith ' "
Diese Anweisung ändert jeder, der einen Nachnamen " Smith " bis " Jones " und ihren Vornamen zu hat " Jim . " können Sie mehrere Spalten mit Daten auf einmal in einer UPDATE-Anweisung zu ändern durch die Trennung der Spalten mit Kommas. Die grundlegende Syntax für ein Update " UPDATE Tabelle SET Spalte1 = Wert1, Wert2 = column2 , column3 = value3 , ... WHERE column = value . "
8
Typ in der VBA- Code, der die Abfrage ausgeführt wird , und speichern Sie die Ergebnisse in Cord . Schließen Sie den VBA-Code .
Set rsSelect = New ADODB . Recordset
rsSelect
Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strSelectQuery
. öffnen
End With
Set rsDelete = New ADODB.Recordset
rsDelete
Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strDeleteQuery
. Open
End With
Set rsInsert = New ADODB.Recordset
rsInsert
< p> Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strInsertQuery
. Open
End With
Set rsUpdate = New ADODB.Recordset
rsDelect
Set . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strUpdateQuery
< p > . Open
End With
' Geben Sie den VBA-Code , um die Arbeit mit den Daten, die Sie durch die SQL Statements gesammelt haben zu tun.
' Sie können die Daten zu verwenden Beitrag in Formen , in anderen Tabellen oder in Berichten .
'Close -Cord und die Verbindung mit Ihnen fertig sind
rsSelect.Close
rsDelete.Close
< p > rsInsert.Close
rsUpdate.Close
End Sub
