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

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

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

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

عند تشغيل البرنامج ستفهم المطلوب بشكل فوري

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

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

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

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

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

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

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

وشكرا لكم .

(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

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

كود :

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)

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