Question

我有以下代码。请帮助我如何获取记录的最后记录。

Dim DteQry As New OdbcCommand
DteQry.CommandText = "select distinct trn_date from order_data order by trn_date asc limit 30;"

Conn.open()
DteQry.Connection = Conn

Dim qryRdr As OdbcDataReader
qryRdr = DteQry.ExecuteReader()

If qryRdr.HasRows() Then

    Dim StartDte = qryRdr.GetValue(0)
    TextBox2.Text = qryRdr.GetValue(0)
    Exit Sub
End If

Answer 1

这个怎么样......

您无法直接从OdbcDataReader获取行数。因此，只需创建dataTable dt并将数据集从阅读器加载到dt。从datatable获取行数，然后您可以获得如下的最后一条记录。

If qryRdr.HasRows() Then                
            Dim dt As DataTable
            dt.Load(qryRdr)
            Dim StartDte = dt.Rows(dt.Rows.Count-1).item(0)
            TextBox2.Text = dt.Rows(dt.Rows.Count-1).item(0)
            Exit Sub
     End If

Answer 2

dim Last_record as integer
Dim tb As DataTable
dim dp = New OleDbDataAdapter("select max(ID) from tb2", cn)
dp.Fill(tb)
If Not IsDBNull(tb.Rows(0).Item(0)) Then Last_record = tb.Rows(0).Item(0)
tb.clear

VB.net如何移动到最后一条记录

2 个答案: