Question

请问VB中用access数据库，datagrid表中行数如何统计

我用以下代码
Text.Text = DataGrid1.VisibleRows - 1
但是为什么每回显示都是14个，我想要显示数据库中的数量，谢谢
图书管理系统中，我想得到datagrid中数据的行数，也就是借出的图书在datagrid中显示出来，希望text中显示借出书的数目，即在text中显示datagrid的数量

Answer 1

var selectedRow
var tempCount
var rCount
tempCount=1000
selectedRow=dg.selectedindex

dg.selectedindex=tempCount
rCount=dg.selectedindex+1

dg.selectedindex=selectedRow

rCount就是总行数，因为Index是从0开始的，故此要加一。
tempCount设置是一个默认比行数多的数

Answer 2

Dim adocn As New ADODB.Connection
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
Dim rs As New ADODB.Recordset
sql = "select * from 表名"
rs.Open sql, adocn, adOpenStatic, adLockOptimistic
msgbox rs.RecordCount
adocn.Close

追问

图书管理系统中，我想得到datagrid中数据的行数，也就是借出的图书在datagrid中显示出来，希望text中显示借出书的数目，即在text中显示datagrid的数量

追答

像我那查询代码，是这样的，可以实现你的要求
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=数据库.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表名 where 字段名 like '" & 查询的关键字 & "' "
Adodc1.Refresh
MsgBox "共有" & Adodc1.Recordset.RecordCount & "个数据"
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh