[سعود]

اخي الكريم بالنسبة لمشاركتي فحل المشكلة بسيط.

كود :

SearchResultCbB1.Items.Clear()
       Dim mysql As String = "[Fname]='" & SearchTB1.Text & "'"
       myrow = dt.Select(mysql)
       For r As Integer = 0 To myrow.Count - 1
           SearchResultCbB1.Items.Add(myrow(r)(1))
       Next

وضمن حدث SearchResultCbB1_SelectedIndexChanged

كود :

       TextBox4.Text = myrow(sender.selectedindex)(1)
       TextBox5.Text = myrow(sender.selectedindex)(2)
       SearchDateDTP.Value = CDate(myrow(sender.selectedindex)(3))
       Dim pbyte() As Byte = myrow(sender.selectedindex)(4)
       Dim ms As New MemoryStream(pbyte)
       PictureBox2.Image = Image.FromStream(ms)

نسيت ان اقول ان المتغير myrow انقل تعريفه ليكون عام على الفورم.

[ZaerAllail]

(29-06-18, 10:57 PM)سعود كتب : اخي الكريم بالنسبة لمشاركتي فحل المشكلة بسيط.

كود :

SearchResultCbB1.Items.Clear()
       Dim mysql As String = "[Fname]='" & SearchTB1.Text & "'"
       myrow = dt.Select(mysql)
       For r As Integer = 0 To myrow.Count - 1
           SearchResultCbB1.Items.Add(myrow(r)(1))
       Next

وضمن حدث SearchResultCbB1_SelectedIndexChanged

كود :

       TextBox4.Text = myrow(sender.selectedindex)(1)
       TextBox5.Text = myrow(sender.selectedindex)(2)
       SearchDateDTP.Value = CDate(myrow(sender.selectedindex)(3))
       Dim pbyte() As Byte = myrow(sender.selectedindex)(4)
       Dim ms As New MemoryStream(pbyte)
       PictureBox2.Image = Image.FromStream(ms)

نسيت ان اقول ان المتغير myrow انقل تعريفه ليكون عام على الفورم.

تسلم أناملك اخ سعود زادك الله علم وفضل

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

ويبقى طريقة الحفظ حتى يصبح النموذج كاملاً من جميع الجوانب ويستفيد منه كل من يرغب في الإطلاع عليه 

بارك الله فيك يا غالي 

تحياتي لك !

[سعود]

اخي الكريم ...
مثل ما قلت بالاول البيانات موجودة بالداتاتيبل DataTable والبحث بالطريقة التي كتبت لك(تنبيه! لم اطلع على امثلة الاخوة الكرام)
لو تريد اعدل على المثال تعديل جذري للطريقة اللتي اقول ...خبرني و ابشر.

[ZaerAllail]

(29-06-18, 11:25 PM)سعود كتب : اخي الكريم ...
مثل ما قلت بالاول البيانات موجودة بالداتاتيبل DataTable والبحث بالطريقة التي كتبت لك(تنبيه! لم اطلع على امثلة الاخوة الكرام)
لو تريد اعدل على المثال تعديل جذري للطريقة اللتي اقول ...خبرني و ابشر.

عزيزي 
المثال الي أنا وضعته في الأول وإلي عدل عليه الأستاذ الجوكر ولا يهون الجميع عندما تستخدمه وتجرب الحفظ تجد إن الحفظ لا يتم إلا إذا تم إرفاق الصورة وفي حال عدم إرفاقها لا يتم الحفظ 

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

بالنسبة لي انا أضع الحفظ في مرحلتين مرحله بدون صورة ومرحله بصوره وبالتأكيد هناك طرق أفضل !

تقديري لك وللجميع يا غالي!

[elgokr]

(29-06-18, 09:46 PM)ZaerAllail كتب : أخي الفاضل فيه ملاحظه الأن لاحظتها في النموذج بعد تعديلك عليه ويبدوا إنك ما ما اخذت بالك منها لأنه نقاشنا كان عن أمر مختلف 
النموذج يعطيك خيار إضافة صورة لحفظها ولكن المشكله هي إذا ما رفعت صورة أو لا يوجد صورة عند الحفظ تواجه برسالة خطأ تجعل حفظ الصورة إلزامي !
جرب الحفظ ورح تكتشف هالرساله !

كيف يتم حلها برايك ؟

لحل تلك لامشكلة

كل ما عليك فعله التالى

تعال عند السطر الخاص بـ

PHP كود :

Line1: 


اعلى هذا السطر 

كود :

Dim ms As New MemoryStream

قم باضافة الكود التالى

كود :

       If PictureBox1.Image Is Nothing Then
           PictureBox1.Image = Image.FromFile(Application.StartupPath & "\img\non.png")
       End If

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

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

سيقوم البرنامج تلقائي بجعل الصورة الافتراضية وهى خلفية فارغة بيضاء صورة له

قم بتطبيق الامر فى التعديل اذا كان يوجد نفس المشكلة ايضاً

ملحوظة

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

كود :

da = New OleDbDataAdapter("select * From MovTable where NameOfMov = '" & TextBox1.Text & "'", con)

طبعاً تاكد من تعديل اسم الجدول واسم الحقل الخاص بالاسم

تحياتى لك

وتمنياتى لك التوفيق

[ZaerAllail]

(29-06-18, 11:43 PM)elgokr كتب :

(29-06-18, 09:46 PM)ZaerAllail كتب : أخي الفاضل فيه ملاحظه الأن لاحظتها في النموذج بعد تعديلك عليه ويبدوا إنك ما ما اخذت بالك منها لأنه نقاشنا كان عن أمر مختلف 
النموذج يعطيك خيار إضافة صورة لحفظها ولكن المشكله هي إذا ما رفعت صورة أو لا يوجد صورة عند الحفظ تواجه برسالة خطأ تجعل حفظ الصورة إلزامي !
جرب الحفظ ورح تكتشف هالرساله !

كيف يتم حلها برايك ؟

لحل تلك لامشكلة

كل ما عليك فعله التالى

تعال عند السطر الخاص بـ

PHP كود :

Line1: 


اعلى هذا السطر 

كود :

Dim ms As New MemoryStream

قم باضافة الكود التالى

كود :

       If PictureBox1.Image Is Nothing Then
           PictureBox1.Image = Image.FromFile(Application.StartupPath & "\img\non.png")
       End If

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

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

سيقوم البرنامج تلقائي بجعل الصورة الافتراضية وهى خلفية فارغة بيضاء صورة له

قم بتطبيق الامر فى التعديل اذا كان يوجد نفس المشكلة ايضاً

ملحوظة

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

كود :

da = New OleDbDataAdapter("select * From MovTable where NameOfMov = '" & TextBox1.Text & "'", con)

طبعاً تاكد من تعديل اسم الجدول واسم الحقل الخاص بالاسم

تحياتى لك

وتمنياتى لك التوفيق

كل التقدير لك يا غالي كلامك جميل وهالطريقة أعرفها مسبقاً بس كنت أتوقع إنه فيه حل يعطيني الحرية في عدم حفظ صورة تماما مثل التكست إذا رغبت كتابته وحفظه من عدمه !!

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

[elgokr]

(29-06-18, 11:48 PM)ZaerAllail كتب :

(29-06-18, 11:43 PM)elgokr كتب :

(29-06-18, 09:46 PM)ZaerAllail كتب : أخي الفاضل فيه ملاحظه الأن لاحظتها في النموذج بعد تعديلك عليه ويبدوا إنك ما ما اخذت بالك منها لأنه نقاشنا كان عن أمر مختلف 
النموذج يعطيك خيار إضافة صورة لحفظها ولكن المشكله هي إذا ما رفعت صورة أو لا يوجد صورة عند الحفظ تواجه برسالة خطأ تجعل حفظ الصورة إلزامي !
جرب الحفظ ورح تكتشف هالرساله !

كيف يتم حلها برايك ؟

لحل تلك لامشكلة

كل ما عليك فعله التالى

تعال عند السطر الخاص بـ

PHP كود :

Line1: 


اعلى هذا السطر 

كود :

Dim ms As New MemoryStream

قم باضافة الكود التالى

كود :

       If PictureBox1.Image Is Nothing Then
           PictureBox1.Image = Image.FromFile(Application.StartupPath & "\img\non.png")
       End If

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

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

سيقوم البرنامج تلقائي بجعل الصورة الافتراضية وهى خلفية فارغة بيضاء صورة له

قم بتطبيق الامر فى التعديل اذا كان يوجد نفس المشكلة ايضاً

ملحوظة

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

كود :

da = New OleDbDataAdapter("select * From MovTable where NameOfMov = '" & TextBox1.Text & "'", con)

طبعاً تاكد من تعديل اسم الجدول واسم الحقل الخاص بالاسم

تحياتى لك

وتمنياتى لك التوفيق

كل التقدير لك يا غالي كلامك جميل وهالطريقة أعرفها مسبقاً بس كنت أتوقع إنه فيه حل يعطيني الحرية في عدم حفظ صورة تماما مثل التكست إذا رغبت كتابته وحفظه من عدمه !!

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

يوجد حل اخر

وهو عمل كود التحقق عبارة عن

كود :

If PictureBox1.Image Is Nothing Then

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

كود :

Dim cmd As New OleDbCommand("insert into NewTable (id,Fname,Fnation,Fdate) values (@id,@Fname,@Fnation,@Fdate)", con)

واذا كان التحقق سلبى يكون كود الاضافة

كود :

Dim cmd As New OleDbCommand("insert into NewTable (id,Fname,Fnation,Fdate,Fpic) values (@id,@Fname,@Fnation,@Fdate,@Fpic)", con)

وطبعاً يجب ان تجعل الحقل فى قاعدة البيانات غير مجبر على ادخال البيانات

تحياتى لك

وتمنياتى لك التوفيق

[ZaerAllail]

(29-06-18, 11:53 PM)elgokr كتب :

(29-06-18, 11:48 PM)ZaerAllail كتب :

(29-06-18, 11:43 PM)elgokr كتب :

(29-06-18, 09:46 PM)ZaerAllail كتب : أخي الفاضل فيه ملاحظه الأن لاحظتها في النموذج بعد تعديلك عليه ويبدوا إنك ما ما اخذت بالك منها لأنه نقاشنا كان عن أمر مختلف 
النموذج يعطيك خيار إضافة صورة لحفظها ولكن المشكله هي إذا ما رفعت صورة أو لا يوجد صورة عند الحفظ تواجه برسالة خطأ تجعل حفظ الصورة إلزامي !
جرب الحفظ ورح تكتشف هالرساله !

كيف يتم حلها برايك ؟

لحل تلك لامشكلة

كل ما عليك فعله التالى

تعال عند السطر الخاص بـ

PHP كود :

Line1: 


اعلى هذا السطر 

كود :

Dim ms As New MemoryStream

قم باضافة الكود التالى

كود :

       If PictureBox1.Image Is Nothing Then
           PictureBox1.Image = Image.FromFile(Application.StartupPath & "\img\non.png")
       End If

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

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

سيقوم البرنامج تلقائي بجعل الصورة الافتراضية وهى خلفية فارغة بيضاء صورة له

قم بتطبيق الامر فى التعديل اذا كان يوجد نفس المشكلة ايضاً

ملحوظة

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

كود :

da = New OleDbDataAdapter("select * From MovTable where NameOfMov = '" & TextBox1.Text & "'", con)

طبعاً تاكد من تعديل اسم الجدول واسم الحقل الخاص بالاسم

تحياتى لك

وتمنياتى لك التوفيق

كل التقدير لك يا غالي كلامك جميل وهالطريقة أعرفها مسبقاً بس كنت أتوقع إنه فيه حل يعطيني الحرية في عدم حفظ صورة تماما مثل التكست إذا رغبت كتابته وحفظه من عدمه !!

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

يوجد حل اخر

وهو عمل كود التحقق عبارة عن

كود :

If PictureBox1.Image Is Nothing Then

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

كود :

Dim cmd As New OleDbCommand("insert into NewTable (id,Fname,Fnation,Fdate) values (@id,@Fname,@Fnation,@Fdate)", con)

واذا كان التحقق سلبى يكون كود الاضافة

كود :

Dim cmd As New OleDbCommand("insert into NewTable (id,Fname,Fnation,Fdate,Fpic) values (@id,@Fname,@Fnation,@Fdate,@Fpic)", con)

وطبعاً يجب ان تجعل الحقل فى قاعدة البيانات غير مجبر على ادخال البيانات

تحياتى لك

وتمنياتى لك التوفيق

هي هذي الطريقة إلي أنا أستخدمها بإني أجعل الحفظ على مرحلتين مرحله في حال وجود صورة والأخرى إذا لا يوجد صورة 

بس أكيد في طريقة تجعلنا نتجاوز هالخطأ بدون تكرار الكود أو تحميل صوره وهميه تمام مثل إلي يحصل معاك إذا تم الحفظ وتركت تكست بوكس أو إثنين فاضية بدون محتوى !

هذا ما أبحث عنه 

الله يبارك فيك أخي الكريم ويزيدك علم وفضل  

تحياتي لك !

[elgokr]

(29-06-18, 11:57 PM)ZaerAllail كتب : هي هذي الطريقة إلي أنا أستخدمها بإني أجعل الحفظ على مرحلتين مرحله في حال وجود صورة والأخرى إذا لا يوجد صورة 

بس أكيد في طريقة تجعلنا نتجاوز هالخطأ بدون تكرار الكود أو تحميل صوره وهميه تمام مثل إلي يحصل معاك إذا تم الحفظ وتركت تكست بوكس أو إثنين فاضية بدون محتوى !

هذا ما أبحث عنه 

الله يبارك فيك أخي الكريم ويزيدك علم وفضل  

تحياتي لك !

الطريق عديدة وكثيرة ويمكننى كتابة العديد من الطرق لتجنب المشكلة

لكن قبل كل ذلك يجب عليك انت اولاً معرفة لماذا يحدث هذه المشكلة

وسبب تلك المشكلة من المشاكل الاخرى التى قد تواجهنى خلاف ذلك

فعند وضعت الطريقة الاولى وهى وضع صورة فارغة

وهو تجنباً من التعديل على الاماكن الاخرى مثل

عند عرض تفاصيل الاسم / عند تعديل بيانات الاسم الخ

لان المشكلة كلها فى الجزء هنا

كود :

PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)

وليس فى الادخال بقاعدة البيانات

فانا من السهل امرر عمرية التخزين بقاعدة البيانات بـ 0 Byte

لكن تعال كده عند عرض تفاصيل الاسم ستجد ظهور رسالة خطاء بسبب

وجود كود تحويل الـ Byte الى صورة لاستخدامها فى العرض وكذلك عند التعديل

طيب لتخطى المشكلة مع المشاكل التى قد تظهر معى قمت بعمل فكرة الصورة البيضاء بمقاس 5*5 تقريباً

اللى مش هتاخد اى مساحة فى قاعدة البيانات وفى نفس الوقت هتحل المشكلة مع مشاكل اخرى ستظهر 

طيب لو حلينا المشكلة هنا عبارة عن جملة بسيطة 

هتجبر نفسك انك تعدل على كل الاكواد تحص بتحويل الصورة الى Byte ومن الـ Byte الى صورة

يعنى عشان سطر لوضع صورة صنعت اسطر اخرى لتخطى المشاكل فى اماكن اخرى

طيب مثلاً انت عايز الفكرة تكون على وضعها بس بدون وجود مجلد الـ img و الصورة 

ممكن تعمل كود يحول الصورة الـ Byte وتحتفظ بها داخل السورس

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

وبكده هتكون لا يلزم وجود المجلد والصورة بجانب البرنامج وقاعدة البيانات

فكما قلت الحلو والطرق كثيرة

كل ما يتوقف هو الاسهل لك والتى يمكنك التعامل معها

تحياتى لك

وتمنياتى لك التوفيق

[ZaerAllail]

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


بارك الله فيك أخي الفاضل وفي الأخ سعود وكل من أثرانا في هذا المنتدى الجميل بالجميل والمفيد !