Lagre alle " listeboksen " elementer til en Microsoft Access database ved hjelp av Visual Basic.NET ( VB.NET ) kan gjøre programmet mer dynamisk ved å lagre dine data i en database . I VB , kan du bruke OLE DB -grensesnittet , som er et sett av COM - baserte grensesnitt som lar deg koble til en Access database. Når du foretar tilkoblingen , kan du opprette eller oppdatere tabeller fra din VB -programmet . Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio og klikk " Nytt prosjekt " fra den venstre ruten på skjermen . Utvid " Visual Basic ", som ligger under " Installerte maler . " Klikk på "Windows ", dobbeltklikk deretter "Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk på " Liste- " for å legge en ny liste boks kontroll i skjemaet. Dobbeltklikk på " Button " for å legge til en ny knapp i skjemaet .
3

Dobbeltklikk skjemaet for å opprette en form belastning hendelsen og legge til følgende kode for å legge til fem elementer i " Liste- : "

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

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

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

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

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

Switch tilbake til Form Design utsikt og dobbeltklikk på" Button1 "for å skape et klikk hendelsen for denne knappen. Legg til følgende linje med kode for å definere banen til databasen : en

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

5

Erstatt " C : \\ Northwind 2007.accdb " . i forrige trinn med navnet og banen til Access-databasen
6

Lag " dbCon " variable , som brukes til å opprette databasen tilkoblingen , og " insertItems " streng variabel , som brukes til å bygge SQL-setningen for å sette inn elementer : en

Dim dbCon som System.Data.IDbConnection = Ny System.Data.OleDb . OleDbConnection ( dbConString )

Dim insertItems Som String
7

Lag og kjøre en kommando for å bygge en ny tabell i databasen der du vil sette inn " listeboksen " elementer :

Dim qryStr As String = "CREATE TABLE tmpItemsTable ( Elementer TEKST ),"

Dim dbCmd Som System.Data.IDbCommand = Ny System.Data.OleDb.OleDbCommand

dbCmd . CommandText = qryStr

dbCmd.Connection = dbCon

dbCon.Open ( )

dbCmd.ExecuteNonQuery ( )
8

Trykk " F5" å kjøre programmet og klikk " Button1 . "