如何使用vb.net在ms-access数据库中生成自定义的自动编号

Question

Public Sub CustomID()
    con.Open()
    sql = "SELECT Max(Right(Delievery Number,4)) As Delievery Number From tbl_monitoring " '[Delievery Number] From tbl_monitoring
    command = New OleDbCommand(sql, con)
    reader = command.ExecuteReader
    reader.Read()
    If Not reader.HasRows Or IsDBNull(reader.Item("Delievery Number")) Then
        txtDel.Text = "Del" & "0001"
    Else
        Dim Idnew As Integer = CInt(reader.Item("Delievery Number"))
        Idnew += 1
        txtDel.Text = "Del" & Idnew.ToString("0000")
    End If
    reader.Close()
End Sub

Answer 1

我首先要指出，如果您手动生成它，它不是一个自动数字。

至于这个问题，这是列名中有空格的症状。如果可能，请将该列的名称从"Deliever Number"更改为"DelieveryNumber"，或者，如果是英文，请使用正确的拼写并将其命名为"DeliveryNumber"。

如果不能更改列名，则必须在SQL中对其进行转义，即使用"[Deliever Number]"。