عودة مع مشكلة الصورة وإضافتها لقاعدة البيانات

أخوي الخطأ الجديد اللي يطلع لك هذا ماله علاقه بكود الصور ... و حملت المثال اللي انا رفعته لك و اشتغل بشكل طبيعي من جديد

انت عملت تغيير في قاعدة البيانات أو في ال Index الخاص فيها أو تغيير العلاقات او ال Primary Key و لهذا السبب طلعت لك هالمشكله .

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

حاضر هاراج القاعدة تانى واقولك النتيجة

اخى الفاضل iProgrammer

فضلا وليس امرا

قم بحذف جملة On Error Resume Next الموجودة فى بداية كود الحفظ

وسيظهر لك الخطأ الذى اتحدث عنه عند حفظ البيانات

بشرح لك بشكل مبسط , المؤشر في قاعدة البيانات أصبح تائهه يعني ضايع مايدري وين هو واقف و لا وين راح يروح , كل ما تضغط على زر جديد راح يعطيك نفس القيمه 12 للحقل CODE و كل ما تجي تحفظ راح يكتشف ان في رقم 12 محفوظ من قبل و لهذا السبب يعطيك إعتراض لان شي منطقي ان حقل Primary key ما يقبل رقم متشابهه مرتين .

أول شي في زر جديد :

1- شيل الكود التالي

text1 = rs.recordcount + 1

و حط هذا الكود (بالنسبه لي أفضل و أدق لا أكثر و لا أقل) و ممكن ما تحطه اذا ما تحب.

rs.MoveLast
Text1.Text = rs!code + 1

2- في فتح السجل rs في الـ Public sub ضيف السطر اللي قبل فتح الجدول

Public Sub OpenTable()
If rs.State = adStateOpen Then rs.Close
	rs.CursorLocation = adUseClient
	rs.Open "[gen] ", db, adOpenKeyset, adLockPessimistic
End Sub

هنا انت تكون حددت وين مكان الجدول قبل ما تفتحه.

3- اذا المستخدم ضغط زر جديد ... في نفس الكود في طلب لاجراء الـ Form_load و راح يظهر اعتراض اكيد يقولك ان ImageStream مفتوح و عشان ما يظهر هالخطأ ضيف الكود التالي في الـ Form_Load

If ImageStream.State = adStateOpen Then ImageStream.Close
ImageStream.Type = adTypeBinary
ImageStream.Open

4- إحذف كل البيانات في قاعدة البيانات .. هي كانت للتجارب فماراح يضرك حذف 10 سجلات , أو على الاقل احذف السجلات الأخيره الى السجل رقم 4 .. يعني بيكون الباقي فقط 1,2,3,4> (احذف من قاعدة البيانات نفسها)

5- الآن افتح البرنامج و جرب اضافه سجل جديد .. و كرر العمليه أكثر من مره .. سكر البرنامج و رد افتحه و ضيف سجل من جديد و جرب عدل في سجل و جرب احذف سجل و من ثم ضيف سجل و هكذا .. بمعنى جرب كل الازرار بالاخص جديد - حفظ - تعديل .

اذا ما طلع لك أخطاء فيهم تكون خلاص انتهيت من هذي الازرار

و أخوي قبل ما تبدأ بأي برنامج إمسك ورقه و قلم و خطط للبرنامج و أهم أهداف البرنامج و ميزات البرنامج و بعدها تبدأ تبرمج على هذا الاساس , مثل هالبرنامج بسيط جداً لو انت بسطته , إنت مستخدم متغيرات كثيره مالها داعي, و أنا آسف لا تفهمني غلط بس أيضا ماراح أجامل, البرنامج سهل و بسيط و لكن صعب فهم برمجته و الاكواد و المتغيرات و وظيفتها مثلا انت عامل 11 متغير سجلات لأجل جدول 1 !! هذا شي ماهو منطقي نهائيا, حاول تبسط الامور عزيزي و الكل هنا موجود للمساعدة و لتقديم النصائح .

بالتوفيق باذن الله ... و اذا ظهر أي مشكله جديده موجودين لمساعدتك :)

اخى الفاضل iProgrammer

اسف على التاخير فى الرد عليك ولكن اعذرنى مشاكل ومشاغل الدنيا

اشكرك على البرنامج فقد اصبح يعمل بصورة ممتازة

شاكر لك مساعدتك لى التى لا اقدرها بثمن ولااستطيع سوى ان اقول جزاك الله خيرا

وبالنسبة لقولك انى استخدم متغيرات كثيرة ما لها داعى

فأود ان اعلمك ان ما رفعته لك فى المثال الذى تفضلت بالتعديل عليه هو جزء من برنامجى وبالتالى فالمتغيرات الموجودة لها داعى

هذا للعلم فقط

هناك مسألة اخرى تتعلق بالطباعة

ولكن سأدرجها فى موضوع جديد وأرجو ان تساعدنى حضرتك فيه لما لمسته فيك من سعة صدر وقدر وافر من العلم ارجو من الله ان يزيدك فيه ويرفع به درجاتك

ولك جزيل الشكر والتحيات التى اقدمها لك على استحياء