[asemshahen5]

طريقة جميلة لاكن الافضل حذف عامود الترقيم التلقائي و إنشاء عامود جديد .

PHP كود :

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    If DT_CANDIDATE.Rows.Count = 0 Then
        MsgBox("الجدول فارغ من السجلات يتطلب وجود سجل واحد على الاقل", 16 + 524288, "تنبيه")
        Exit Sub
    End If
    If MsgBox("  هل تريد استعادة ترقيم السجلات  " & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "استعادة ترقيم السجلات") = MsgBoxResult.Cancel Then Exit Sub
    Try
        Application.DoEvents()
        Dim cmd As New OleDb.OleDbCommand("", Conne_2019)
        Conne_2019.Open()
        ''ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه  
        cmd.CommandText = "ALTER TABLE TBL_CANDIDATE DROP CONSTRAINT PrimaryKey"
        cmd.ExecuteNonQuery()
        ''ID كود حذف حقل الترقيم التلقائي الي اسمه  
        cmd.CommandText = "ALTER TABLE TBL_CANDIDATE DROP COLUMN CANDIDATE_Id"
        cmd.ExecuteNonQuery()
        ''مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  
        cmd.CommandText = "ALTER TABLE TBL_CANDIDATE ADD COLUMN CANDIDATE_Id COUNTER CONSTRAINT [PrimaryKey] Primary key"
        cmd.ExecuteNonQuery()
        ''تحديث قاعدة البيانات
        DT_CANDIDATE.Clear()
        Conne_2019.Close()
        Dim Da As New OleDbDataAdapter("SELECT * From TBL_CANDIDATE", Conne_2019) ''
        If Conne_2019.State = 1 Then Conne_2019.Close()
        Conne_2019.Open()
        Da.Fill(DT_CANDIDATE)
        MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub