| | | Join Date: Mar 2010
Posts: 7
| |
i used this code (below) but it have error on this line "dAdapter2.Fill(dSet2, "BPC_EMPLOYEE")" - 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
|
