تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نسخ بيانات محددة من جدول إلى آخر
#11
(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 كتب : بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل 
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا 
شكرا لك سلفا استاذي الغالي


المرفق


المتغيرات اللي شغلهن جزئي لا تعرفهن خارج أحداثهن - حتى يتم تدميرهن لما ينتهي عملهن - وما يظلوا سبب لمشاكل أنت بغنى عنهن..
أمسح تعريفهن من قسم التعريف العام .. 

خذ هذا الكود وانقله عندك - 
ولا تنسى تصحيح اسماء الحقول في الجدوال في قاعدة البيانات - أو تصلحهن ضمن الكود ..
لأن الأسماء غير مطابقة للحقول في الجداول بعضهن خطأ..

كود :
 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]
[/code]
كود :
بارك الله فيك أستاذ طه على ردك الذي أعنز به كثيراً
والمشكلة قد أنحلت والحمد لله
أعلم بارك الله فيك ولكن هنا عضو جديد سأل عن مشكلة تشابه موضوع هذه الصفحة.. هذا الرد له على سؤاله ..

لأنني دخلت عن طريق الجوال لم أنتبه للموضوع جيدا؛ إنه البصر ياسادة ههههههه
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Taha Okla , Taha Okla
#12
بارك الله فيك استاذي الكريم . مشكور جدا على تفاعلك و مساعدتك جعل الله اعمالك في ميزان حسناتك 
الحمد لله قبل وصول ردك تمكنت بفضل الله و بمساعدتك في المثال الاول من انجاز المطلوب بشويه تعب و اعصاب لكن الحمد لله انحلت المشكلة كما اني الغيت بعض الاكواد اضفتها لموديل و اشتغل البرنامج هال العال مشكور اخي و استاذي العزيز
الرد }}}
تم الشكر بواسطة:
#13
حاول قد المستطاع ألا تعتمد على متغير عام مهما كانت درجة ضرورته.
وستبقى حينها مستمر بدون مشاكل أو توقفات..
فاستخددام المتغيرات العامة بشكل مستمر يودي إلى تعارض الطلبات واختلاف النتيجة عن المطلوب.
مشكلة صغيرة في متغير عام قد توقف برنامجك عن العمل لشهور وأنت تبحث عن مكان المشكلة..
وفي الاخر تجدها أتفه من أن تقف عندها --
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: مصمم هاوي , مصمم هاوي , سعود
#14
(30-08-22, 04:00 AM)Taha Okla كتب : حاول قد المستطاع ألا تعتمد على متغير عام مهما كانت درجة ضرورته.
وستبقى حينها مستمر بدون مشاكل أو توقفات..
فاستخددام المتغيرات العامة بشكل مستمر يودي إلى تعارض الطلبات واختلاف النتيجة عن المطلوب.
مشكلة صغيرة في متغير عام قد توقف برنامجك عن العمل لشهور وأنت تبحث عن مكان المشكلة..
وفي الاخر تجدها أتفه من أن تقف عندها --

معلومة قيمة
وقد حدث لي هذا واحترت في معرفة الخطأ؛ حتى قمت بحذف المتغيرات العامة فانحلت المشكلة وكنت أظن أن فعلي هذا أيضا خطأ ولكن الآن اسديت لي وغيري معلومة قيمة.
جزيت خيرا وكفيت شرا
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Taha Okla
#15
شكر استاذ انار الله دربك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 5 5,258 27-02-23, 03:43 PM
آخر رد: tighrmte

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


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