i used this code (below) but it have error on this line "dAdapter2.Fill (dSet2, "BPC_EMPLOYEE") "
Code:
Dim ConnectionString As String = "Server=bpc-k2;Database=FIXED ASSET DISPOSAL;Integrated Security=SSPI"
Dim mySQLConn As New SqlConnection(ConnectionString)
mySQLConn.Open()
Dim strSQL2 As String = "SELECT b.name,b.email,b.empid,f.novell,f.empid FROM BPC_EMPLOYEE B,FXAD_VERIFIER F WHERE f.novell='" & loguserid & "' AND f.empid=b.empid"
Dim dAdapter2 As New SqlDataAdapter(strSQL2, mySQLConn2)
Dim dAdapter3 As New SqlDataAdapter(strSQL2, mySQLConn)
Dim dSet2 As New DataSet
Dim dSet3 As New DataSet
dAdapter2.Fill(dSet2, "BPC_EMPLOYEE")
dAdapter3.Fill(dSet3, "FXAD_VERIFIER")
Dim dtable2 As DataTable = dSet2.Tables("BPC_EMPLOYEE")
Dim dtable3 As DataTable = dSet3.Tables("FXAD_VERIFIER")
Dim dRow1 As DataRow
Dim bname, bemail As String
For Each dRow1 In dtable2.Rows
bname = dRow1.Item("NAME")
bemail = dRow1.Item("EMAIL") 'email of logged user
Next
Comment