Hi guys, I am trying to show the number of records in my database...
how ever this is not working
Code:Set rs = db.OpenRecordset("SELECT * FROM `Leads` WHERE `CurrentStatus` = " & "'" & opened & "' AND `Agent` = " & "'" & Combo1.Text & "'") Label10.Caption = rs.RecordCount rs.Close
Label10.caption requires a STRING. RS.Recordcount is an INTEGER. You will have to convert it to a STRING (str(rs.recordcount))
No... that's not it at all... it'll do an implicit conversion (it shouldn't have to, you should be doing an explicit conversion, but that's besides the point) but that's not the problem.
Your posts contains two problems. I'll address the first. Saying "this is not working" with out telling us what isn't working does us all a disservice. First it forces us to guess what the problem is, just like dennis did... it also wastes your time reading useless posts like mine. It also wastes our time writing useless posts like this one in an effort to draw out the problem. Do you walk in to the doctor's office and say "it hurts" when they ask you what's wrong? No. Usually you'll go into a story about how you and your friends were biking, you hit a rock, fall off and broke your arm. Just like that's valuable information to the doc, knowing what's wrong with your code is valuable information to us. The fact that the code doesn't work is like saying water's wet. Well Duh... that's obvious... or you wouldn't be posting here. So what does "it doesn't work" mean? Did your toaster suddenly blow up? Did your door fall off the hinges? Did your fingers suddenly fall off? I'm a personal fan of that last one... it's the only thing I can think of for the lack of information in posts like these.
Fortunately, I know what the problem is... you have eels in your hover craft. And even more fortunately, I have a guide in my signature block that explains how to remove those pesky eels.
As for the second problem, I think I suspect what the problem with your code is, but I don't want to waste any more of your time or my time until you can provide more details... for all I know it could be a red herring. Unfortunately I only have a guide for eels, not red herring.
-tg
* I don't respond to private (PM) requests for help. It's not conducive to the general learning of others.-I also subscribe to all threads I participate, so there's no need to pm when there's an update.*
*Proof positive that searching the forums does work: View Thread *
* How to get EFFECTIVE help: The Hitchhiker's Guide to Getting Help at VBF - Removing eels from your hovercraft *
* How to Use Parameters * Create Disconnected ADO Recordset Clones * Set your VB6 ActiveX Compatibility * Get rid of those pesky VB Line Numbers * I swear I saved my data, where'd it run off to??? *
* Use Offensive Programming, not Defensive Programming. * On Error Resume Next is error ignoring, not error handling(tm).
"There is a major problem with your code, and VB wants to tell you what it is.. but you have decided to put your fingers in your ears and shout 'I'm not listening!'" - si_the_geek on using OERN
Try rs.MoveLast and rs.MoveFirst before accessing the RecordCount.
BTW, those ` characters around the table & field names are unnecessary unless they have spaces in them.
Basically when I say it does not work... It means that label11.caption becomes "0"
so it's basically not counting how many records there is.
Thanks
no worries. fixed it.
Did it have to do with cursor location?
I think it is using DAO, been a long time since I have used DAO but I do remember needing to do a move last to get an accurate recordcount back in VB5.
You really should be using ADO rather than the old DAO routines.
yes,Try the following way .Did it have to do with cursor location?
Code:rs.cursorlocation=aduseclient Set rs = db.OpenRecordset("SELECT * FROM `Leads` WHERE `CurrentStatus` = " & "'" & opened & "' AND `Agent` = " & "'" & Combo1.Text & "'") Label10.Caption = rs.RecordCount rs.Close or rs.cursorlocation=aduseclient Set rs = db.OpenRecordset("SELECT * FROM `Leads` WHERE `CurrentStatus` = " & "'" & opened & "' AND `Agent` = " & "'" & Combo1.Text & "'") rs.movefirst rs.movelast Label10.Caption = rs.RecordCount rs.Close
Yea, I didn't notice he was calling OpenRecordset. That sure ins't ADO.
Why don't you just use COUNT(*) if you want to count how many record a recordset returns?
Regards,
™
As a gesture of gratitude please consider rating helpful posts. c",)
FAQ Submissions: ADO Tutorial | Add record to database | Read/write a text file | Read/write to .Ini | Delete a file | Check file existence | One instance of application | Retrieve running processes / Other stuffs: Mouse Hotkey | Compress file using SQL Server! | Global error handler with stack tracing | WPF - Rounded Combobox | WPF - Notify Icon and Balloon | NetVerser - a WPF chatting system
For example:Originally Posted by dee-u
Code:Set rs = db.OpenRecordset("SELECT COUNT(*) AS OpenLeads FROM `Leads` WHERE `CurrentStatus` = " & "'" & opened & "' AND `Agent` = " & "'" & Combo1.Text & "'") Label10.Caption = rs![OpenLeads] rs.Close
Posting Permissions
Reply With Quote