Wie eine MS Access Abfrage aus VB

Wissen, wie Microsoft Office Access-Abfragen mithilfe von Visual Basic (VB) können Sie Zeit sparen, wenn Sie mit einer Datenbank arbeiten auszuführen. Der Zugang ist ein relationales Datenbank-Managementsystem, in der Microsoft Office-Suite enthalten. VB ist eine objektorientierte Programmiersprache zum Erstellen von Windows-Anwendungen verwendet. Eine Aktionsabfrage wird verwendet, um Änderungen an einer vorhandenen Datenbank vornehmen. In wenigen Schritten können Sie VB-Code zum Ausführen von Aktionsabfragen zum Erstellen und Löschen einer Tabelle in eine Datenbank schreiben.

Anweisungen

1 Öffnen Sie Microsoft Visual Basic Express Edition, und klicken Sie auf "New Project..." im linken Bereich des Bildschirms. Doppelklicken Sie auf "Konsolen Anwendung." Drücken Sie "Strg" und "A" und drücken Sie "Löschen", um den aktuellen Code zu entfernen.

2 Kopieren Sie und fügen Sie den folgenden Code zu Ihrer "Module1.vb"-Modul, um eine Abfrage ausführen, und erstellen Sie eine Tabelle in der Northwind-Datenbank und dann führen Sie eine andere Abfrage aus und löschen Sie die Tabelle, die erstellt wurde. Die Northwind-Datenbank ist in der Microsoft Office-Suite enthalten.

System.Data.OleDb importiert

Modul Modul1

Sub Main()

Dim myConnToAccess As OleDbConnection

Dim mySQLCommand As OleDbCommand

Dim mySQLStrg As String

myConnToAccess = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Northwind 2007.accdb;")

myConnToAccess.Open()

mySQLStrg = "CREATE TABLE tableToDelete ([Index] NUMBER, [Desc] TEXT);"

mySQLCommand = New OleDbCommand(mySQLStrg, myConnToAccess)

mySQLCommand.ExecuteNonQuery()

MsgBox("tableToDelete has been created in your Northwind database")

mySQLStrg = "DROP TABLE tableToDelete;"

mySQLCommand = New OleDbCommand(mySQLStrg, myConnToAccess)

mySQLCommand.ExecuteNonQuery()

MsgBox("tableToDelete has been deleted")

myConnToAccess.Close()

End Sub

Ende-Modul

3 Bearbeiten Sie die folgende Codezeile und geben Sie den Pfad zur Datenbank:

OleDbConnection ("Provider=Microsoft.ACE.OLEDB.12.0;Data

Quelle = C:\Northwind 2007.accdb; ")

Mit "F5" um das Programm auszuführen.