Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class MainClass
Public Shared Sub StoredProcedureExample(ByVal con As SqlConnection, ByVal managerID As Integer)
Using com As SqlCommand = con.CreateCommand
com.CommandType = CommandType.StoredProcedure
com.CommandText = "uspGetManagerEmployees"
com.Parameters.Add("@ManagerID", SqlDbType.Int).Value = managerID
Dim result As Integer = com.ExecuteNonQuery
Using reader As SqlDataReader = com.ExecuteReader
Console.WriteLine("Employees managed by manager #{0}.", managerID.ToString)
While reader.Read
Console.WriteLine(" {0}, {1} ({2})", reader("LastName"), reader("FirstName"), reader("employeeID"))
End While
End Using
End Using
End Sub
Public Shared Sub Main()
Using con As New SqlConnection
con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;"
con.Open()
StoredProcedureExample(con, 185)
con.Close()
End Using
End Sub
End Class
|