(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 انقل تعريفه ليكون عام على الفورم.

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

(29-06-18, 09:46 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)

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

تحياتى لك

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

(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)

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

تحياتى لك

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

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

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

(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)

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

تحياتى لك

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

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

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

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

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

تحياتي لك !