如何使ACCESS的记录个数显示在TEXT里呢
如何使ACCESS的记录个数显示在TEXT里呢?
在ACCESS里的自动编号好象并不能显示实际统计数字呢?
Dim Db As Database
Dim Rs As Recordset
Set Db = OpenDatabase(数据库)
Set Rs = Db.OpenRecordset(表)
if rs.RecordCount <>0 then rs.movefirst
text1.text=rs.recordcount
set rs=nothing
set db=nothing
