自动递增ID

时间:2012-07-11 01:13:40

标签: vb.net textbox

我想在vb.net中创建自动增量编号,如: -

01, 02, 03, 04 

等..所以它是有序的。

我使用VB NET 2008连接OleDb到MS Access。

会出现此错误

  

未为类型“DBNull”定义运算符“+”并键入“整数”

如果我在表中有空记录。但是当我在表格中至少有一条记录

时,它正在工作

这是我的代码

Try
    cmd = New OleDbCommand(" SELECT MAX(sampleID) FROM 1BK ", cnnOLEDB)
    Dim dr As OleDbDataReader = cmd.ExecuteReader
    If dr.Read Then
        TextBox1.Text = dr.Item(0) + 1
    Else
        TextBox1.Text = "20120701"
    End If
Catch ex As Exception
    MsgBox(ex.Message)
End Try

1 个答案:

答案 0 :(得分:0)

这可能是因为dr.Item(0)为空,无法添加。我会先检查以确保dr.Item(0) != null,然后再添加。如果为null,请创建TextBox1.Text = [YOURSTARTERVALUE];