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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 91 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 209 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  سؤال حول إنشاء جدول بالكود haider kh 0 118 27-08-20, 02:14 AM
آخر رد: haider kh
  سؤال حول إنشاء جدول بالكود haider kh 0 107 27-08-20, 01:57 AM
آخر رد: haider kh
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 178 07-08-20, 09:50 AM
آخر رد: ahmed250
  طلب دمج عمودين وتصميم جدول إحصائيه في MSFlexGrid ahmed250 2 186 07-08-20, 09:49 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 401 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  مشكله في كود اضافه ملف pdf في قاعدة بيانات اكسس وإستدعاءه ahmed250 1 249 03-07-20, 11:23 AM
آخر رد: Ahmed_Mansoor
  مشكلة في اضافة الي قاعدة بيانات اكسس ahmed250 0 229 13-06-20, 10:27 AM
آخر رد: ahmed250
  [vb6.0] مساعدة فى طباعة محتويات جدول aboezzat84 4 394 08-06-20, 10:41 AM
آخر رد: aboezzat84

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


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