السلام عليكم ممكن حل لي اعادة الترقيم في قاعدة بيانات من نوع اكسس
جربت هذا يقوم بحذف الاضافة من جديد
لا اعرف اين الخطا
كود :
Try
Dim cmdDatabase As New OleDb.OleDbCommand("", con)
con.Open()
cmdDatabase.CommandText = "ALTER TABLE LIST1 DROP CONSTRAINT PrimaryKey"
cmdDatabase.ExecuteNonQuery()
cmdDatabase.CommandText = "ALTER TABLE LIST1 DROP COLUMN ID "
cmdDatabase.ExecuteNonQuery()
cmdDatabase.CommandText = "ALTER TABLE LIST1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
cmdDatabase.ExecuteNonQuery()
con.Close()
DataGridView1.AllowUserToAddRows = False
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
ربي زدني علما