Ako vytvoriť databázu pomocou progressbar a VB.Net

Naučiť sa vytvoriť databázu pomocou jazyka Visual Basic.NET ( VB.NET ) , pri použití progress bar ako indikátor procesov môže vaše aplikácie viac užívateľsky príjemný . Použitie databázy programu Access ako miesto pre uloženie predvolené užívateľské alebo iné informácie , ktoré aplikácia potrebuje , je rozhodne lepšie ako mnoho textových súborov . Môžete vytvoriť tabuľky v databáze pre ukladanie dát a neskôr načítať pomocou príkazov SQL . Použite " ADOX " objekt vytvoriť databázu , a používať " OleDbConnection " triedu pre pripojenie a upravovať svojej databáze . Veci , ktoré budete potrebovať v Microsoft Visual Studio
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od centra v dialógovom okne vytvoriť nový projekt .
2

Double - click " progressbar " pridať nový ovládací prvok pokrok bar do formulára , dvakrát kliknite - kliknite na " tlačidlo " pridať nové tlačidlo do formulára .
3

Double - kliknite na " Button1 " na vytvoriť novú udalosť click spustiť VB modul . Kliknite na menu " Project " , kliknite na " Pridať odkaz " a kliknite na záložku " COM " . Double - kliknite na " Microsoft ADO Ext . 6.0 pre DDL a zabezpečenie " pridať ako odkaz na vašu projekte
4

Skopírujte a vložte nasledujúce riadky kódu ako vôbec prvý riadky kódu vo vašom module : .
< P > Dovoz ADOXImports System.Data.OleDb
5

skopírujte a vložte nasledujúci kód vnútri tlačidla , kliknite na udalosť deklarovať premenné , definujú bar limity pokroku a nastavte prvú hodnotu :

Dim ADOXCat As New ADOX.CatalogDim strSQL Ako StringDim objCmd As New OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ( )
6

Kopírovanie a vkladanie nasledujúci kód pre vytvorenie databázy programu Access :

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

Vykonajte pripojenie k databáze vytvorenej v predchádzajúcom kroku :

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

Pridajte nasledujúci kód na vytvorenie novej Tabuľka v databáze :

strSQL = " CREATE TABLE newTable ( ID INTEGER , TEXT KATALÓG ) " objCmd = New OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 40Application.DoEvents ( )
9

Pridajte nasledujúci kód pre vloženie nového záznamu do tabuľky vytvorené v predchádzajúcom kroku : Spojené

strSQL = " INSERT INTO newTable ( ID , PRODUKTE ) VALUES ( 0 " tabliet " ) , " objCmd = New OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Me.ProgressBar1.Value = 50Application.DoEvents ( ) Con.Close ( )

• Predchádzajúca strana: Výhody a nevýhody VisualBasic 
• Ďalšia strana: OpenText Metóda VBA