بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله
أخواني مبرمجي فيجوال بيسك الإصدار السادس والرجاء كل الرجاء من مبرمجين الدوت نت الابتعاد عن هذا الموضوع
كيف أضيف صورة إلى قاعدة بيانات أكسس بواسطة أداة ado ، مع العلم أن تصميم الفاعدة كالآتي:
جدول باسم(tbl_images):
عمود في الجدول باسم (img_num) و نوع البيانات (ترقيم تلقائي) و هو مفتاح أساسي.
عمود آخر في الجدول باسم (image) و نوع البيانات (كائن OLE).
أما تصميم واجهة إضافة الصورة فهي الآتي:
1- أداة ADO مرتبطة بقاعدة البيانات و جدول (tbl_images) ، واسمها adodc1 .
2- أداة TextBox مرتبطة مع أداة ADO وحقل (img_num) بواسطة خاصية data source وdata field واسمها txtImgNum .
3- أداة Picutre مرتبطة مع ADO واسمها pic1.
4- أداة TextBox ويكتب مسار الصورة في هذه الأداة واسم الأداة txt_imgPath، (ليس هناك وقت لاستخدام Command Dialog) .
4- زر عنوانه (حفظ الصورة وعرضها) باسم btnSaveImg
أما كود الزر فهو كالآتي:
dim ObjImage as Object
set ObjImage=LoadPicture(txtImgNum.Text)
Adodc1.recordset.AddNew
Adodc1.recordset![image]=ObjImage
Adodc1.recordset.update
End sub
private sub btnSaveImg_click()
وجزاكم الله خيرا :D
