易语言数据库问题怎么取mdb表中的记录总数

记录集.取记录数'记录数

数据库连接.执行SQL("delete * from 表")'删除表中所有行

.版本 2

.支持库 eDB

.支持库 iext

记录集1.置连接 (数据库连接1)

记录集1.打开 (“语句”, #SQL语句, )

.计次循环首 (记录集1.记录数量, 计次)

超级列表框_商品.插入表项 (, , , , , )

.计次循环首 (记录集1.字段数量 ＋ 1, 列计次)

记录集1.读文本 (列计次 － 1, 文本)

超级列表框_商品.置标题 (计次 － 1, 列计次, 文本)

.计次循环尾 ()

记录集1.到下一条 ()

.计次循环尾 ()

记录集1.关闭 ()

VB读取Mdb数据库一个表的数据可使用ADO数据对象或ADO数据控件实现。

通过选择“工程”菜单中的“引用...”来为 ADO 对象库添加一个引用，然后在“引用...”对话框中选择 Microsoft ActiveX Data Objects 2.0 Library

点上图确定。工程就引用了ADO。

运行代码示例：

Private Sub Command1_Click()

  Dim cn As New ADODB.Connection '定义数据库的连接

  Dim rs As New ADODB.Recordset '声明一个 Recordset 对象变量

  Dim sql As String

  sql = "select * from jishijilu"

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\wd.mdbPersist Security Info=False"

  cn.Open

  rs.CursorLocation = adUseClient

  rs.Open sql, cn, adOpenDynamic, adLockOptimistic

  Set DataGrid1.DataSource = rs

End Sub

---