25-02-15, 04:40 PM
(آخر تعديل لهذه المشاركة : 25-02-15, 04:41 PM {2} بواسطة احمد عبد الحكيم.)
بسم الله الرحمن الرحيم
السلام عليكم شباب
عند برمجة زر الترقيم التلقائي والضغط عليه تظهر لى رساله
وايضا يقوم بالغاء المفتاح الرئيسى
وهذا هو كود الترقيم التلقائى
السلام عليكم شباب
عند برمجة زر الترقيم التلقائي والضغط عليه تظهر لى رساله
وايضا يقوم بالغاء المفتاح الرئيسى
وهذا هو كود الترقيم التلقائى
PHP كود :
If DataSet1.Tables("dri").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("", Con)
Con.Open()
cmd.CommandText = "ALTER TABLE dri DROP CONSTRAINT PrimaryKey"
cmd.ExecuteNonQuery()
cmd.CommandText = "ALTER TABLE dri DROP COLUMN driID"
cmd.ExecuteNonQuery()
cmd.CommandText = "ALTER TABLE dri ADD COLUMN driID COUNTER CONSTRAINT [PrimaryKey] Primary key"
cmd.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "dri")
Con.Close()
MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")
Catch ex As Exception
MessageBox.Show(ex.Message, "هناك خطأ ما", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try