20-11-19, 12:01 AM
السلام عليكم...
حاولت نقل هذا الكود من اكسس اي سيكوال ولكن لم افلح فهل ممكن مساعدة.
وهذه الرسالة تظهر.
حاولت نقل هذا الكود من اكسس اي سيكوال ولكن لم افلح فهل ممكن مساعدة.
وهذه الرسالة تظهر.
كود :
Try
Application.DoEvents()
Dim cmd As New SqlCommand("", con)
con.Open()
'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE customer DROP CONSTRAINT PrimaryKey"
cmd.ExecuteNonQuery()
' ID كود حذف حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE customer DROP COLUMN مسلسل "
cmd.ExecuteNonQuery()
'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه
cmd.CommandText = "ALTER TABLE customer ADD COLUMN مسلسل COUNTER CONSTRAINT [PrimaryKey] Primary key "
cmd.ExecuteNonQuery()
'تغيير نوعية الحقل من ترقيم تلقائي الى رقم
cmd.CommandText = "ALTER TABLE customer ALTER COLUMN مسلسل Long"
cmd.ExecuteNonQuery()
con.Close()
'تحديث قاعدة البيانات
ds.Clear()
DataAdaper.Fill(ds, "customer")
MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")
Catch ex As Exception
con.Close()
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try