找出列中的最大数并加一 (Access & VB.NET)

Question

以下是我的代码：

页面加载

Private Sub frm_addproduct_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        txt_id.Text = generate_id()
    End Sub

生成 ID

Private Function generate_id() As String
        Dim lastid As String = run_sql_query("SELECT MAX(FLD_PRODUCT_ID) AS LASTID FROM TBL_PRODUCTS").Rows(0).Item("LASTID")
        'MsgBox(lastid)
        Dim newid As String = "" & Mid(lastid, 2) + 1
        Return newid
    End Function

我的问题是，当它在 txt_id 文本框内显示 id 时，例如最后一个 id 是 45 它只显示“6”成为“46”。这里缺少什么？

Answer 1

Dim lastId as string = "SELECT MAX(FLD_PRODUCT_ID)+1 FROM tablename. . . ."; Return lastId

或者如果数据库需要一个int，你也可以转换它。

找出列中的最大数并加一 (Access & VB.NET)

Find maximum number in column and add one (Access & VB.NET)

vb.net

ms-access

vb.net-2010