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.