Spara alla " listrutan " objekt till en Microsoft Access-databas med hjälp av Visual Basic.NET ( VB.NET ) kan göra din ansökan mer dynamisk genom att lagra dina data i en databas . I VB , kan du använda OLE DB -gränssnitt , vilket är en uppsättning COM - baserade gränssnitt som gör att du kan ansluta till en Access-databas . När du gör anslutningen , kan du skapa eller uppdatera tabeller från din VB ansökan . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Launch Microsoft Visual Studio och klicka på " Nytt projekt " från den vänstra rutan på din datorskärm . Expandera " Visual Basic ", ligger nedanför " Installerade mallar . " Klicka på " Windows " och sedan dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
2
Dubbelklicka på " ListBox " för att lägga till en ny kontroll listruta till formuläret . Dubbelklicka på " knappen " för att lägga till en ny knapp i formuläret .
3
Dubbelklicka på formuläret för att skapa en händelse formulär belastning och lägg till följande kod för att lägga till fem objekt till " listruta : "
Me.ListBox1.Items.Add ( " DB punkt 1 " ) katalog
Me.ListBox1.Items.Add ( " DB Punkt 2 " ) katalog
Me.ListBox1.Items.Add ( " DB punkt 3 " ) katalog
Me.ListBox1.Items.Add ( " DB punkt 4 " ) katalog
Me.ListBox1.Items.Add ( " DB Punkt 5 " )
4
Växla tillbaka till Form Design och dubbelklicka på " Button1 " för att skapa en click-händelse för denna knapp . Lägg till följande kodrad för att definiera sökvägen till databasen :
Dim dbConString As String = " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C : \\ Northwind 2007.accdb , "
5
Ersätt " C : \\ Northwind 2007.accdb " . i föregående steg med namnet och sökvägen till din Access-databas
6
Skapa " dbCon " variabel , vilket används för att skapa databasen anslutning , och " insertItems " sträng variabel , som används för att bygga SQL-satsen för att infoga objekten :
Dim dbCon som System.Data.IDbConnection = Ny System.Data.OleDb . OleDbConnection ( dbConString ) katalog
Dim insertItems As String
7
Skapa och köra ett kommando för att bygga en ny tabell i databasen där du kommer att infoga " listrutan " produkter :
Dim qryStr As String = " CREATE TABLE tmpItemsTable ( textobjekt ) ; "
Dim dbCmd Som System.Data.IDbCommand = Ny System.Data.OleDb.OleDbCommand
dbCmd . CommandText = qryStr
dbCmd.Connection = dbCon
dbCon.Open ( ) katalog
dbCmd.ExecuteNonQuery ( )
8
Tryck " F5 " att köra programmet och klicka på " Button1 . " Addera