查询本部门职工信息.aspx.vb

用VB.NET做的软件工程课程设计

Imports System.Data.SqlClient
Imports System.data

Partial Class 查询本部门职工信息
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim temp As String = Session("empno")
        Dim str As String = "select * from empinfo where empdepart in (select empdepart from empinfo where empno='" + temp + "')"
        Dim str_con As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim conn As SqlConnection = New SqlConnection(str_con)
        conn.Open()
        Dim dc As SqlCommand = New SqlCommand(str, conn)
        Dim da As SqlDataAdapter = New SqlDataAdapter(dc)

        Dim ds As DataSet = New DataSet()
        da.Fill(ds, "empinfo")
        GridView1.DataSource = ds.Tables(0).DefaultView
        GridView1.DataBind()

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Redirect("领导进入.aspx")
    End Sub
End Class