VB.NET遍历无法读取Access数据库全部记录问题求助

我来帮你排查这个诡异的问题——明明统计出来的记录数是97条，但最后一条记录的ID却不是数据库里的97而是95，这确实挺挠头的。结合你的代码和描述，我整理了几个最可能的原因和对应的解决办法：

1. 核心问题：查询结果的顺序和你看到的Access界面顺序不一致 #

Access数据库的表在界面显示时，可能默认用了某个自定义排序（比如你手动拖动过记录调整顺序），但当你用SELECT * FROM [DBKandidati]查询时，数据库返回的记录顺序是存储的物理顺序，不一定和你界面看到的一致。也就是说，你以为的最后一条记录（ID97），在查询结果里可能排在中间位置，而ID95才是结果集的最后一行。

解决办法：强制指定排序规则 #

修改你的SQL查询语句，明确按ID字段排序，确保结果集是按ID从小到大（或从大到小）排列的：

' 假设你的ID字段名是IDK，按升序排序，这样最后一条就是最大的ID
Dim OLEDBString As String = "Select * FROM [DBKandidati] ORDER BY IDK ASC"

如果想直接获取最大的ID，也可以用更高效的查询：

Dim OLEDBString As String = "SELECT TOP 1 * FROM [DBKandidati] ORDER BY IDK DESC"

2. 确认数据库里的记录确实存在 #

有时候我们可能会被Access的视图误导——比如你可能打开了一个筛选后的表视图，以为ID97存在，但实际上这条记录可能被误删，或者ID值有重复。

验证步骤： #

打开你的Access数据库，直接执行SQL查询：

SELECT * FROM [DBKandidati] ORDER BY IDK DESC

看看返回的第一条记录是不是ID97，确认这条记录确实存在且没有被隐藏或过滤。

3. 用DataReader直接验证读取结果 #

为了排除DataTable填充时的潜在问题，你可以用OleDbDataReader直接读取数据库，绕开DataTable的封装，看看能不能拿到正确的最后一条记录：

Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBKand & "; Persist Security Info=False;")
cn.Open()
' 直接查询最大的ID记录
Dim cmd As New OleDbCommand("SELECT TOP 1 IDK FROM [DBKandidati] ORDER BY IDK DESC", cn)
Dim maxID As Object = cmd.ExecuteScalar()
If maxID IsNot DBNull.Value Then
    MsgBox("数据库中最大的ID是：" & maxID.ToString())
End If
cn.Close()

如果这个查询能返回97，说明问题出在DataTable的遍历或填充逻辑上；如果还是返回95，那就要仔细检查数据库里的记录了。

4. 检查数据类型匹配问题 #

如果你的ID字段是数字类型（比如Integer），虽然用ToString()一般不会有问题，但可以尝试直接读取数字类型，避免隐式转换的潜在问题：

' 假设ID字段是Integer类型
Dim lastID As Integer = CInt(dtb.Rows(numberOfRecords - 1)(0))
MsgBox(lastID)

内容的提问来源于stack exchange，提问作者Jovica