كيف اخزن صوره في قاعدة بيانات

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

إليكى أختى هذا البرنامج البسيط و إن شاء الله يفى بالغرض المطلوب

تحياتى

DBImage.rar

مثال جميل MR.GUITAR

لكن اسمح لي بتبسيط المثال باستخدام ادااة DATA

اولا اختي الكريمة عليك بناء جدول بقاعدة البيانات ولنسمه MY_PIC

يحتوي على الحقول PIC_NAME و PIC

الحقل الاول سنستخدمه لتخزين اسم الصورة والثاني لتخزين الصورة

يرجى مراعاة جعل البيانات داخل حقل PIC من نوع BINARY

وناتي الان للادوات المطلوبة

ثلاث ادوات COMMAND

جديد COMMAND1

حفظ COMMAND2

حذف COMMAND3

اداة PICTURE BOX نسميها P1 على سبيل المثال

اداة TEXTBOX

اداة COMMONDIALOG

بعد ربط اداة DATA1 بقاعدة البيانات

نقوم بجعل مصدر بيانات (( DATA SOURCE )) للادوات = DATA1

وخاصية DATA FIELD للاداة TEXT1 لـ PIC_NAME

والخاصية DATA FIELD للاداة P1 لـ PIC

ناتي لكتابة الاكواد

Private Sub Command1_Click()
Data1.Refresh
Data1.Recordset.AddNew
Dim ez
CommonDialog1.ShowOpen
ez = CommonDialog1.FileName
P1.Picture = LoadPicture(ez)
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

ارجو ان يكون هذا المثال سهل الاستيعاب

شكراً كثيرا للأخوة الذين تكرموا بالرد على سؤالي جزاكم الله خيراً