[سؤال] ترقيم تلقائي لحقل - نسخة قابلة للطباعة

كود :
' sarfID صرف

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



    cnn.Open()



    Dim cmd As New OleDb.OleDbCommand

    cmd.Connection = cnn



    ' خطوة قراءة اعلى قيمة

    cmd.CommandText = "SELECT MAX(sarfID) FROM [tb]"

    Dim max As Integer = 0

    On Error Resume Next ' احتياط لما يكون ما سطر عشان يقرا قيمه

    max = cmd.ExecuteScalar

    On Error GoTo 0



    ' خطة الاضافه

    cmd.CommandText = "INSERT INTO [tb] ( [fname], [sarfID] ) VALUES ( @fname, @sarfID ) "

    cmd.Parameters.AddWithValue("@fname", TextBox1.Text)

    cmd.Parameters.AddWithValue("@sarfID", max + 1)

    Dim rsult As Integer = cmd.ExecuteNonQuery()



    cnn.Close()



    cmd.Dispose()



    If rsult > 0 Then

        MsgBox("نجاح")

    Else

        MsgBox("فشل")

    End If



End Sub



' gabdID قبض

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



    cnn.Open()



    Dim cmd As New OleDb.OleDbCommand

    cmd.Connection = cnn



    ' خطوة قراءة اعلى قيمة

    cmd.CommandText = "SELECT MAX(gabdID) FROM [tb]"

    Dim max As Integer = 0

    On Error Resume Next ' احتياط لما يكون ما سطر عشان يقرا قيمه

    max = cmd.ExecuteScalar

    On Error GoTo 0



    ' خطة الاضافه

    cmd.CommandText = "INSERT INTO [tb] ( [fname], [gabdID] ) VALUES ( @fname, @gabdID ) "

    cmd.Parameters.AddWithValue("@fname", TextBox1.Text)

    cmd.Parameters.AddWithValue("@gabdID", max + 1)

    Dim rsult As Integer = cmd.ExecuteNonQuery()



    cnn.Close()



    cmd.Dispose()



    If rsult > 0 Then

        MsgBox("نجاح")

    Else

        MsgBox("فشل")

    End If



End Sub



' qaydID قيد

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click



    cnn.Open()



    Dim cmd As New OleDb.OleDbCommand

    cmd.Connection = cnn



    ' خطوة قراءة اعلى قيمة

    cmd.CommandText = "SELECT MAX(qaydID) FROM [tb]"

    Dim max As Integer = 0

    On Error Resume Next ' احتياط لما يكون ما سطر عشان يقرا قيمه

    max = cmd.ExecuteScalar

    On Error GoTo 0



    ' خطة الاضافه

    cmd.CommandText = "INSERT INTO [tb] ( [fname], [qaydID] ) VALUES ( @fname, @qaydID ) "

    cmd.Parameters.AddWithValue("@fname", TextBox1.Text)

    cmd.Parameters.AddWithValue("@qaydID", max + 1)

    Dim rsult As Integer = cmd.ExecuteNonQuery()



    cnn.Close()



    cmd.Dispose()



    If rsult > 0 Then

        MsgBox("نجاح")

    Else

        MsgBox("فشل")

    End If



End Sub