vba 如何查找符合条件的acce 记录数 到一个变量

来源:百度知道 编辑:UC知道 时间:2024/05/08 00:52:42
Dim Cnn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset

Dim i As Integer
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\工资\gz.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "select * from TIGER where TT='" & Label3.Caption & "'", Cnn, 1, 3
MSGBOX"符合条件的记录共 条"
....

Rs.Open "select * from TIGER where TT='" & Label3.Caption & "'", Cnn, 3, 3
dim sum as integer
sum=rs.recordcount
MSGBOX "符合条件的记录共" & sum & "条"

select count(*) as sum from TIGER where TT='" & Label3.Caption & "'
MSGBOX"符合条件的记录共"&sum&"条"