VB.net最後のレコードに移動するには

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