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
Edited by __avd: Added [code] tags. For easy readability, always wrap programming code within posts in [code] (code blocks).