[[Template core/front/global/updateWarning is throwing an error. This theme may be out of date. Run the support tool in the AdminCP to restore the default theme.]]
حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل 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("تم بنجاح استعادة تسلسل السجلات", "نجاح")
تم النشر منذ
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
عندى مشكلة فى كود الترقيم التلقائى
حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل ID يظهر الخطأ فى الصورة
وهذا هو الكود المستحدم فى عملى استعادة الترقيم
ولكم جزيل الشكر مقدماً
شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه