L'ultima versione di Visual Basic fornisce un ricco strato di accesso ai dati che consente di astrazione object-oriented dei dati utilizzati in un'applicazione. Talvolta tuttavia, è più efficiente , veloce o più pratico per eseguire semplicemente uno script SQL sul database sottostante direttamente . Uno script SQL può contenere più istruzioni che devono essere eseguite insieme o può avere SQL dinamico che viene generato dall'applicazione. Indipendentemente dal motivo , l'esecuzione di script SQL dall'interno di Visual Basic non è molto difficile . Cose che ti serviranno
Visual Studio 2008
Mostra più istruzioni
1

Creare un nuovo progetto di Visual Windows Form in Visual Studio selezionando Nuovo progetto dal menu File e selezionando il tipo di progetto appropriato . Nel modulo predefinito che viene creato , Form1, inserire un controllo pulsante denominato Button1 . Fare doppio clic sul controllo per creare un gestore eventi Button1_Click .
2

Nella parte superiore della lista di codice per Form1 (sopra la riga " Public Class Form1 " ) , aggiungere un'istruzione Imports per importare il . NET libreria di accesso ai dati. La dichiarazione dovrebbe essere simile a questo :

Imports System.Data.SqlClient

In questo esempio , il database viene considerato un database SQL Server . Non ci sono altre librerie per database ODBC e OleDB .
3

All'interno della funzione di gestore eventi Button1_Click , una dimensione di nome db variabile come nuovo SqlConnection . Impostare la proprietà della stringa di connessione per essere la stringa di connessione per il database e aprire la connessione al database con il metodo Open . Il codice dovrebbe essere simile a questo :

Dim db As New SqlConnectiondb.ConnectionString = "Data Source = nomeserver ; Initial Catalog = dbname ; User Id = user , password = password" db.Open ( ) per
4

Dimension una variabile denominata cmd come nuovo SqlCommand . Impostare la proprietà CommandText di essere lo script SQL che deve essere eseguito . Infine , chiamare il metodo ExecuteNonQuery dell'oggetto SqlCommand per eseguire lo script SQL . Il codice dovrebbe essere simile a questo :

Dim cmd As New SqlCommandcmd.Connection = dbcmd.CommandText = "update nometabella set campo1 = 2 dove field3 = 4" cmd.ExecuteNonQuery ( ) economici < br >