Den senaste versionen av Visual Basic ger en rik dataåtkomst skikt som möjliggör objektorienterad abstraktion av de uppgifter som används i ett program . Ibland är det dock mer effektivt , snabbare eller mer praktiskt att helt enkelt köra en SQL- skript mot den underliggande databasen direkt . En SQL- skript kan innehålla flera uttalanden som måste utföras tillsammans eller det kan ha dynamisk SQL som genereras av programmet . Oavsett orsaken , exekvera SQL-skript inifrån Visual Basic är inte särskilt svårt . Saker du behöver Review, Visual Studio 2008
Visa fler instruktioner
1
Skapa ett nytt Visual Basic Windows Forms projekt i Visual Studio genom att välja Nytt projekt från Arkiv -menyn och välja lämplig typ av projekt . I standardformulär som skapas , Form1 , placera en knapp som heter Button1 . Dubbelklicka på kontrollen för att skapa en Button1_click händelsehanterare .
2
På toppen av koden för att Form1 ( ovanför linjen " Public Class Form1 " ) , tillsätt en import uttalande att importera . NET dataåtkomst bibliotek . Uttalandet bör se ut så här :
Imports System.Data.SqlClient
I det här exemplet är den databas som antas vara en SQL Server-databas . Det finns andra bibliotek för ODBC och OLEDB -databaser .
3
Inom Button1_Click händelsehanterarfunktion , dimension en variabel med namnet db som en ny SqlConnection . Ange egenskapen anslutningen strängen vara anslutningssträngen för databasen och öppna databasen samband med Open metoden . Koden ska se ut så här :
Dim db Som New SqlConnectiondb.ConnectionString = " Data Source = servernamn , Initial Catalog = dbname , användar-ID = användarnamn , lösenord = lösenord " db.Open ( ) katalog
4
Dimension en variabel som heter cmd som ny SqlCommand . Ställ CommandText egenskapen att vara SQL-skriptet som skall exekveras . Slutligen , ring ExecuteNonQuery metod SqlCommand objektet för att exekvera SQL- skript . Koden ska se ut så här :
Dim cmd As New SqlCommandcmd.Connection = dbcmd.CommandText = " update tablename set fält1 = 2 där field3 = 4 " cmd.ExecuteNonQuery ( )
