0

古いrs.movelastをvb.net2010に使用できるコードのヘルプが必要です。最後を自動的に選択するレコードをクエリする簡単な方法。

これが私の接続サンプルです。私はそれを任意の形式でのみ呼び出します。///

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
4

1 に答える 1

0

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
于 2012-07-07T06:37:00.873 に答える