Function Emps(ByVal employeeID As Integer) As System.Data.DataSet
Dim connectionString As String = "server='(local)'; trusted_connection=true; database='JumpData'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
Dim queryString As String = "SELECT [Employees].[EmployeeID], [Employees].[First Name], [Employees].[Last Name"& _
"], [Employees].[Birthdate], [Employees].[Branch] FROM [Employees] WHERE ([Employ"& _
"ees].[EmployeeID] = @EmployeeID)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_employeeID As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_employeeID.ParameterName = "@EmployeeID"
dbParam_employeeID.Value = employeeID
dbParam_employeeID.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_employeeID)
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Function EmpNum() As System.Data.DataSet
Dim connectionString As String = "server='(local)'; trusted_connection=true; database='JumpData'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
Dim queryString As String = "SELECT [Employees].[EmployeeID] FROM [Employees]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Sub Page_Load(Sender As Object, E As EventArgs)
If Not Page.IsPostBack Then
DropDownList1.DataTextField = "EmployeeID"
DropDownList1.DataSource = EmpNum()
DropDownList1.DataBind()
End If
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
DataGrid1.DataSource = _
Emps(DropDownList1.Items(DropDownList1.SelectedIndex).Text)
DataGrid1.DataBind()
End Sub
Social Networking Bookmarks