Speichern aller " ListBox " Titel in eine Microsoft Access-Datenbank mit Visual Basic.NET ( VB.NET) können Sie Ihre Anwendung mehr Dynamik , indem Sie Ihre Daten in einer Datenbank . In VB, können Sie die OLE DB -Schnittstelle, die eine Reihe von COM-basierten Schnittstellen, die Sie zu einer Access-Datenbank verbinden zu ermöglichen. Sobald Sie die Verbindung herstellen , können Sie erstellen oder aktualisieren Tabellen aus Ihrer VB-Anwendung. Things You
Microsoft Visual Studio
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Visual Studio und klicken Sie auf " Neues Projekt " aus dem linken Bereich des Bildschirm Ihres Computers. Erweitern Sie " Visual Basic ", weiter unten liegt " Installierte Vorlagen . " Klicken Sie auf " Windows", doppelklicken Sie dann auf "Windows Forms Application" aus der Mitte der Dialog um ein neues Projekt zu erstellen.
2

Doppelklicken Sie auf " ListBox " ein neues Listenfeld hinzufügen Ihre Form . Klicken Sie doppelt auf "Button" , um eine neue Schaltfläche, um Ihre Form hinzufügen.
3

Doppelklicken Sie auf das Formular, um eine Form Load-Ereignis zu erstellen , und fügen Sie den folgenden Code , um fünf Punkte auf den Button " ListBox : "

Me.ListBox1.Items.Add ( "DB Artikel 1")

Me.ListBox1.Items.Add ( "DB Punkt 2 " )

Me.ListBox1.Items.Add ( "DB Punkt 3 " )

Me.ListBox1.Items.Add ( "DB Punkt 4 " )

Me.ListBox1.Items.Add ( "DB Artikel 5 ")
4

Schalter zurück zur Entwurfsansicht , und doppelklicken Sie auf Formular " Button1 ", um eine Click-Ereignis für diese Schaltfläche zu erstellen. Fügen Sie die folgende Codezeile , um den Pfad der Datenbank zu definieren:

Dim dbConString As String = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ Nordwind 2007.accdb ; "

5

Ersetzen Sie " C: \\ Nordwind 2007.accdb " . im vorherigen Schritt mit dem Namen und den Pfad der Access-Datenbank
6

erstellen Sie die " DBCON " Variable, die wird verwendet, um die Datenbank -Verbindung herzustellen , und die " insertItems " String-Variable , die verwendet werden, um die SQL-Anweisung zu bauen , um die Elemente einzufügen :

Dim DBCON Wie System.Data.IDbConnection = New System.Data.OleDb . OleDbConnection ( dbConString )

Dim insertItems As String
7

erstellen und einen Befehl ausführen , um eine neue Tabelle in der Datenbank , wo Sie die " ListBox " Elemente einfügen bauen :

Dim qryStr As String = " CREATE TABLE tmpItemsTable ( Artikel TEXT ); "

Dim dbCmd Wie System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand

dbCmd . CommandText = qryStr

dbCmd.Connection = DBCON

dbCon.Open ()

dbCmd.ExecuteNonQuery ()
8

Presse "F5" um das Programm auszuführen und klicken Sie auf " Button1. "