lära sig hur man skapar en databas med hjälp av Visual Basic.NET ( VB.NET ) när du använder en förloppsindikator som en process indikator kan göra din ansökan mer användarvänlig . Använda en Access-databas som en plats att lagra användarinställningar eller annan information som programmet behöver är definitivt bättre än att använda flera textfiler . Du kan skapa tabeller i din databas för att lagra data och senare hämta den med hjälp av SQL-satser . Använd " Adox " objekt för att skapa databasen , och använd " OleDbConnection " klass för att göra en anslutning och ändra din databas . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm och expandera " Visual Basic " nedan " Installerade mallar . " klicka på " Windows " och dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
2
Dubbelklicka på " ProgressBar " för att lägga till en ny kontroll förloppsindikator i formuläret , dubbelklicka sedan på " knappen " för att lägga till en ny knapp i formuläret .
3
Dubbelklicka på " Button1 " till skapa en ny klickhändelsen starta VB -modulen . Klicka på " Project " -menyn , klicka på " Add Reference " och klicka på " COM "-fliken . Dubbelklicka på " Microsoft ADO Ext . 6,0 för DDL och säkerhet " för att lägga till den som en referens till ditt projekt
4
Kopiera och klistra in följande rader med kod som den allra första rader kod i din modul : .
Import ADOXImports System.Data.OleDb
5
Kopiera och klistra in följande kod i knappen , klicka på händelsen för att deklarera variabler , definiera gränserna förloppsindikator och ange det första värdet :
Dim ADOXCat Som New ADOX.CatalogDim strSQL Som StringDim objCmd Som Ny OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ( )
6
Kopiera och klistra in följande kod för att skapa en Access-databas :
ADOXCat.Create ( " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = c : \\ Temp \\ newdata.mdb " ) ADOXCat = NothingMe.ProgressBar1 . Value = 20Application.DoEvents ( )
7
Gör en anslutning till databasen skapades i föregående steg :
Dim Con = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB .12.0 , Data Source = c : \\ Temp \\ newdata.mdb " ) Me.ProgressBar1.Value = 30Application.DoEvents ( ) Con.Open ( )
8
Lägg till följande kod för att skapa en ny tabell i databasen :
strSQL = " CREATE tABLE newTable ( ID INTEGER , PRODUCT TEXT ) " objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 40Application.DoEvents ( )
9
Lägg till följande kod för att infoga en ny post i tabellen skapades i föregående steg :
strSQL = " INSERT INTO newTable ( ID , PRODUCT ) VALUES ( 0 , ' tablet ' ) " objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 50Application.DoEvents ( ) Con.Close ( )
