还是用adodb.recordset吧
rstPublishers.Open "publishers", strCnn, , , adCmdTable
rstpublishers.recordcount
rstPublishers.Open "publishers", strCnn, , , adCmdTable
rstpublishers.recordcount
调试欢乐多
如:
Set DB = OpenDatabase(App.Path + "\" + DateBASEName+ ".MDB")
Set RS = DB.OpenRecordset("SELECT * FROM TableA WHERE IDName=" & var& " ")
然后执行RS.MoveLast
Rs.MoveFirst
通过rs2.RecordCount可以获得纪录数。
dim con as connection
Rst=con.excute"select *******"