So greifen und Ausführen einer SELECT-Abfrage in VBA

Mitglieder-Login

InformationenVisual Basics Programmierung

Wie eine einzige Zeile mit Komma Vo… Lesen von Daten in Textdateien ist eine gemeinsame Aufgabe in Computer-Programmierung, und manchmal
Wie man in VB6 EXE Öffnen Es gibt zwei Möglichkeiten, um eine separate ausführbare Programm aus einem Visual Basic- Programm z
Wie erstelle ich eine Toolbar Butto… ? Eine Symbolleiste Steuerelement in einer Visual Basic-Anwendung können Aufgaben für den Benutzer z
Wie Variablen in VBA Preserve Eine Variable wird verwendet, um temporäre Informationen zur Ausführung eines Computerprogramms spei

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

So greifen und Ausführen einer SELECT-Abfrage in VBA

Microsoft Office Access ermöglicht es Programmierern, Visual Basic for Applications (VBA) verwenden, um Anwendungen in Access erstellen. VBA ist eine Programmiersprache verwendet, um Routineaufgaben in Microsoft Office-Anwendungen automatisieren. Access ist ein relationales Datenbank- System häufig für kleinere Datenbanken verwendet. Eine SELECT-Abfrage wird verwendet, um Daten aus einer Datenbank -Tabelle abzurufen. Ein Recordset wird verwendet, um den Inhalt von der SELECT-Abfrage zurückgegeben lesen. In wenigen Schritten können Sie VBA-Code schreiben , um eine Tabelle zu erstellen und seinen Inhalt über eine SELECT-Abfrage . Anleitung
1

Öffnen Sie Microsoft Office Access , klicken Sie auf " Blank -Datenbank", und wählen Sie dann " Erstellen". Klicken Sie auf " Database Tools ", dann wählen Sie " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen . Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
2

Kopieren Sie den folgenden Code in das neue Modul :

Private Sub runSelectQuery ()

Dim db As Database Dim

rcrdSet Als Recordset Dim strSQL

As String Dim

Xcntr As Integer

db = CurrentDb

Set strSQL = " CREATE TABLE selectQueryData ( NumField NUMBER , Mieter TEXT , TEXT Apt ); "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Mieter , Apt ) "

strSQL = strSQL & " VALUES (1, 'John' , 'A' ); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Mieter , Apt ) "

strSQL = strSQL & " VALUES (2, ' Susie ', ' B '); "

DoCmd . SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Mieter , Apt ) "

strSQL = strSQL & " VALUES (3, ' Luis ',' C '); . "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " Select * from selectQueryData selectQueryData "

strSQL = strSQL & "WHERE selectQueryData.Tenant = ' Luis '; "

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Xcntr = 0 To rcrdSet.RecordCount - 1 of

MsgBox " Mieter: " & rcrdSet.Fields ( " Mieter " ) Value & " , lebt in apt :" & _ < . br>

rcrdSet.Fields ( "Apt " ) . Wert

rcrdSet.MoveNext

Weiter Xcntr

rcrdSet.Close

db.Close

End Sub
3

Presse "F5" zu laufen Ihr Unterprogramm . Das Programm erstellt eine Tabelle , Einfügen von Daten in die Tabelle und verwenden Sie eine SELECT-Abfrage , um Daten für eine bestimmte Zeile anzuzeigen.