+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : نسخ بيانات من جدول إلى جدول بشرط (/showthread.php?tid=33955)
نسخ بيانات من جدول إلى جدول بشرط - مصمم هاوي - 24-03-20
الرجاء المساعدة في تعديل هذا الكود، وهو نسخ بيانات طلبة (انتساب) فقط من جدول (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 = TrueRE: نسخ بيانات من جدول إلى جدول بشرط - مصمم هاوي - 24-03-20
اعلموا أساتذتي الكرام
أنني لست بعجول ملول، ولا ملحاح غير صبور.
ولكنني ابغي في كرمكم الوفير، وخيركم الكثير، والإجابة على سؤالي الصغير وحله عندكم يسير.
للرفع ...
وقفنا الله وإياكم لما فيه الخير لجميع المسلمين.
RE: نسخ بيانات من جدول إلى جدول بشرط - مصمم هاوي - 24-03-20
رعاكــــــــ الله ووقاكــــــــــــ أخي الحبيب أمير الزبيدي
هذا هو المطلــــــــــــــوب تماماً
بشركــــــــــــ الله بالقبـــــــــــــول
وأسكنك الجنة مع الرسول (صلى الله عليه وسلم)