在ADODB里的统计记录总数与删除记录？？

Question

运行环境：vb 6.0 + access 2003
代码所在位置 command1 里。dim x,y as Integer
x=记录总数if x<=115 then
   exit if
else
   y=x-115
   movefirst
   删除y条记录
end if请高手们将上面代码中的记录总数和删除y条记录，
修改成代码，并确认可以运行，谢谢！

Answer 1

你用什么方式连接的数据库？是data控件，还是ado控件，还是其他方式？不同的方式，代码不同，建议你还是自己查查资料吧。哪有这么直接要源码的

Answer 2

x1 = .RecordCount
        
For i = 1 To y
      .Delete
       .MoveNext
Next

Answer 3

我是用connection对象来连续的。猴哥，
x1 = .RecordCount运行结果：x1 = -1怎么才可以准确的计算出记录总数。

Answer 4

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.CursorLocation = adUseClient
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             "C:\Documents and Settings\Administrator\My Documents\" & _
             "11.mdb;Persist Security Info=False"
    Set rst = cnn.Execute("select * from itb1")
    x1 = rst.RecordCount