Leren hoe je een database met behulp van Visual Basic.NET ( VB.NET ) te creëren, terwijl het gebruik van een voortgangsbalk als een proces indicator kan uw toepassing nog gebruiksvriendelijker te maken . Maak Met behulp van een Access-database als een plek om gebruikersstandaards of andere informatie die uw applicatie moet slaan is zeker beter dan het gebruik van een groot aantal tekstbestanden . U kunt tabellen maken in uw database om gegevens op te slaan en later op te halen met behulp van SQL-statements . Gebruik de " ADOX " object aan de database te maken , en gebruik de " OleDbConnection " class om een verbinding te maken en wijzigen van uw database. Wat je nodig hebt
Microsoft Visual Studio
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm en uitbreiden " Visual Basic " onder " Geïnstalleerde sjablonen . " Klik op ' Windows ', en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een nieuw project aan te maken . kopen van 2 Dubbelklik op " ProgressBar " om een nieuwe voortgangsbalk controle toe te voegen aan uw formulier , dubbelklik op " knop" om een nieuwe knop toe te voegen aan uw formulier .
Dubbelklik op " Button1 " 3 tot Maak een nieuwe gebeurtenis click lanceren de VB -module . Klik op het menu " Project " , klik op "Add Reference , " en klik op het tabblad "COM" . Dubbelklik op " Microsoft ADO Ext . 6.0 voor DDL en veiligheid " om het als een verwijzing naar uw project toe te voegen
Kopieer 4 en plak de volgende regels code als de allereerste regels code in de module : .
Invoer ADOXImports System.Data.OleDb
5 Kopieer en plak de volgende code in de knop , klik evenement om variabelen op te geven , bepalen de voortgangsbalk grenzen en zet de eerste waarde :
Dim ADOXCat als Nieuwe ADOX.CatalogDim strSQL Zoals StringDim objCmd Als Nieuw OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ( )
Kopiëren en plakken 6 de volgende code om een Access- database te maken : ADOXCat.Create
( " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = c : \\ Temp \\ newdata.mdb " ) ADOXCat = NothingMe.ProgressBar1 . value = 20Application.DoEvents ( )
7 Maak een verbinding met de database gemaakt in de vorige stap : Dim Con = Nieuwe OleDbConnection
( " Provider = Microsoft.ACE.OLEDB .12.0 ; data Source = c : \\ Temp \\ newdata.mdb " ) Me.ProgressBar1.Value = 30Application.DoEvents ( ) Con.Open ( )
8 Voeg de volgende code om een nieuwe te maken tabel in de database : strSQL = " CREATE TABLE newtable ( ID INTEGER , PRODUCT TEXT ) " objCmd = Nieuw OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery
( ) Me.ProgressBar1.Value = 40Application.DoEvents ( )
9 Voeg de volgende code om een nieuw record te voegen aan de tabel gemaakt in de vorige stap : strSQL
= " INSERT INTO newtable ( ID , PRODUCT) WAARDEN ( 0 , ' tablet ' ) " objCmd = Nieuw OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 50Application.DoEvents ( ) Con.Close ( )
|
