Lagring alle de " listbox " elementer til en Microsoft Access-database ved hjælp af Visual Basic.NET ( VB.NET ) kan gøre din ansøgning mere dynamisk ved at gemme dine data i en database. I VB, kan du bruge OLE DB grænseflade, som er et sæt af COM -baserede grænseflader der tillader dig at oprette forbindelse til en Access-database . Når du har foretaget tilslutningen , kan du oprette eller opdatere tabeller fra din VB program. Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1

Launch Microsoft Visual Studio og klikke på " Nyt projekt " fra venstre rude på din computerskærm . Udvid "Visual Basic ", placeret under " Installerede skabeloner ". Klik på "Windows " og derefter dobbeltklikke på " Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2

Dobbeltklik på " ListBox " for at tilføje en ny liste box -kontrol til formularen . Dobbeltklik på " Button " for at tilføje en ny knap til formularen .
3

Dobbeltklik på formularen for at oprette en form load begivenhed og tilføje følgende kode til at tilføje fem punkter til " ListBox : "

Me.ListBox1.Items.Add ( "DB Konto 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 Item 5 ")
4

Skift tilbage til Form designvisning og dobbeltklikke på " Button1 "for at oprette et klik begivenhed for denne knap. Tilføj følgende linje kode til at definere stien til databasen : Hej

Dim dbConString As String = " Provider = Microsoft.ACE.OLEDB.12.0 , Datakilde = C: \\ Northwind 2007.accdb ," < br >
5

Erstat " C: \\ Northwind 2007.accdb " . i det foregående trin med navnet og stien til din Access- database
6

Opret " dbCon " variable , som bruges til at etablere forbindelsen til databasen , og " insertItems " streng variabel , som bruges til at bygge SQL-sætningen for at indsætte elementerne : Hej

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

Dim insertItems As String
7

Opret og udføre en kommando til at bygge en ny tabel i databasen , hvor du vil indsætte " listbox " elementer : < br >

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

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

dbCmd . CommandText = qryStr

dbCmd.Connection = dbCon

dbCon.Open ()

dbCmd.ExecuteNonQuery ()
8

Tryk på " F5 " for at køre programmet , og klik på " Button1 . "