+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23969)
الصفحات:
1
2
نسخ بيانات محددة من جدول إلى آخر - مصمم هاوي - 24-02-18
[/font]
السلام عليكم
هل يتكرم أحد الأساتذة أو الخبراء بالتعديل على هذا المثال الصغير
المطلوب فيه : نسخ بيانات الحقول التالية :
ID - ID_COde - Name_Student
من الجدول Tech_Table إلى الجدول TBL_Exem
فقد تم عملية نسخ البيانات المطلوبة بشكل صحيح في حالة تشابه الجدولين تماماً
ولكن عند اختلاف الجدولين فإنه يتم مسح بيانات حقول الجدول Tech_Table
أو يبقى الجدول الثاني فارغ بدون أن تتم عملية النسخ.
وأنا أريد نسخ بيانات الحقول الثلاثة فقط ... وبقاء بيانات حقول الجدول الآخر
RE: نسخ بيانات محددة من جدول إلى آخر - مصمم هاوي - 24-02-18
هل يتكرم أحد الأساتذة أو الخبراء بالتعديل على هذا المثال الصغير
RE: نسخ بيانات محددة من جدول إلى آخر - مصمم هاوي - 24-02-18
هذا هو المطلوب أستاذي الكبير امير
أسال الله العلي القدير أن يمنَّ عليك بالصحة والعافية
وأن يجزيك الجزاء الحسن في الدنيا والآخرة
RE: نسخ بيانات محددة من جدول إلى آخر - 2003amin - 28-08-22
السلام عليكم و رحمة الله و بركاته
اساتذتي الكرام نفس مثال الاخ لكن يكون نقل الجدول بشروط
مثلا :
الجدول 1 : Table1
يحتوي على الحقول التالية
01 Name
02 Number
03 Resulta
يوجد في حقل : Resulta نتائج مختلفة : ناجح مثلا و راسب
اريد نقل الراسبين فقط الى الجدول 2 و قد حاولت كثيرا لكنني فشلت
ربي يجعل جهودكم في صالح اعمالكم
نفس مثال الاخ لكن ببعض التعديلات
[attachment=28149]
RE: نسخ بيانات محددة من جدول إلى آخر - Taha Okla - 28-08-22
(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
RE: نسخ بيانات محددة من جدول إلى آخر - 2003amin - 28-08-22
بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا
شكرا لك سلفا استاذي الغالي
المرفق
[attachment=28150]
RE: نسخ بيانات محددة من جدول إلى آخر - Taha Okla - 28-08-22
(28-08-22, 09:15 PM)2003amin كتب : بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا
شكرا لك سلفا استاذي الغالي
المرفق
المتغيرات اللي شغلهن جزئي لا تعرفهن خارج أحداثهن - حتى يتم تدميرهن لما ينتهي عملهن - وما يظلوا سبب لمشاكل أنت بغنى عنهن..
أمسح تعريفهن من قسم التعريف العام ..
خذ هذا الكود وانقله عندك -
ولا تنسى تصحيح اسماء الحقول في الجدوال في قاعدة البيانات - أو تصلحهن ضمن الكود ..
لأن الأسماء غير مطابقة للحقول في الجداول بعضهن خطأ..
كود :
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs1.Open "SELECT * FROM [addbook] Where NamEtatLivre ='ضائع'", Cn, adOpenDynamic, adLockOptimistic 'DB, adOpenStatic, adLockOptimistic
rs2.Open "SELECT * FROM [addbookLoste] ", Cn, adOpenDynamic, adLockOptimistic
If rs1.RecordCount > 0 Then rs1.MoveFirst
If rs2.RecordCount > 0 Then rs2.MoveLast
Do Until rs.EOF
rs2.AddNew
rs2![Code] = rs1![Code]
rs2![Name] = rs1![Name]
rs2![auther] = rs1![auther]
rs2![CategorieLivre] = rs1![CategorieLivre]
rs2![publisher] = rs1![publisher]
rs2![yearEntrerLibrary] = rs1![yearEntrerLibrary]
rs2![NamEtatLivre] = rs1![NamEtatLivre]
rs2![Etab] = rs1![Etab]
rs2![AgentLibrary] = rs1![AgentLibrary]
rs2.Update
rs1.Delete ' اذا كنت تريد النقل فقط دون الحذف افسخ هذا الحقل
rs1.MoveNext
LoopRE: نسخ بيانات محددة من جدول إلى آخر - مصمم هاوي - 29-08-22
(28-08-22, 10:41 PM)Taha Okla كتب :(28-08-22, 09:15 PM)2003amin كتب : بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا
شكرا لك سلفا استاذي الغالي
المرفق
المتغيرات اللي شغلهن جزئي لا تعرفهن خارج أحداثهن - حتى يتم تدميرهن لما ينتهي عملهن - وما يظلوا سبب لمشاكل أنت بغنى عنهن..
أمسح تعريفهن من قسم التعريف العام ..
خذ هذا الكود وانقله عندك -
ولا تنسى تصحيح اسماء الحقول في الجدوال في قاعدة البيانات - أو تصلحهن ضمن الكود ..
لأن الأسماء غير مطابقة للحقول في الجداول بعضهن خطأ..
[/code]كود :
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs1.Open "SELECT * FROM [addbook] Where NamEtatLivre ='ضائع'", Cn, adOpenDynamic, adLockOptimistic 'DB, adOpenStatic, adLockOptimistic
rs2.Open "SELECT * FROM [addbookLoste] ", Cn, adOpenDynamic, adLockOptimistic
If rs1.RecordCount > 0 Then rs1.MoveFirst
If rs2.RecordCount > 0 Then rs2.MoveLast
Do Until rs.EOF
rs2.AddNew
rs2![Code] = rs1![Code]
rs2![Name] = rs1![Name]
rs2![auther] = rs1![auther]
rs2![CategorieLivre] = rs1![CategorieLivre]
rs2![publisher] = rs1![publisher]
rs2![yearEntrerLibrary] = rs1![yearEntrerLibrary]
rs2![NamEtatLivre] = rs1![NamEtatLivre]
rs2![Etab] = rs1![Etab]
rs2![AgentLibrary] = rs1![AgentLibrary]
rs2.Update
rs1.Delete ' اذا كنت تريد النقل فقط دون الحذف افسخ هذا الحقل
rs1.MoveNext
Loop
بارك الله فيك أستاذ طه على ردك الذي أعنز به كثيراً
والمشكلة قد أنحلت والحمد لله
RE: نسخ بيانات محددة من جدول إلى آخر - Taha Okla - 29-08-22
(29-08-22, 01:27 AM)مصمم هاوي كتب :أعلم بارك الله فيك ولكن هنا عضو جديد سأل عن مشكلة تشابه موضوع هذه الصفحة.. هذا الرد له على سؤاله ..(28-08-22, 10:41 PM)Taha Okla كتب :(28-08-22, 09:15 PM)2003amin كتب : بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا
شكرا لك سلفا استاذي الغالي
المرفق
المتغيرات اللي شغلهن جزئي لا تعرفهن خارج أحداثهن - حتى يتم تدميرهن لما ينتهي عملهن - وما يظلوا سبب لمشاكل أنت بغنى عنهن..
أمسح تعريفهن من قسم التعريف العام ..
خذ هذا الكود وانقله عندك -
ولا تنسى تصحيح اسماء الحقول في الجدوال في قاعدة البيانات - أو تصلحهن ضمن الكود ..
لأن الأسماء غير مطابقة للحقول في الجداول بعضهن خطأ..
[/code]كود :
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs1.Open "SELECT * FROM [addbook] Where NamEtatLivre ='ضائع'", Cn, adOpenDynamic, adLockOptimistic 'DB, adOpenStatic, adLockOptimistic
rs2.Open "SELECT * FROM [addbookLoste] ", Cn, adOpenDynamic, adLockOptimistic
If rs1.RecordCount > 0 Then rs1.MoveFirst
If rs2.RecordCount > 0 Then rs2.MoveLast
Do Until rs.EOF
rs2.AddNew
rs2![Code] = rs1![Code]
rs2![Name] = rs1![Name]
rs2![auther] = rs1![auther]
rs2![CategorieLivre] = rs1![CategorieLivre]
rs2![publisher] = rs1![publisher]
rs2![yearEntrerLibrary] = rs1![yearEntrerLibrary]
rs2![NamEtatLivre] = rs1![NamEtatLivre]
rs2![Etab] = rs1![Etab]
rs2![AgentLibrary] = rs1![AgentLibrary]
rs2.Update
rs1.Delete ' اذا كنت تريد النقل فقط دون الحذف افسخ هذا الحقل
rs1.MoveNext
Loop
[/code]كود :
بارك الله فيك أستاذ طه على ردك الذي أعنز به كثيراً
والمشكلة قد أنحلت والحمد لله
RE: نسخ بيانات محددة من جدول إلى آخر - مصمم هاوي - 29-08-22
(29-08-22, 01:35 AM)Taha Okla كتب :(29-08-22, 01:27 AM)مصمم هاوي كتب :أعلم بارك الله فيك ولكن هنا عضو جديد سأل عن مشكلة تشابه موضوع هذه الصفحة.. هذا الرد له على سؤاله ..(28-08-22, 10:41 PM)Taha Okla كتب :(28-08-22, 09:15 PM)2003amin كتب : بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا
شكرا لك سلفا استاذي الغالي
المرفق
المتغيرات اللي شغلهن جزئي لا تعرفهن خارج أحداثهن - حتى يتم تدميرهن لما ينتهي عملهن - وما يظلوا سبب لمشاكل أنت بغنى عنهن..
أمسح تعريفهن من قسم التعريف العام ..
خذ هذا الكود وانقله عندك -
ولا تنسى تصحيح اسماء الحقول في الجدوال في قاعدة البيانات - أو تصلحهن ضمن الكود ..
لأن الأسماء غير مطابقة للحقول في الجداول بعضهن خطأ..
[/code]كود :
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs1.Open "SELECT * FROM [addbook] Where NamEtatLivre ='ضائع'", Cn, adOpenDynamic, adLockOptimistic 'DB, adOpenStatic, adLockOptimistic
rs2.Open "SELECT * FROM [addbookLoste] ", Cn, adOpenDynamic, adLockOptimistic
If rs1.RecordCount > 0 Then rs1.MoveFirst
If rs2.RecordCount > 0 Then rs2.MoveLast
Do Until rs.EOF
rs2.AddNew
rs2![Code] = rs1![Code]
rs2![Name] = rs1![Name]
rs2![auther] = rs1![auther]
rs2![CategorieLivre] = rs1![CategorieLivre]
rs2![publisher] = rs1![publisher]
rs2![yearEntrerLibrary] = rs1![yearEntrerLibrary]
rs2![NamEtatLivre] = rs1![NamEtatLivre]
rs2![Etab] = rs1![Etab]
rs2![AgentLibrary] = rs1![AgentLibrary]
rs2.Update
rs1.Delete ' اذا كنت تريد النقل فقط دون الحذف افسخ هذا الحقل
rs1.MoveNext
Loop
[/code]كود :
بارك الله فيك أستاذ طه على ردك الذي أعنز به كثيراً
والمشكلة قد أنحلت والحمد لله
لأنني دخلت عن طريق الجوال لم أنتبه للموضوع جيدا؛ إنه البصر ياسادة ههههههه