DaemonSaDiablo
IS-IT--Management
Hi Everyone.
I have a datagrid attached to a adodb control to show a quick report on jobs overdue.
It works great on my system, but everytime I run on another system, I get the error 7005 - Rowset not available.
Any ideas on what I missed?
The code that loads the datagrid is below.
frmKeeperMain.adoDB.ConnectionString = dbConnStr
frmKeeperMain.adoDB.RecordSource = "SELECT ClientTable.ClientName AS Client, JobTable.JobNumber AS [Job Number], JobTable.JobDescription AS [Job Description] FROM ClientTable INNER JOIN JobTable ON ClientTable.ClientName = JobTable.ClientName Where (((JobTable.JobEstComplete) =#" + Format$(Now, "mm/dd/yyyy" + "#) And ((JobTable.JobManager) = '" + strCurrUser + "') AND JobTable.JobCompleted is NULL) ORDER BY ClientTable.ClientName, JobTable.JobNumber;"
frmKeeperMain.adoDB.Refresh
frmKeeperMain.dblJobs.Refresh
If frmKeeperMain.dblJobs.ApproxCount <> 1 Then
frmKeeperMain.dblJobs.Caption = "Jobs Due Today " + Format$(Now, "Short Date" + " - " + CStr(frmKeeperMain.dblJobs.ApproxCount) + " Entries"
Else
frmKeeperMain.dblJobs.Caption = "Jobs Due Today " + Format$(Now, "Short Date" + " - " + CStr(frmKeeperMain.dblJobs.ApproxCount) + " Entry"
End If
frmKeeperMain.dblJobs.Caption = "Jobs Due Today " + Format$(Now, "Short Date" + " - " + CStr(frmKeeperMain.dblJobs.ApproxCount) + " Entries"
I have a datagrid attached to a adodb control to show a quick report on jobs overdue.
It works great on my system, but everytime I run on another system, I get the error 7005 - Rowset not available.
Any ideas on what I missed?
The code that loads the datagrid is below.
frmKeeperMain.adoDB.ConnectionString = dbConnStr
frmKeeperMain.adoDB.RecordSource = "SELECT ClientTable.ClientName AS Client, JobTable.JobNumber AS [Job Number], JobTable.JobDescription AS [Job Description] FROM ClientTable INNER JOIN JobTable ON ClientTable.ClientName = JobTable.ClientName Where (((JobTable.JobEstComplete) =#" + Format$(Now, "mm/dd/yyyy" + "#) And ((JobTable.JobManager) = '" + strCurrUser + "') AND JobTable.JobCompleted is NULL) ORDER BY ClientTable.ClientName, JobTable.JobNumber;"
frmKeeperMain.adoDB.Refresh
frmKeeperMain.dblJobs.Refresh
If frmKeeperMain.dblJobs.ApproxCount <> 1 Then
frmKeeperMain.dblJobs.Caption = "Jobs Due Today " + Format$(Now, "Short Date" + " - " + CStr(frmKeeperMain.dblJobs.ApproxCount) + " Entries"
Else
frmKeeperMain.dblJobs.Caption = "Jobs Due Today " + Format$(Now, "Short Date" + " - " + CStr(frmKeeperMain.dblJobs.ApproxCount) + " Entry"
End If
frmKeeperMain.dblJobs.Caption = "Jobs Due Today " + Format$(Now, "Short Date" + " - " + CStr(frmKeeperMain.dblJobs.ApproxCount) + " Entries"