如何获得数据总数?
qhdzh 2003-08-23 02:59:33 我有如下代码,是用来获得总的记录条数。可是不管数据库中有多少数据,总是说是—1条,这该怎么办?
Private Sub Command1_Click()
Dim DB As ADODB.Connection
Dim RB As ADODB.Recordset
Set DB = New ADODB.Connection
Set RB = New ADODB.Recordset
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\st.mdb" & ";Persist Security Info=False;"
DB.Open
Set RB.ActiveConnection = DB
RB.Source = "select * from dbstudent"
RB.Open
'RB.MoveFirst
'RB.Filter = "name line" & "'" & "*" & "'"
Dim aa
aa = RB.RecordCount
End Sub