24-03-20, 04:05 AM
الرجاء المساعدة في تعديل هذا الكود، وهو نسخ بيانات طلبة (انتساب) فقط من جدول (TBL_Student) إلى جدول (TBL_Final)
وذلك اعتماداً على اسم الحقل: Category.
وهذا هو الكود:
وذلك اعتماداً على اسم الحقل: Category.
وهذا هو الكود:
كود :
On Error Resume Next: Err.Clear
'============================================
Dim DB As ADODB.Connection
'============================================
Set DB = New ADODB.Connection
DB.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Dbs & ";" & _
"Persist Security Info=False"
DB.Open
'حتى تتجنب مشكلة الفهارس و تضارب السجلات يفضل
DB.Execute "DELETE * FROM TBL_FinalB" ' افراغ الجدول السابق
DoEvents
' واعادة نسخ البيانات اليه من جديد طبعاً مع التغيرات الجديدة في الجدول المنسوخ منه
DB.Execute "INSERT INTO TBL_FinalB (ID,ID_Code, Name_Student,Clas,CClas,SETNO1,SETNO2,Category)" & _
"SELECT ID,ID_Code, Name_Student,Clas,CClas,SETNO1,SETNO2,Category FROM TBL_Student"
DoEvents
DB.Close
Timer1.Enabled = True