منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[Acces2010] ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [Acces2010] ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك (/showthread.php?tid=44591)

ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - Tajaldeen - 19-12-22

السلام عليكم ورحمة الله 


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

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



ولكم خالص التحية والشكر 

https://drive.google.com/file/d/1rxqeZ8YINTN8RGnymniFpUXPOlALGGzq/view?usp=share_link


RE: ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - aljzazy - 19-12-22

تم عمل شاشة جديدة اسمها Form2
يوجد بها جميع المطلوب
قمت بالتعديل على قاعدة البيانات وجغلت اسماء الحقول بالانجليزي
ووضعت مفتاح رئيسي للجدول
المشروع بالمرفقات مع التعديل

RE: ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - Tajaldeen - 20-12-22

(19-12-22, 09:11 PM)aljzazy كتب : تم عمل شاشة جديدة اسمها Form2
يوجد بها جميع المطلوب
قمت بالتعديل على قاعدة البيانات وجغلت اسماء الحقول بالانجليزي
ووضعت مفتاح رئيسي للجدول
المشروع بالمرفقات مع التعديل

جزاك الله خير الجزاء 
جعله الله في ميزان حسناتك ... احسنت بارك الله فيك

RE: ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - أبو خالد الشكري - 21-12-22

مرحبا بالجميع
أنا عندي ملاحظتين

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

وشكرا لكم .

RE: ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - Tajaldeen - 21-12-22

(21-12-22, 02:20 AM)أبو خالد الشكري كتب : مرحبا بالجميع
أنا عندي ملاحظتين

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

وشكرا لكم .


جزاك الله خير

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



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

https://drive.google.com/file/d/1sl5cWGdzaNXXlQ-Dv-5eMZFWDTcRBz2D/view?usp=share_link


رسائل الخطأ 
[b] https://ibb.co/brL1Hbx[/b]

الرسالة الثانية 
https://ibb.co/KD7kDM3
(20-12-22, 07:39 AM)Tajaldeen كتب :
(19-12-22, 09:11 PM)aljzazy كتب : تم عمل شاشة جديدة اسمها Form2
يوجد بها جميع المطلوب
قمت بالتعديل على قاعدة البيانات وجغلت اسماء الحقول بالانجليزي
ووضعت مفتاح رئيسي للجدول
المشروع بالمرفقات مع التعديل

جزاك الله خير الجزاء
جعله الله في ميزان حسناتك ... احسنت بارك الله فيك


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



https://drive.google.com/file/d/1sl5cWGdzaNXXlQ-Dv-5eMZFWDTcRBz2D/view?usp=share_link

RE: ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - أبووسم - 24-12-22

ضع الكود التالي في الفورم

كود :
Public Sub ChoosePicture(Pbox As PictureBox)
Dim a As New OpenFileDialog
With a
.AddExtension = True
.CheckPathExists = True
.CheckFileExists = True
.Title = "Choose Image"
.Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
If .ShowDialog = DialogResult.OK Then
PBox.Image = Image.FromFile(.FileName)
End If
End With
End Sub

ثم احذف الكود الموجود في زر استعراض وضع التالي

كود :
ChoosePicture(Pic)


RE: ادراج الصورة في قاعدة بيانات اكسس عن طريق الفيجوال بيسك - Tajaldeen - 25-12-22

(24-12-22, 06:06 PM)أبووسم كتب :
ضع الكود التالي في الفورم

جزاك الله خير اخي ابو وسيم .... ولكن ما زال الخطأ التالي يظهر في الكود الخاص بزر التعديل 


كود :
Public Sub ChoosePicture(Pbox As PictureBox)
Dim a As New OpenFileDialog
With a
.AddExtension = True
.CheckPathExists = True
.CheckFileExists = True
.Title = "Choose Image"
.Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
If .ShowDialog = DialogResult.OK Then
PBox.Image = Image.FromFile(.FileName)
End If
End With
End Sub

ثم احذف الكود الموجود في زر استعراض وضع  التالي

كود :
ChoosePicture(Pic)