De nieuwste versie van Visual Basic biedt een rijke data access layer die het mogelijk maakt voor object - georiënteerde abstractie van de gegevens die worden gebruikt in een toepassing . Soms is het echter efficiënter , sneller en praktischer om een SQL script alleen uitvoeren tegen de direct onderliggende database . Een SQL-script kan meerdere uitspraken die samen moeten worden uitgevoerd of kan het dynamische SQL die wordt gegenereerd door de applicatie bevatten . Ongeacht de reden , uitvoeren van SQL- scripts vanuit Visual Basic is niet erg moeilijk . Wat je nodig hebt Visual Studio 2008 Toon Meer Aanwijzingen 1 Maak een nieuwe Visual Basic Windows Forms project in Visual Studio door Nieuw project selecteren in het menu Bestand en het selecteren van het juiste type project . In het standaard formulier dat wordt gecreëerd , form1 , plaats een knop controle genaamd Button1 . Dubbelklik op het bedieningspaneel om een Button1_Click event handler te maken . Kopen van 2 Op de top van de code lijst voor Form1 ( boven de lijn "Public Class Form1 " ) , voeg een invoer verklaring aan het importeren. NET data access library . De verklaring moet er zo uitzien : Imports System.Data.SqlClient In dit voorbeeld wordt de database aangenomen dat het een SQL Server-database te zijn . Er zijn andere bibliotheken voor ODBC en OleDB databases . 3 Binnen de Button1_Click gebeurtenishandlerfunctie , afmeting een variabele met de naam db als een nieuwe SqlConnection . Stel de string eigenschap aansluiting om de verbinding string voor de database en de database verband met de open methode te openen . De code moet er zo uitzien : Dim db als Nieuwe SqlConnectiondb.ConnectionString = " Data Source = servernaam ; Initial Catalog = dbname ; Gebruikers-id = gebruiker , wachtwoord = wachtwoord " db.Open ( ) op < br Dimension > 4 een variabele cmd genoemd als een nieuwe SqlCommand . Stel de CommandText woning aan de SQL- script dat uitgevoerd moet worden te zijn . Tot slot roepen de ExecuteNonQuery methode van de SqlCommand object naar de SQL- script uit te voeren . De code moet er zo uitzien : Dim cmd als Nieuwe SqlCommandcmd.Connection = dbcmd.CommandText = " Update tablename set veld1 = 2 waarbij veld3 = 4 " cmd.ExecuteNonQuery ( ) < br >
|