السلام عليكم
انا يجماعة عملت برنامج ياريت حد يساعدنى فيه
هو برنامج للموظفين بس فية مشكله انه مرفق فى صور مع كل موظف ايه الحل
بمعنى ايه الاكواد المطلبوه لكده انى اضيف صور ACCESS
يمكن ذلك من خلال تحويل الصورة الى نص أي
نفتح ملف الصورة و ندخله في فيجوال بيسك من خلال :
كود :
dim s as string
Open App.Path &"\pic.png" for input as #1
s=input$(LoF(1),1)
close #1
و ادخالها بشكل عادي في قاعدة البيانات
ملاحظة:إن pic.png هو مثال لاسم الصورة و يمكن إدخال أي صورة باستخدام أداة CommonDialog
ويمكنك أيضا تحويل الصورة الى بايت (البيانات الاولية) وتخزينها في عمود نوع بياناته (كائن 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 إتصال سبق تعريفه