VB6查询access，怎么得到查询结果共有多少条记录？
循环判断每条查询结果是不是最后一条？求详细代码。
Adodc1.Recordset.MoveNext是关键，再用个变量循环+1，最后就是条数了。
最新回答
风微甜
2025-03-01 14:10:18
Set rs1 = CreateObject("ADODB.Recordset")
mycon1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=你的数据库文件名;pwd=数据库密码"
或:
mycon1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库文件名;Jet OLEDB:Database Password=数据库密码"
Set rs1.ActiveConnection = mycon1
rs1.Open "select * from 你的表", mycon1, 1, 3
RecordCount = rs1.RecordCount
Do While Not rs1.EOF '当EOF时跳出循环
执行代码
rs1.MoveNext
Loop
rs1.Close
尘烟染暮雪
2025-03-01 10:06:10
Private Sub Command1_Click()
Print Adodc1.Recordset.RecordCount
End Sub
查找是不是最后一条
Do
If Not Adodc1.Recordset.EOF Then '如果不是最后一条记录，则移到下一条记录
Adodc1.Recordset.MoveNext
Else
MsgBox "最后一条结果“"
Exit Do
End If
Loop
容嬷嬷的春天
2025-03-01 11:31:59
If EmployeeID<>"" Then sql=sql&" EmployeeID="&EmployeeID&" AND"
If TitleOfCourtesy<>"" Then sql=sql&" TitleOfcourtesy=''"&TitleOfCourtesy&"'' AND"
If FirstName<>"" Then sql=sql&" FirstName like ''%"&FirstName&"%'' AND"
If LastName<>"" Then sql=sql&" LastName like ''%"&LastName&"%'' AND"
If Title<>"" Then sql=sql&" Title like ''%"&Title&"%'' AND"
If City<>"" Then sql=sql&" City like ''%"&City&"%'' AND"
if right(sql,5)="WHERE" then sql=left(sql,clng(len(sql))-5) ''解决所有参数都为空的情况
if right(sql,3)="AND" then sql=left(sql,clng(len(sql))-3) ''去掉参数最后的and
sql=sql&" ORDER BY EmployeeID DESC"
寄信给风
2025-03-01 13:07:32
if(rs.bof)
判断是不是表头
if(rs.eof)
判断是不是表尾
其中rs是记录集
热门标签
