تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب التعديل على نموذج البحث
#11
اخي الكريم بالنسبة لمشاركتي فحل المشكلة بسيط.

كود :
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 انقل تعريفه ليكون عام على الفورم.
الرد }}}
تم الشكر بواسطة:
#12
(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 انقل تعريفه ليكون عام على الفورم.

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

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

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

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

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

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

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

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

تقديري لك وللجميع يا غالي!
الرد }}}
تم الشكر بواسطة:
#15
(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)
طبعاً تاكد من تعديل اسم الجدول واسم الحقل الخاص بالاسم

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


الملفات المرفقة
.zip   img.zip (الحجم : 393 بايت / التحميلات : 18)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ZaerAllail
#16
(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)
طبعاً تاكد من تعديل اسم الجدول واسم الحقل الخاص بالاسم

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

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

وزي ما ذكرت قبل شوي أنا أتجاوز هالخطأ لحد الأن بوضع الكود على مرحلتين أحدهم في حال وجود صورة والأخر في حال عدم وجود صورة ولازالت جميعها غير مقنعة حتى ولو  يتم الحفظ من خلالها  ولابد من وجود خيار افضل !
الرد }}}
تم الشكر بواسطة:
#17
(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
#18
(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)

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

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

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

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

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

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

تحياتي لك !
الرد }}}
تم الشكر بواسطة:
#19
(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
#20
بالأكيد الطرق كثيره وأنا لازلت أبحث عن الطريقة التي تهمش الصورة تماما مثلها مثل التكست بوكس وبحول الله سأجدها ولو وجدتها سأضعها في هذا الموضوع وأكمل بها المثال المرفق حتى يكون مكتمل ومفيد بشكل أجمل 
وأتمنى منك لو صادفتك أو وصلت لطريقة أفضل تحقق المطلوب لا تبخل علينا بها لأن القصد من هذا المنتدى هو الفائدة والتجربة والمشاركه 


بارك الله فيك أخي الفاضل وفي الأخ سعود وكل من أثرانا في هذا المنتدى الجميل بالجميل والمفيد !
الرد }}}
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 91 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مطلوب شرح لتقارير DevExpress بلغة vb.net Adel27213 3 322 03-01-24, 12:23 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] البحث Abdellatif 2 208 27-12-23, 03:15 PM
آخر رد: Abdellatif
  [VB.NET] كود التعديل Abdellatif 6 396 21-12-23, 02:01 PM
آخر رد: Abdellatif

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم