17-04-20, 06:56 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
عندى مشكلة فى كود الترقيم التلقائى
حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل ID يظهر الخطأ فى الصورة
السلام عليكم ورحمة الله وبركاته
عندى مشكلة فى كود الترقيم التلقائى
حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل ID يظهر الخطأ فى الصورة
وهذا هو الكود المستحدم فى عمل استعادة الترقيم
كود :
If SQLBindingSource1.Count = 0 Then Beep() : Exit Sub
Application.DoEvents()
Dim cmd As New SqlCommand("", con)
con.Open()
'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE Tab1 DROP CONSTRAINT PrimaryKey"
cmd.ExecuteNonQuery()
' ID كود حذف حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE Tab1 DROP COLUMN ID "
cmd.ExecuteNonQuery()
'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE Tab1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
cmd.ExecuteNonQuery()
'تغيير نوعية الحقل من ترقيم تلقائي الى رقم
cmd.CommandText = "ALTER TABLE Tab1 ALTER COLUMN ID Long"
cmd.ExecuteNonQuery()
con.Close()
'تحديث قاعدة البيانات
SQLDataSet1.Clear()
SQLDataAdapter1.Fill(SQLDataSet1, "Tab1")
DataGridView1.AllowUserToAddRows = False
MsgBox("تم بنجاح استعادة تسلسل السجلات", "نجاح")
ولكم جزيل الشكر مقدماً