[هيثم الريس]

السلام عليكم
انا يجماعة عملت برنامج ياريت حد يساعدنى فيه
هو برنامج للموظفين بس فية مشكله انه مرفق فى  صور مع كل موظف ايه الحل
بمعنى ايه الاكواد المطلبوه لكده انى اضيف صور ACCESS

[Omar 6.0]

يمكن ذلك من خلال تحويل الصورة الى نص أي
نفتح ملف الصورة و ندخله في فيجوال بيسك من خلال :

كود :

dim s as string
Open App.Path &"\pic.png" for input as #1
s=input$(LoF(1),1)
close #1

و ادخالها بشكل عادي في قاعدة البيانات
ملاحظة:إن pic.png هو مثال لاسم الصورة و يمكن إدخال أي صورة باستخدام أداة CommonDialog

[Fantastico]

ويمكنك أيضا تحويل الصورة الى بايت (البيانات الاولية) وتخزينها في عمود نوع بياناته (كائن OLE )

PHP كود :

Dim ms As New System.IO.MemoryStream
        Dim img As Image = PictureBox1.Image
        img.Save(ms, Imaging.ImageFormat.Jpeg)
        Dim buffer As Byte() = ms.GetBuffer 


كذلك تحويل أي نوع من الملفات الى بايت ليتم خزنها في قاعدة البيانات

PHP كود :

Dim pi As Byte() = File.ReadAllBytes("FileName") 


بعد التحويل قم بالحفظ

PHP كود :

com.CommandText = "insert into [TableName](ColumnName) values(@Image)" 
                    com.Parameters.AddWithValue("@Image", pi)
                    conSettings.Open()
                    com.ExecuteNonQuery()
                    conSettings.Close()
                    MsgBox("تم الحفظ") 


حيث أن com إتصال سبق تعريفه

[Ahmed_Mansoor]

أهلا أخي الكريم ، شاهد المثال الموجود في هذه المشاركه فيه كل الاكواد اللازمه لعمل ماتريد :

http://vb4arb.com/vb/thread-14874.html