الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي مشكلة في كود الإضافة

مغلق
بدأه مناهل في 26 أبريل 2005 · 11 رد · 1,625 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أعضاء منتدى الفريق العربي للبرمجة

السلام عليكم ورحمة الله وبركاته

عندي مشكلة في كود الإضافة وأريد الحل

وهي عند الضغط على رز جديد يقوم بتفريغ الـtext الموجودة على الفورم

بعد ذلك يتم تعبئة الـtext والضغط على حفظ يقوم بإضافة السجل الجديد على السجل الأول

ويحذف السجل الأول والسجل الأخير يصبح فارغ من قاعدة البيانات

والكود هو

p = Text1.Text
s = "book like " & "'" & p & "'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find s
If Not Adodc1.Recordset.EOF Then
     MsgBox ("ÇáßÊÇÈ ãæÌæÏ ãÓÈÞÇ")
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
     Text4.Text = ""
     Combo1.Text = ""
  Else
     Adodc1.Recordset.AddNew
     Adodc1.Recordset.Fields("book") = Text1.Text
     Adodc1.Recordset.Fields("mo") = Text2.Text
     Adodc1.Recordset.Fields("date") = Text3.Text
     Adodc1.Recordset.Fields("nasher") = Text4.Text
     Adodc1.Recordset.Fields("kind") = Combo1.Text
     Adodc1.Recordset.Update
     MsgBox ("Êã ÅÖÇÝÉ ÇáÓÌá")
     Adodc1.Recordset.MoveFirst
End If
واستخدمنا أداة الado
أرجو المساعدة ضروري
وعااااااااااااااااااااااااااجل

      
تم تعديل هذه المشاركة بواسطة مناهل في 26 أبريل 2005 في 22:01

      

      
    

  

    
    

      
#2
        
        

      
السلام عليكم
الكود تبعك مو واضح  ياريت تنسخي الداله كامله  لاني مافهمت ايش خاصية البحث الي سويتها اول
يمكن انتي تحركي السجلات قبل الاضافه addnew
حاولي انه ماتحركي السجلات
وان شالله يضبط معك

      
      

      
    

  

    
    

      
#3
        
        

      
طيب إيش اللي بيصير معاكي .. 
لو توضحي أكثر عشان نقدر نساعدك ..

      
      

      
    

  

    
    

      
#4
        
        

      
عليكم السلام
الأخ jennya
ايوه يتم تحريك السجلات قبل الإضافة
وبالنسبة لتوضيح الكود هذا الكود بشكل واضح:
p = Text1.Text
s = "book like " & " ' "  &  p
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find s
If Not Adodc1.Recordset.EOF Then 
("الكتاب موجود مسبقاً")MsgBox
"" = Text1.Text 
"" =    Text2.Text 
"" =    Text3.Text 
"" =    Text4.Text 
"" =    Combo1.Text 
                                                  Else
     Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fielde(0)=text1.text
Adodc1.Recordset.Fielde(1)=text2.text
Adodc1.Recordset.Fielde(2)=text3.text
Adodc1.Recordset.Fielde(3)=text4.text
Adodc1.Recordset.Update
     ("تم إضافة الكتابً")MsgBox
     Adodc1.Recordset.MoveFirst
                                                    End If
واللي يصير معي ياأخ shoqi  انه عند تعبئة الـtext والضغط على الكوماند يقول الكتاب موجود مسبقاً ولكن في نفس الوقت يضيفه لقاعدة البيانات و يضيفه على اول سجل ويحذف السجل الاول هذا اذا كانت not مع if موجودة
لكن اذا كانت غير موجودة يقول تم اضافة السجل الى قاعدة البيانات ولكن يضيفه على اول سجل ويحذف السجل الاول حتى ولو كان الكتاب موجود بمعنى انه لا يبحث عن الكتاب بالقاعدة
هذا اللي يصير معي الله يجزاكم خيررررررر ساعدوني محتاجة الكود ضروري جداً لانه عبارة عن مشروع وقرب تسليمة وهو متوقف على كود الإضافه والباقي ان شاء الله خلصناه
بأقرب وقت

      
      

      
    

  

    
    

      
#5
        
        

      
هنا تجدين برنامج صغير وواضح لتسهيل جميع العمليات على ادو من اضافه و حذف و غيره
ارجو ان يحقق الفائده
EasyADO.rar

      
      

      
    

  

    
    

      
#6
        
        

      
السلام عليكم
كان يفترض بك   بعد عملية البحث في السجلات عن طريق 
Adodc1.Recordset.Find s
بعدها تكتبي الشرط كما يلي :
if not Adodc1.Recordset.nomatch then
يعني تقولي اذا مالقي الملف اظهر مسج انه الكتاب موجود مسبقا

      
      

      
    

  

    
    

      
#7
        
        

      
السلام عليكم ورحمة الله وبركاتة :
 تحية طيبة وبعد :
 سأرفق لك مثال يوضح عملية البحث إن شاء الله ..
               تحياتي ........

      
      

      
    

  

    
    

      
#8
        
        

      
jennya كتب:
السلام عليكم
كان يفترض بك   بعد عملية البحث في السجلات عن طريق 
Adodc1.Recordset.Find s
بعدها تكتبي الشرط كما يلي :
if not Adodc1.Recordset.nomatch then
يعني تقولي اذا مالقي الملف اظهر مسج انه الكتاب موجود مسبقا
عليكم السلام
وشلون اذا مالقى الملف يقول ان الكتاب موجود مسبقاً 
مو المفروض اذا مالقى الملف يضيف الكتاب لقاعدة البيانات
واذا لقى الملف يقول ان الكتاب موجود مسبقاً
uncontrolled  شكراً على البرنامج
الغنام شكراً لك لكن متى ترفق الملف
وألف شكر لكل من رد على

      
      

      
    

  

    
    

      
#9
        
        

      
السلام عليكم
أخي jennya عند وضع nomatch يحصل خطأ 
وهو طريقة أو جزء بيانات لم يعثر عليه
أتوقع لان nomatch  تستخدم مع dao وليس ado
اتمنى اجد الحل بسرعة
ولكم جزيل الشكر

      
      

      
    

  

    
    

      
#10
        
        

      
لا يوجد رد  :( 
ابغى الحل بسررررررررعة
الله يجزاكم خير 
انا مستعجلة

      
      

      
    

  

    
    

      
#11
        
        

      
الرجاء وضع الكود ضمن السمة الخاصة به code مع اغلاقها، لانه مع الشكل هذا يصعب قراءة الكود بشكل صحيح
الكود حسب ما اراه فهو صحيح، ويسير بشكل منطقي
هل تقومي بإضافة نجمة في text1 بعد كتابة اسم الكتاب؟ لانها لازمة للإستخدام مع like
ويفضل لو وضعتي المثال مع الجدول الخاص بها، لانه هذا سوف يسهل معرفة الحل

      
      

      
لا تحزن: 
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد. 
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

    

  

    
    

      
#12
        
        

      
بسم الله 
اختي الكريمة 
ان شاء الله ان في كلامي الجواب الشافي ...
شوفي يااختي الكود الاول صح الى جملة 
adodc1.recordset.find s    هذا خطأ (لانه في هذه الجملة سيظهر السجل )   استبدليها بالتالي
adodc1.recordset.filter =s    
بعد الرسالة لا داعي ان تفرغي التكستات(لان addnew   تعمل هذا الشيء تلقائيا) يعني انتقلي الى الكود التالي
Else
adodc1.recordset.movelast       هذا السطر لا بد من عمله (وهويعني ان ينتقل الى اخرسجل ثم يعمل الاضافة بعده.... لانه في حالة عدم وجوده سينتقل الى اول سجل )  حلو  هنا صلب المشكلة 
Adodc1.Recordset.AddNew
الاسطرالاربع  هذه لا أدري ما الداعي لها  :blink:     (ليش انتي مش رابطتهم بالجدول    :wacko:     اذا كان كذه فهذي جريمة   :angry: )
Adodc1.Recordset.Fielde(0)=text1.text
Adodc1.Recordset.Fielde(1)=text2.text
Adodc1.Recordset.Fielde(2)=text3.text
Adodc1.Recordset.Fielde(3)=text4.text
الشيء الاخر لماذا عملتي كود الحفظ هن(adodc1.recordset.update)ا ؟  ألا يوجد زر للحفظ  :blink:    لا بد ان يوضع في زر لوحده (هذا اذا اردتي عمل الاصل في البرامج )
والمشكلة الاكبر عندك هذا الكود 
Adodc1.Recordset.MoveFirst    هو الذي يسبب لك المشاكل لانه بعد كل اضافه ينتقل الى السجل الاول  :unsure:  فلا داعي له على الاطلاق
ان شاء الله ان في ردي ولو مؤشر او طريق للحل  :( 
دعوااااااتك لنا 
المبرمج الطيب  :)

      
تم تعديل هذه المشاركة بواسطة المبرمج الطيب في 27 أبريل 2005 في 19:26

      

      
إذا كان ترك الدين يعني تقدما *****  فيا نفس موتي قبل أن تتقدمي
اعط الفقير سمكة يشبع يوما  * * * *  علمه الصيد يشبع مدى الحياة     
قتل امرئٍ في غابةٍ  *****   جريمة لا تغتفـر
وقتل شعبٍ بأكمله  ******    مسألةٌ فها نظر
حتى الكلاب إذا رأت يوماً فقيراً ماشياً  ***  نبحت عليه وكشرت أنيابها 
الاعجاز العلمي في القرآن والسنة

    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة