Salvataggio di tutte le voci "ListBox" ad un database di Microsoft Access utilizzando Visual Basic.NET (VB.NET) può rendere l'applicazione più dinamico, memorizzando le informazioni in un database. In VB, è possibile utilizzare l'interfaccia OLE DB, che è un insieme di interfacce COM-based che consentono di connettersi a un database di Access. Una volta effettuata la connessione, è possibile creare o aggiornare le tabelle dall'applicazione VB.

istruzione

1 Avviare Microsoft Visual Studio e fare clic su "New Project" dal riquadro sinistro dello schermo del computer. Espandere "Visual Basic", che si trova sotto "Modelli installati." Fai clic su "Windows", quindi fare doppio clic su "Applicazione Windows Form" dal centro della finestra di dialogo per creare un nuovo progetto.

2 Fare doppio clic su "ListBox" per aggiungere un nuovo controllo casella di riepilogo al form. Fare doppio clic su "Pulsante" per aggiungere un nuovo pulsante al form.

3 Fare doppio clic sul form per creare un evento carico di modulo e aggiungere il seguente codice per aggiungere cinque elementi al "ListBox:"

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

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

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

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

Me.ListBox1.Items.Add ( "DB punto 5")

4 Tornare alla visualizzazione Struttura e fare doppio clic su "Button1" per creare un evento click per questo pulsante. Aggiungere la seguente riga di codice per definire il percorso del database:

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

5 Sostituire "C: \ Northwind 2007.accdb" nel passaggio precedente con il nome e il percorso del database di Access.

6 Creare la variabile "dbCon", che viene utilizzato per stabilire la connessione al database, e la variabile stringa "insertItems", che viene utilizzato per creare l'istruzione SQL per inserire gli elementi:

Dim dbCon As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(dbConString)

insertItems Dim come stringa

7 Creare ed eseguire un comando per costruire una nuova tabella nel database, dove potrete inserire le voci "ListBox":

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

Dim dbcmd Come System.Data.IDbCommand = Nuovo System.Data.OleDb.OleDbCommand

dbCmd.CommandText = qryStr

dbCmd.Connection = dbCon

dbCon.Open ()

dbCmd.ExecuteNonQuery ()

8 Premere il tasto "F5" per eseguire il programma e fare clic su "Button1".