Microsoft Access ist ein Teil der Microsoft Office Suite. Mit dieser Software können Sie einzelne Datenbanken , Berichte und Formulare . Access ermöglicht Ihnen, Ihre eigenen Anwendungen mit diesen Komponenten zu erstellen. Um noch mehr Funktionalität in Ihre Anwendungen oder Datenbanken hinzufügen, können Sie Aufgaben in Visual Basic programmieren for Applications (VBA) . VBA ist Microsofts Standard- Programmiersprache für Office-Produkte . Die Sprache wird von Visual Basic 6.0 und nutzt ähnliche Syntax . Eines der vielen Dinge, die Sie mit dieser Sprache tun können, ist Ausführen von Abfragen auf Ihre Daten. Anleitung
1
Ausführen einer Abfrage und legte seine Ergebnisse in einem Datensatz für Manipulation. Kopieren und fügen Sie den VBA -Code können Sie die Daten aus der Abfrage zu laden.
Dim dbMyDatabase Wie DAO.Database
Dim rsMyRecords Wie DAO.Recordset
Set dbMyDatabase = CurrentDb
Set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " )
2
Führen Sie eine Abfrage mit Input-Parameter mit einem Query-Definition Objekt und laden Sie dann die Ergebnisse in einen Datensatz mit dem Code-Beispiel unten .
Dim dbMyDatabase Wie DAO.Database
Dim rsMyRecords Wie DAO.Recordset
Dim qdMyParameters Wie DAO.QueryDef
Set dbMyDatabase = CurrentDb
Set qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " )
qdMyParameters.Parameters ( " MyParameter " ) = "Wert"
Set rsMyRecords = qdMyParameters.OpenRecordset ()
3
Schleife durch jeden Datensatz zurückgegeben und eine Aktion ausführen . Das folgende Beispiel ist ein Weg , dies zu tun
Do While Not rsMyRecords.EOF
Debug.Print " Der Inhalt meiner Kolumne : " . ! & RsMyRecords [ MyColumnName ]
< p > rsMyRecords.MoveNext
Schleife
4
Ausführen einer SQL-Abfrage statt einer benannten Access-Abfrage und legte seine Ergebnisse in einem Datensatz für Manipulation. Kopieren und fügen Sie den VBA-Code unten .
Dim dbMyDatabase Wie DAO.Database
Dim rsMyRecords Wie DAO.Recordset
Dim strQuery As String
strQuery = "SELECT * FROM MyTable "
Set dbMyDatabase = CurrentDb
Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5
Führen Sie einen Befehl, der nicht wieder ohne Datensätze mit diesen VBA-Code . Update und Delete -Befehle sind Beispiele für Aussagen, die nicht zurückkehren noch keine Aufzeichnungen .
CurrentDb.Execute " MyQueryName "
