I have two tables 1) tblRequests and 2.) tblMainTags. The Fields in tblRequests are Tag_Request_No, Employee_ID , Accepted, Accepted_Date, and Accepted_Time.
The Fields in tblMaintags are Tag_Request_No, Tag_ID, Completed, ... The fields 'Accepted' and 'Completed' are set to YES/NO.
I want to display in a datagridview the two tables joined together and filtered to show only the tblRequests 'Accepted' = YES and tblMainTags 'Completed' =NO. However when I run the Sub below, I don't get an error, but the datagridview only shows headings but no content. The database has plenty of rows in both table that meet the above criteria .
Let me know what I'm doing wrong. It's driving me NUTS!! - Thanks
Sub ReadPendCmplt() 'This sub joins two tables a
Dim dsPendCmplt As New DataSet
Try
dsPendCmplt.Tables().Clear()
connstr.Open() 'Open connection
sql = "SELECT * FROM tblRequests INNER JOIN tblMainTags ON " & _
"tblRequests.Tag_Request_No = tblMainTags.Tag_Request_No " & _
"WHERE Accepted = 1 AND Complete =0"
da = New OleDb.OleDbDataAdapter(sql, connstr)
da.Fill(dsPendCmplt, "PendCmplt")
'Populate DatagridView called dtGdPendCmplt
dtGdPendCmplt.DataSource = dsPendCmplt.Tables("PendCmplt")
'Count and display number of records in datagridview
txtPendCmplt.Text = dtGdPendCmplt.RowCount.ToString
dsPendCmplt.Dispose()
da.Dispose()
connstr.Close()
Catch ex As Exception
msg = MsgBox("The program has encountered an error. " & _
"Do you want to see the full details?", MsgBoxStyle.YesNo, "Error")
If msg = MsgBoxResult.Yes Then
ErrorMsg = ex.ToString
NoticeForm.ShowDialog()
End If
connstr.Close()
End Try
End Sub