自动更新 ID 标签答案

【问题标题】：Automatically update an ID label自动更新 ID 标签
【发布时间】：2019-10-29 14:38:03
【问题描述】：

我正在我的 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。

【问题讨论】：

您是否尝试在从数据库检索到的值中加一？
这是我的问题，我不知道该怎么做...
假设 value 是 string 类型（因为你在 value 上使用 RIGTH 方法），但只包含数字，然后将 string 转换为 int，加一并以你需要的方式格式化结果显示
你能帮我写代码吗？我是 Visual Basic 的新手 ^_^!!
对不起，我不能为你写代码，这是你的工作；）。但我很乐意为您提供建议。例如google 1.如何将字符串解析为整数，2.如何将整数转换/格式化为带有前缀零（左侧的零）的字符串

标签： vb.net winforms ms-access

【解决方案1】：

尝试：

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

【讨论】：