(28-08-22, 06:34 PM)2003amin كتب : السلام عليكم و رحمة الله و بركاته
اساتذتي الكرام نفس مثال الاخ لكن يكون نقل الجدول بشروط
مثلا :
الجدول 1 : Table1
يحتوي على الحقول التالية
01 Name
02 Number
03 Resulta
يوجد في حقل : Resulta نتائج مختلفة : ناجح مثلا و راسب
اريد نقل الراسبين فقط الى الجدول 2 و قد حاولت كثيرا لكنني فشلت
ربي يجعل جهودكم في صالح اعمالكم
نفس مثال الاخ لكن ببعض التعديلات
وعليكم السلام ورحمة الله وبركاته
ادخل على قاعدة البيانات وامسح الاسطر الفارغة من الجدول الثاني
ثم
خذ هذا الكود وضعه في أمر نسخ البيانات ..
كود :
Dim Rs1 As New ADODB.Recordset
Dim Rs2 As New ADODB.Recordset
' If RS.State = adStateOpen Then RS.Close
Rs1.Open "SELECT * FROM [Table1] Where Resulta ='راسب'", DB, adOpenDynamic, adLockOptimistic 'DB, adOpenStatic, adLockOptimistic
Rs2.Open "SELECT * FROM [Table2] ", DB, adOpenDynamic, adLockOptimistic
If Rs1.RecordCount > 0 Then Rs1.MoveFirst
If Rs2.RecordCount > 0 Then Rs2.MoveLast
Do Until Rs1.EOF
Rs2.AddNew
Rs2![Name] = Rs1![Name]
Rs2![Number] = Rs1![Number]
Rs2![Resulta] = Rs1![Resulta]
Rs2.Update
Rs1.Delete ' اذا كنت لا تريد النقل فقط نسخ - امسح هذا السطر
Rs1.MoveNext
Loop
Show_data
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
