تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نسخ بيانات من جدول إلى جدول بشرط
#1
الرجاء المساعدة في تعديل هذا الكود، وهو نسخ بيانات طلبة (انتساب) فقط من جدول (TBL_Student) إلى جدول (TBL_Final)
وذلك اعتماداً على اسم الحقل: 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
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#2
اعلموا أساتذتي الكرام
أنني لست بعجول ملول، ولا ملحاح غير صبور.
ولكنني ابغي في كرمكم الوفير، وخيركم الكثير، والإجابة على سؤالي الصغير وحله عندكم يسير.

للرفع ...
وقفنا الله وإياكم لما فيه الخير لجميع المسلمين.
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
#3
(24-03-20, 04:05 AM)مصمم هاوي كتب : الرجاء المساعدة في تعديل هذا الكود، وهو نسخ بيانات طلبة (انتساب) فقط من جدول (TBL_Student) إلى جدول (TBL_Final)
وذلك اعتماداً على اسم الحقل: 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

PHP كود :
  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 Where Category ='انتساب'"
 
  DoEvents 
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#4
رعاكــــــــ الله ووقاكــــــــــــ أخي الحبيب أمير الزبيدي
هذا هو المطلــــــــــــــوب تماماً
بشركــــــــــــ الله بالقبـــــــــــــول
وأسكنك الجنة مع الرسول (صلى الله عليه وسلم)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 198 09-01-24, 01:05 AM
آخر رد: Taha Okla
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 5 5,258 27-02-23, 03:43 PM
آخر رد: tighrmte

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم