Text box on a form to show number of records with todays date
Posted on 2006-04-28
A little stuck here, I have a from in VB6 and I want to show the number of records in a table with todays date
Set dbs = New ADODB.Connection
dbs.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\backend.mdb;"
numbertoday.Text = dbs.Execute("SELECT tblholdingdata.date, Count(tblholdingdata.message)") _
& "From tblholdingdata" _
& "GROUP BY tblholdingdata.date" _
& "HAVING (((tblholdingdata.date)=Date()));"
I am probably going the wrong way about this, any ideas?
Thanks in advance