如何使用記錄movelast

Question

我需要幫助的代碼，我可以使用舊rs.movelast到vb.net 2010 .. 任何簡單的方法來查詢我的記錄中自動選擇最後..

這裏我的連接樣品我只是把它僅僅以任何形式..///

Public Function ExecuteSQLQuery(ByVal SQLQuery As String) As DataTable 
    Try 
     Dim sqlCon As New OleDbConnection(CnString) 
     Dim sqlDA As New OleDbDataAdapter(SQLQuery, sqlCon) 
     Dim sqlCB As New OleDbCommandBuilder(sqlDA) 
     sqlDT.Reset() ' refresh 
     sqlDA.Fill(sqlDT) 
    Catch ex As Exception 
     MsgBox("Error : " & ex.Message) 
    End Try 
    Return sqlDT 
End Function 

Answer 1

sqlDT.rows（sqlDT.rows.count-1）將是你的DataTable sqlDT的最後一個記錄。 sqlDT.rows.count-1將返回填充表中行的最後一個索引。希望它能幫助你。由於

Imports System.Data.OleDb 

Public Class Form1 

Public CnString As String = "Provider=SQLOLEDB;Data Source=HP-PC\SQLEXPRESS;Persist Security Info=True;Password=sa;User ID=sa;Initial Catalog=Accounts" 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Dim ssql As String = "Select * from TBL_Access" 
    Dim dt As DataTable 

    dt = ExecuteSQLQuery(ssql) 
    TextBox1.Text = dt.Rows(dt.Rows.Count - 1)(0) 'Value of First Column of Last Row of DataTable dt 
    TextBox2.Text = dt.Rows(dt.Rows.Count - 1)(1) 'Value of Second Column of Last Row of DataTable dt 
End Sub 

Public Function ExecuteSQLQuery(ByVal SQLQuery As String) As DataTable 
    Try 

     Dim sqlCon As New OleDbConnection(CnString) 
     Dim sqlDA As New OleDbDataAdapter(SQLQuery, sqlCon) 
     Dim sqlCB As New OleDbCommandBuilder(sqlDA) 
     Dim sqlDT As New DataTable 
     sqlDT.Reset() ' refresh 
     sqlDA.Fill(sqlDT) 
     Return sqlDT 
    Catch ex As Exception 
     MsgBox("Error : " & ex.Message) 
     Return Nothing 

    End Try 
End Function 



End Class