怎样读取记录个数!

Question

大家好!
 我想知道在VB中怎么样能够读取数据库中记录的个数!
  有知道的兄弟帮帮忙

Answer 1

查询
然后myrs.recordcount就是记录数

Answer 2

set rs=createobject("adodb.recordset")
sql="select * from  表名"
rs.open sql,conn,3,3msgbox rs.recordcountrs.close
set rs=nothing

Answer 3

Option Explicit
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Private Sub Form_Load()
    '方法1
    rs.Open "select * from TabName", cn, adOpenStatic, adLockReadOnly, adCmdText
    MsgBox "總記錄數：" + rs.RecordCount
    rs.Close
    Set rs = Nothing
    '方法2
    rs.Open "select count(*) from TabName", cn, adOpenStatic, adLockReadOnly, adCmdText, adCmdText
    MsgBox "總記錄數：" + rs(0)
    rs.Close
    Set rs = NothingEnd Sub
-------------
www.vicmiao.com
努力就有美好時光！

Answer 4

MsgBox "總記錄數：" + cn.Execute("select count(*) from TabName").Fields(0)

Answer 5

方法2　中　
把最後的　,adcmdtext　去掉，多了一個--------
www.vicmiao.com
努力就有美好時光！

Answer 6

我写的代码是这样的 请问哪里错了
 为什么总输出的是5
Dim connstr As String
Dim conn As ADODB.Connection
connstr = "provider=sqloledb;" & "data source=xiaodeng;" & "initial catalog=BookStoreForVB6;" & "password=;" & "user id=sa"
Set conn = New ADODB.Connection
conn.ConnectionString = connstr
conn.Open
Dim rs As ADODB.Recordset
Set rs = conn.Execute("select * from provider")
Dim data As String
data = ""
Do While Not rs.EOF
data = Val(bianma1)
rs.MoveNext
Loop
bianma1 = Str(data + 5)

Answer 7

bianma1源自何处啊
为什么要将data 字符串和数字相加啊
bianma1 = Str(data + 5)????
bianma1 = data & str(5)

Answer 8

用 select count(*) 吧。
最快。