以 vb 为单位计算数据库或数据集中有多少条记录

Question

我目前正在做一个项目，我需要知道数据库中的单个表中有多少条记录，因为记录的数量会根据用户的输入而变化。有没有办法编程一个函数来计算出我的数据库的记录数？

这是我目前拥有的代码，它不起作用。

    dbProvider = "PROVIDER=Microsoft.JET.OLEDB.4.0;"
    TheDatabase = "/TeachersData.mdb"
    FullDatabasePath = CurDir() & TheDatabase
    dbSource = "Data Source = " & FullDatabasePath
    con.ConnectionString = dbProvider & dbSource
    con.Open()
    NoOfRecords = "SELECT COUNT(*) FROM Teachers"
    sql = "SELECT * FROM Teachers"
    RecordNumbers = New OleDbDataAdapter(NoOfRecords, con)
    da = New OleDbDataAdapter(Sql, con)
    da.Fill(ds, "TeachersData")
    con.Close()
End Sub
Sub VerifyDetails()
    For i = 0 To Len(RecordNumbers)
        If Initials.Text = ds.Tables("TeachersData").Rows(i).Item(1) Then
            Salt = ds.Tables("TeachersData").Rows(i).Item(3)
        End If
    Next

Answer 1

你对两个 OleDbDataAdapter 造成了一些混淆。您准备了一个具有正确查询(记录编号(的查询，但随后填充另一个查询(da(。
但是你真的不需要任何OleDbDataAdapter。只需执行一个 OleDbCommand

con.Open()
Dim cmd = new OleDbCommand("SELECT COUNT(*) FROM Teachers", con)
Dim count = Convert.ToInt32(cmd.ExecuteScalar())

现在，count 包含"教师"表中存在的记录数。