vb.net - 自动更新 ID 标签

Question

我正在我的 Windows 窗体中制作一个标签以自动显示新 ID。我的标签已连接到访问数据库，我想让标签在我的数据库中最后一条 ID 记录之后显示新 ID。例如，最后一条记录是 Movie 表中的“tt0005061”。标签应显示一个新 ID，“tt0005062”。

Public Class Movies_Registration_Form
 Dim index As Integer = 0

Private Sub Movies_Registration_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 showData(index)
End Sub

Public Sub showData(position As Integer)
        conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=1MDb.accdb;Persist Security Info=False;")
        strSQL = "SELECT RIGHT(tconst,7) From Movie ORDER BY tconst DESC"
        cmd = New OleDbCommand(strSQL, conn)
        da = New OleDbDataAdapter(cmd)

        da.Fill(table)
        lblMovieID.Text = "tt" & table.Rows(0)(0).ToString()
    End Sub

标签的输出应该是增量形式，这意味着它应该是我数据库中最后一条记录的 +1。

标签： vb.netwinformsms-access

Answer 1

尝试：

lblMovieID.Text = (Integer.Parse(table.Rows(0)(0)) + 1).ToString("tt0000000")