Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvoriť Poznámkový blok a zadajte nasledujúci text do nového textového dokumentu : " . GameTitle " Tento text je nadpis stĺpca pre jednoduché databázové tabuľky . Budete používať VB na vykonanie príkazu SQL na tejto tabuľke
2
Uložte súbor ako . " C : . \\ Games.txt "
3
otvoriť VB a stlačte tlačidlo " Control - N " , nasledovaný voľbou " projekt Windows Form . " Táto akcia vytvorí program s vstupný /výstupný formulár užívateľa . Budete prispôsobiť tento formulár a svoj program na spustenie príkazu SQL na databáze hier .
4
Stlačte tlačidlo " F7 " pre vstup do okna návrhu formulára a kliknite na ikonu na paneli nástrojov " skrinka na náradie " na zobraziť paletu ovládacích prvkov ( napr. tlačidlo , textové pole ) , môžete vložiť na prázdny formulár .
5
presuňte ovládací prvok textové pole z panela nástrojov do formulára , a potom pretiahnite ovládacie tlačidlá z . paleta na ľubovoľné miesto pod textového poľa
6
Double - kliknite na tlačidlo pre vstup do okna pre zadanie programového kódu , zadajte nasledujúci riadok v hornej časti okna kódovanie :
Dovoz System.Data.OleDb
Toto tvrdenie hovorí , VB vytvoriť odkaz na knižnicu databázy týkajúce sa kódu pri spustení programu . Bez tohto odkazu , môžete VB nerozpozná vyhlásenie databázy súvisiace vo svojom programe
7
Zadajte nasledujúci príkaz nad " End Sub " vyhlásenie v " Button1_Click " podprogram : .
RunSQL ( )
Tento príkaz volá podprogram , ktorý obsahuje váš príkaz SQL , ak užívateľ v programe stlačí tlačidlo , umiestnené v kroku 5.
8
vložte nasledujúci po " End sub " vyhlásenie o " Button1_Click " podprogram . Tento podprogram vytvorí odkaz , pomocou príkazu OleDbConnection , s textom databázu ste vykonali v kroku 2. Podprogram OldDbCommand údajov vykoná SQL dotaz , ktorý vloží nový názov hry do databázy . Názov hry pochádza z hodnoty typov užívateľských programových do textového poľa ste umiestnili v kroku 5.
Private Sub RunSQL ( )
Dim sCmd Ako OleDbCommand
Dim sSQL as String Dim
DbCmd as New OleDbCommand
Dim newValue as String Dim
cnxn = new OleDbConnection ( " Provider = microsoft.jet.oledb.4.0 ; Data Source = c : \\ ; Extended Properties = " " text ; HDR = Yes ; FMT = čiarkou " " ; " )
newValue = TextBox1.Text
sSQL = " INSERT INTO Games ( [ GameName ] ) hodnoty ( " " & newValue & " ' ) ; "
sCmd = New OleDbCommand ( sSQL , cnxn )
cnxn.Open ( )
DbCmd = New OleDbCommand ( sSQL , cnxn )
DbCmd.ExecuteNonQuery ( )
cnxn.Close ( )
End Sub
9
spustite program stlačením tlačidla " F5 , " a potom zadajte ľubovoľný názov hry ( napr. " dáma " , " asteroidy " ) v textovom poli formulára . Stlačte tlačidlo pod textovým poľom vykonať kód , ktorý ste práve vložili
10
ukončite program stlačením " Alt - F4 , " a potom otvorte "c : \\ Games.txt " . Textové databázu , ktorú v kroku 2. Databáza bude zobrazovať názov hry ste práve zadali .