7,762
社区成员
发帖
与我相关
我的任务
分享如何获得数据总数？
我有如下代码，是用来获得总的记录条数。可是不管数据库中有多少数据，总是说是—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
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
...全文
请发表友善的回复…
发表回复
射天狼 2003-08-23
- 打赏
- 举报
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
rs.Open "select * from dbstudent", cn, adOpenStatic, adLockReadOnly
'注意,打开的记录集是 adOpenStatic静态类型,否则就是-1
rs.RecordCount
Dim rs As New ADODB.Recordset
rs.Open "select * from dbstudent", cn, adOpenStatic, adLockReadOnly
'注意,打开的记录集是 adOpenStatic静态类型,否则就是-1
rs.RecordCount
