تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو وادي العوضي 1 79 06-03-20, 09:38 PM
آخر رد: وادي العوضي
  سؤال: حفظ نتائج الاستعلام في جدول haider kh 0 67 05-03-20, 11:29 AM
آخر رد: haider kh
  [vb6.0] المساعدة في طباعة شريط وزن لقاعدة بيانات محمية بكلمة مرور وادي العوضي 4 153 29-02-20, 12:36 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في طريقة الاتصال بقاعدة بيانات محمية بكلمة مرور وادي العوضي 4 173 22-02-20, 10:47 PM
آخر رد: وادي العوضي
  طلب كواد عرض بيانات المحدده في msflexgrid علي تكس بوكس ahmed20 2 137 20-02-20, 08:17 AM
آخر رد: sendbad100
  تغيير التاريخ اوتوماتيكي في جدول اكسيس Benmouha 5 285 25-12-19, 12:50 PM
آخر رد: Benmouha
  ملء ) جدول موجود بصفحة ويب Benmouha 10 428 14-12-19, 12:51 AM
آخر رد: Benmouha
  كيف يمكن انشاء عمود لقاعدة بيانات جاهزة اثناء التشغيل gonm64 8 343 30-11-19, 11:28 PM
آخر رد: gonm64
Question [vb6.0] هل يمكن استخدم كاميرة الحاسب في تصور الموظفين وحفظ الصورة بقاعدة بيانات برنامجي ؟؟ Microformt 4 899 08-11-19, 09:28 PM
آخر رد: Benmouha
  استفسار : كيف يمكن تغيير إسم جدول ما فى قاعدة بيانات باستخدام البيسيك؟ مبرمج مصرى 3 303 19-10-19, 10:01 AM
آخر رد: مبرمج مصرى

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


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