La maggior parte delle applicazioni includono sia un database e codice front-end che manipola i dati ricevuti dal database . Visual Basic (VB ) , un linguaggio sviluppato da Microsoft per il suo quadro . NET , consente agli sviluppatori di prendere i dati da un database e visualizzarlo per gli utenti finali in un formato utilizzabile . I programmatori Visual Basic possono richiamare le funzioni T - SQL direttamente nel codice. T - SQL , o transazione standard Query Language , è il linguaggio di query di database di Microsoft. Combinandolo con Visual Basic consente di effettuare potenti applicazioni per entrambi gli ambienti desktop e Internet . Istruzioni
1
Aprire il file di Visual Basic che contiene la classe che si intende utilizzare per chiamare la funzione T - SQL .
2
Creare un "Sub ", dal nome di CallSQLFunction tenere la funzione che chiamerà la funzione T - SQL . Aggiungi un argomento " ByVal " stringa denominata " connectionString " :
pubblico CallSQLFunction Sub ( connectionString ByVal come stringa ) per
End Sub
3
Creare un variabile stringa chiamata " query. " Assegnare il testo della query T-SQL che si desidera eseguire per la "query" variabile :
di query Dim As String = "SELECT * "
4
creare un "Utilizzo " dichiarazione all'interno della funzione CallSQLFunction e utilizzarlo in combinazione con il parametro connectionString :
Utilizzando la connessione As New SqlConnection ( connectionString ) per
End Using
5
Aprire SQL connessione e utilizzare il " ExecuteReader ( ) " metodo della classe SqlCommand :
comando Dim As New SqlCommand ( queryString , collegamento ) per
Connection.Open ( ) per
Dim r come SqlDataReader = Command.ExecuteReader ( ) economici 6
creare un blocco di " Prova " per racchiudere un ciclo "while " . Utilizzare i risultati della funzione T - SQL come necessari all'interno del ciclo "while" .
Prova
Mentre r.Read ( ) per
' utilizzare i dati del database qui < br
Fine > Mentre
End Try
7
Aggiungi un comunicato "Finalmente " al codice . Chiudere il lettore all'interno del blocco "Finalmente" .
Infine
r.Close ( ) per
End Try
8
Eseguire la funzione come necessari in tutto il codice .