السلام عليكم ممكن حل لي اعادة الترقيم في قاعدة بيانات من نوع اكسس
جربت هذا يقوم بحذف الاضافة من جديد
لا اعرف اين الخطا
كود :
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()
الكود صحيح وجدت المشكل في الاكسس شكرا للمتابعة
السلام عليكم ورحمة الله وبركاته
عندما تكتب كود برنامج، لا تستخدم فيه Try Catch حتى تنتهي وتتأكد من أن الكود يعمل على أتم وجه
يجب أن تعرف أين تقع الأخطاء وف يأ يجزء من الكود قبل طرح البرنامج للعمل.. لكي تعالجها وتصلح البرنامج قبل عرضه للعمل،
فإذا رأيته يعمل على أتم وجه، قم بإضافة Try Catch للأكواد كي تعرف ما الأخطاء التي سيتحدث عند العميل ..
(28-01-23, 02:37 AM)Taha Okla كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
عندما تكتب كود برنامج، لا تستخدم فيه Try Catch حتى تنتهي وتتأكد من أن الكود يعمل على أتم وجه
يجب أن تعرف أين تقع الأخطاء وف يأ يجزء من الكود قبل طرح البرنامج للعمل.. لكي تعالجها وتصلح البرنامج قبل عرضه للعمل،
فإذا رأيته يعمل على أتم وجه، قم بإضافة Try Catch للأكواد كي تعرف ما الأخطاء التي سيتحدث عند العميل ..
ممكن رد علي استفساري بخصوص صورة
(28-01-23, 02:37 AM)Taha Okla كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
عندما تكتب كود برنامج، لا تستخدم فيه Try Catch حتى تنتهي وتتأكد من أن الكود يعمل على أتم وجه
يجب أن تعرف أين تقع الأخطاء وف يأ يجزء من الكود قبل طرح البرنامج للعمل.. لكي تعالجها وتصلح البرنامج قبل عرضه للعمل،
فإذا رأيته يعمل على أتم وجه، قم بإضافة Try Catch للأكواد كي تعرف ما الأخطاء التي سيتحدث عند العميل ..
كنت أفعل هذا قديما بوضع كود تجاوز الأخطاء مما جعلني لا اعرف سبب الخطأ؛ حتى نبهني اخي العزيز أمير الزبيدي جزاه الله خيرا على هذا الأمر.
بارك الله فيك على المتابعة