Lære å lage en database ved hjelp av Visual Basic.NET ( VB.NET ) mens du bruker en fremgang bar som en prosess indikatoren kan gjøre programmet mer brukervennlig. Ved hjelp av en Access-database som et sted å lagre brukerstandardene eller annen informasjon som programmet trenger er definitivt bedre enn å bruke mange tekstfiler . Du kan lage tabeller i databasen din til å lagre data og senere hente den ved hjelp SQL-setninger . Bruk " ADOX " objekt for å opprette databasen , og bruke " OleDbConnection " class å opprette en tilkobling og endre database. Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " fra den venstre delen av skjermen og utvide " Visual Basic" under " installerte maler ." Klikk "Windows ", og dobbeltklikk på " Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk " ProgressBar " for å legge til en ny fremgang bar kontroll i skjemaet, og dobbeltklikk på " Button " for å legge til en ny knapp i skjemaet .
3

Dobbeltklikk på " Button1 " til Opprett en ny klikkhendelsen starte VB modulen. Klikk på "Project "-menyen , klikk på " Add Reference ", og klikk " COM "-kategorien . Dobbeltklikk på " Microsoft ADO Ext. . 6.0 for DDL and Security " for å legge den som en referanse til prosjektet
4

Kopier og lim inn følgende linjer med kode som den aller første linjer med kode i modulen : .
< P > Import ADOXImports System.Data.OleDb
5

Kopier og lim inn følgende kode inne i knappen, klikk arrangement å erklære variabler , definere fremdriftssøylen grenser og sette den første verdien :
< p > Dim ADOXCat som ny ADOX.CatalogDim strSQL Som StringDim objCmd som ny OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ( )
6

Kopier og lim følgende kode for å opprette en Access- database:

ADOXCat.Create ( " Provider = Microsoft.ACE.OLEDB.12.0 ; datakilde = c : \\ Temp \\ newdata.mdb " ) ADOXCat = NothingMe.ProgressBar1 . Verdi = 20Application.DoEvents ( )
7

Lag en tilkobling til databasen opprettet i forrige trinn : en

Dim Con = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB .12.0 ; datakilde = c : \\ Temp \\ newdata.mdb " ) Me.ProgressBar1.Value = 30Application.DoEvents ( ) Con.Open ( )
8

Legg til følgende kode for å opprette en ny tabell i databasen : en

strSQL = "CREATE tABLE newTable (ID heltall, varetekst )" objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery () Me.ProgressBar1.Value = 40Application.DoEvents ( )
9

Legg til følgende kode for å sette inn en ny post i tabellen opprettet i forrige trinn : en

strSQL = " INSERT INTO newTable (ID , PRODUCT) VALUES ( 0 , ' tablet ' ) " objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 50Application.DoEvents ( ) Con.Close ( )