如何使用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

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

对于此问题，这是列名中包含空格的症状。 如果可能，将该列的名称从“ DelieveryNumber”更改为“ DelieveryNumber”，或者如果是英语，则使用正确的拼写并将其命名为“ DeliveryNumber”。

如果无法更改列名，则必须在SQL中对其进行转义，即使用“ [Delievery Number]”。