¿Cómo llamar a una función T -SQL en Visual Basic 2008

La mayoría de las aplicaciones incluyen tanto una base de datos y el código de front-end que manipula los datos recibidos de la base de datos. Visual Basic ( VB ), un lenguaje desarrollado por Microsoft para su marco . NET , permite a los desarrolladores tomar datos de una base de datos y mostrar a los usuarios finales en un formato utilizable. Programadores de Visual Basic puede llamar a las funciones T- SQL directamente en el código. T -SQL , o Transaction Query Language estándar , es lenguaje de consulta de base de datos de Microsoft . Combinado con Visual Basic permite realizar aplicaciones de gran alcance tanto para los entornos de escritorio y de Internet. Instrucciones
1

Abra el archivo de Visual Basic que contiene la clase que va a utilizar para llamar a la función T -SQL.
2

Crear un " Sub" llamado a CallSQLFunction mantener la función que se llame a la función T -SQL. Añadir un argumento " ByVal " cadena denominada " connectionString ":

Pública CallSQLFunction Sub ( connectionString ByVal como secuencia)

End Sub
3

Crear un variable de cadena denominada " consulta ". Asigne el texto de la consulta T -SQL que desee ejecutar a la " consulta" variables :

consulta As String = "SELECT * "
4

crear un " uso " declaración dentro de la función CallSQLFunction y utilizarlo en combinación con el parámetro connectionString :

uso de la conexión As New SqlConnection ( connectionString )

End Using
5

Abra el SQL método de conexión y utilizar el " ExecuteReader ()" de la clase SqlCommand :

comando Dim As New SqlCommand ( queryString , conexión)

Connection.Open ()

Dim r Como SqlDataReader = Command.ExecuteReader ()
6

Crear un bloque " Try" para encerrar un bucle "while" . Utilizar los resultados de la función T -SQL como necesarios en el ciclo " While" .

Prueba

Mientras r.Read ()

' utilizar los datos de base de datos aquí

End While

End Try
7

Añadir un comunicado " último " al código . Cierre el lector dentro del bloque "Por fin " .

Finalmente

r.Close ()

End Try
8

Ejecutar la función como necesaria en todo el código .