At lære at oprette en database ved hjælp af Visual Basic.NET ( VB.NET ) , mens du bruger en statuslinje som en proces indikator kan gøre din ansøgning mere brugervenligt. Brug af en Access-database som et sted at opbevare brugerstandarder eller andre oplysninger , at din ansøgning behov er absolut bedre end at bruge mange tekstfiler. Du kan oprette tabeller i din database til at gemme data og senere hente den ved hjælp af SQL-sætninger . Brug " ADOX " objekt til at oprette databasen , og bruge " OleDbConnection " class at oprette en forbindelse og ændre din database. Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1
Launch Microsoft Visual Studio , klik på " Nyt projekt " fra venstre rude på din computerskærm og udvide "Visual Basic " under " installerede skabeloner. " Click "Windows " og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2
Dobbeltklik på " ProgressBar " for at tilføje en ny statuslinje kontrol til formularen , dobbeltklik derefter på " Button " for at tilføje en ny knap til formularen .
3
Dobbeltklik på " Button1 " til Opret en ny klik begivenheden starte VB modulet. Klik på " Projekt "-menuen , klik på " Tilføj Reference" og klik på " COM" fanebladet . Dobbeltklik på " Microsoft ADO Ext . 6.0 til DDL og sikkerhed " for at tilføje det som en reference til dit projekt
4
Kopier og indsæt følgende linjer kode som de allerførste linjer kode i dit modul : .
< P > Import ADOXImports System.Data.OleDb
5
Kopier og indsæt følgende kode inde på knappen, klikke begivenhed at erklære variabler , definerer statuslinjen lofter, og som den første værdi : Hej
Dim ADOXCat Da New ADOX.CatalogDim strSQL Som StringDim objCmd Som New OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ()
6
Kopier og indsæt følgende kode til at oprette en Access-database : Hej
ADOXCat.Create ( " Provider = Microsoft.ACE.OLEDB.12.0 , datakilde = c : \\ Temp \\ newdata.mdb " ) ADOXCat = NothingMe.ProgressBar1 . value = 20Application.DoEvents ()
7
Lav en forbindelse til databasen oprettet i det forrige trin : Hej
Dim Con = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB .12.0 ; datakilde = c : \\ Temp \\ newdata.mdb " ) Me.ProgressBar1.Value = 30Application.DoEvents () Con.Open ()
8
Føj følgende kode til at oprette en ny tabel i databasen : Hej
strSQL = " CREATE tABLE newTable (ID INTEGER , varetekst )" objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery () Me.ProgressBar1.Value = 40Application.DoEvents ()
9
Føj følgende kode til at indsætte en ny post til tabellen oprettet i det forrige trin : Hej
strSQL = " INSERT INTO newTable (ID , PRODUCT) VALUES ( 0 ' tablet ' ) " objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery () Me.ProgressBar1.Value = 50Application.DoEvents () Con.Close ()