I use tipical ado con.
I have my_var1=”tablename” and my_var_2=”my_filed_name”
How to count only filled records in table = my_var1 in field = my_var_2
Note:
i can have in a fields a milions of records…
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » COUNT not blank records in a single field
You could do something like this:
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim lngCount As Long
Set cnn = …
strSQL = “SELECT Count(*) As Cnt FROM [” & my_var1 & “] WHERE [” & my_var_2 & ] Is Not Null”
rst.Open strSQL, cnn, , adLockOptimistic, adCmdText
lngCount = rst!Cnt
rst.Close
Set rst = Nothing
You could do something like this:
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim lngCount As LongSet cnn = …
strSQL = “SELECT Count(*) As Cnt FROM [” & my_var1 & “] WHERE [” & my_var_2 & ] Is Not Null”
rst.Open strSQL, cnn, , adLockOptimistic, adCmdText
lngCount = rst!Cnt
rst.Close
Set rst = Nothing
EXCELLENT!
but is the fasted method?
I want use the same code but with sql server (with ADO con) existis a fasted method for this type of database?
Using SELECT Count(*) is quite fast.
For SQL Server, you could create a pass-through query, see Come creare una query SQL pass-through in Access.
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.
Notifications