Visual Basic ( VB ) är ett programmeringsspråk och utvecklingsmiljö producerat av Microsoft . Bland VB : s verktyg är de för att hantera data, inklusive uttalanden utför databasen operationer som frågor och bord kommandon skapande . Dessa operationer fungerar genom att köra Structured Query Language ( SQL ) kommandon . Använda VB för att köra SQL-kommandon är en process i flera steg som innefattar att ansluta till en databas och utföra önskad SQL-kommando . SQL-kommandon från VB kan du skapa program som kan hantera data utan att användaren behöver ingripa . Instruktioner
1
Öppna Anteckningar och skriv följande text i ett nytt textdokument : " . GameTitle " Denna text är rubriken på en kolumn för en enkel databas tabell . Du kommer att använda VB för att köra en SQL-sats på det här bordet
2
Spara filen som " C : . \\ Games.txt " .
3
öppna VB och tryck "Control - N , " följt av att välja " Windows Form projektet . " Denna åtgärd skapar ett program med ett användarnamn input /output formulär . Du kommer att skräddarsy denna blankett och dess program för att köra ett SQL-kommando på spel databas .
4
Tryck " F7 " för att öppna fönstret formuläret designen , klicka på verktygsfältet " verktygslåda " ikonen för att visa en palett av kontroller ( t.ex. knapp , textruta ) kan du infoga den tomma formen .
5
dra en kontroll textruta från verktygspaletten på formuläret , sedan drar du en knapp från . paletten till någon plats under textrutan
6
Dubbelklicka på knappen för att öppna fönstret för att ange programkod , sedan skriver du följande rad överst i kodning fönster :
Import System.Data.OleDb
Detta uttalande säger VB att skapa en länk till en databas - relaterade bibliotek av kod när den körs programmet . Utan denna länk , kan VB erkänner inte databas - relaterade uttalanden i ditt program
7
Skriv följande uttalande ovanför " End Sub " uttalande i " Button1_Click " subrutin : .
RunSQL ( ) katalog
Detta uttalande kallar subrutinen innehåller din SQL-kommando när programmets användaren trycker på knappen du placerade i steg 5 .
8
Klistra in följande efter " End sub " uttalande " Button1_Click " subrutin . Denna subrutin skapar en länk , med OleDbConnection kommandot med texten databasen du skapade i steg 2 . Subrutinen OldDbCommand uttalande exekverar en SQL-fråga som infogar ett nytt spel namn i databasen . Spelet Namnet kommer från det värde programmets användaren skriver in i textrutan du placerade i steg 5 .
Private Sub RunSQL ( ) katalog
Dim sCmd Som OleDbCommand
Dim sSQL As String
Dim DbCmd som New OleDbCommand
Dim newValue As String
Dim cnxn = Ny OleDbConnection ( " Provider = Microsoft.Jet.OLEDB.4.0 , Data Source = c : \\; Utökade Egenskaper = " " text , HDR = Ja , FMT = Avgränsade " " , " ) katalog
newValue = TextBox1.Text
sSQL = " INSERT INTO Spel ( [ gamename] ) värden ( ' " & newValue & " ' ) ; "
sCmd = Ny OleDbCommand ( sSQL , cnxn ) katalog
cnxn.Open ( ) katalog
DbCmd = Ny OleDbCommand ( sSQL , cnxn ) katalog
DbCmd.ExecuteNonQuery ( ) katalog
cnxn.Close ( ) katalog
End Sub
9
Kör programmet genom att trycka på " F5 , " skriv sedan något spel namn ( t.ex. " pjäser ", " asteroider " ) i form textruta . Tryck på knappen under textrutan för att köra koden du just klistrade
10
Avsluta programmet genom att trycka " Alt - F4 , " öppna sedan " c : \\ games.txt " . Textdatabas du i steg 2 . Databasen kommer att visa spelets namn du just angett .
