ما الخطأ في كود الحفظ - نسخة قابلة للطباعة

ما الخطأ في كود الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=13387)

ما الخطأ في كود الحفظ - فاضل الحمود - 29-09-15

السلام عليكم
وضعت هذا لكود للحفظ ولكنه لايعمل ماهو الخطأ ؟؟؟؟

كود :

If rs.State = adStateOpen Then rs.Close

rs.Open "select * from [pharstore] where [docode]='" & Val(Text8) & "'  "  '"

 rs.Update

If rs.EOF = True Then

rs.AddNew

rs!docode = Text8.Text

rs!doname = Text9.Text

rs!docount = Val(Text5.Text) + Val(Text10.Text)

rs!rebeh = Text11.Text

rs.Update

MsgBox ("Êã ÍÝÙ ÇáÓÌá ÈäÌÇÍ"), 64, ("Program")

End If

RE: ما الخطأ في كود الحفظ - أبو عمر - 29-09-15

rs.update
اللي في اول الكود شيلها وجرب

RE: ما الخطأ في كود الحفظ - فاضل الحمود - 29-09-15

اخي ابو عمر جربت ذلك ولم يعمل جزاك الله خير

RE: ما الخطأ في كود الحفظ - abulayth - 29-09-15

اخي الكريم شيء طبيعي ان لا يقوم بالكتابة انظر الى اول سطر في الكود
If rs.State = adStateOpen Then rs.Close
انت تقوم باغلاق الاتصال بقاعدة البيانات في اول جملة ولا تعيد الاتصال لكي تتم عملية الكتابة مما يؤدي بالتاكيد الى ظهور خطا اثناء التنفيذ
وايضا السبب الاخر الذي ذكره اخي ابو عمر وهو وجود rs.Update في بداية الكود
لذلد ارفق المثال كامل لكي يتم التعديل عليه
يعطيك العافية

RE: ما الخطأ في كود الحفظ - فاضل الحمود - 29-09-15

اخي ابو ليث مشكور على على هذه الملاحظة وهذا هو المرفق

RE: ما الخطأ في كود الحفظ - أبو عمر - 29-09-15

الحفظ يتم عادي بس ان تستعرض جدول اخر
ركز ورتب مشروعك
هذا كود الحفظ
ولا تنسى تحط للجداول فهارس

PHP كود :

If rs.State Then rs.Close
rs.Open "select * from [pharstore] where [docode] like '" & Val(Text8) & "'", DB, 1, 3

If rs.RecordCount = 0 Then _
rs.AddNew

rs!docode = Text8.Text
rs!doname = Text9.Text
rs!docount = Val(Text5.Text) + Val(Text10.Text)
 
rs!rebeh = Text11.Text
 

rs.Update 

RE: ما الخطأ في كود الحفظ - فاضل الحمود - 29-09-15

اخي ابو عمر جزاك الله خير هذا هو المطلوب وأنا أعرف انه لآبد من جدول آخر لأستعراض البيانات وهذا ماسوف اعمله ولكن مايهمني هو تصحيح الكود

اشكرك والشكر موصول لأخي ابو ليث على ما تقدمونه من خدمات ومساعدات