+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] مشكلة ارجو حلها بيجاد الكود المناسب (/showthread.php?tid=14873)
مشكلة ارجو حلها بيجاد الكود المناسب - هيثم الريس - 24-02-16
السلام عليكم
انا يجماعة عملت برنامج ياريت حد يساعدنى فيه
هو برنامج للموظفين بس فية مشكله انه مرفق فى صور مع كل موظف ايه الحل
بمعنى ايه الاكواد المطلبوه لكده انى اضيف صور ACCESS
RE: مشكلة ارجو حلها بيجاد الكود المناسب - Omar 6.0 - 24-02-16
يمكن ذلك من خلال تحويل الصورة الى نص أي
نفتح ملف الصورة و ندخله في فيجوال بيسك من خلال :
كود :
dim s as string
Open App.Path &"\pic.png" for input as #1
s=input$(LoF(1),1)
close #1و ادخالها بشكل عادي في قاعدة البيانات
ملاحظة:إن pic.png هو مثال لاسم الصورة و يمكن إدخال أي صورة باستخدام أداة CommonDialog
RE: مشكلة ارجو حلها بيجاد الكود المناسب - Fantastico - 25-02-16
ويمكنك أيضا تحويل الصورة الى بايت (البيانات الاولية) وتخزينها في عمود نوع بياناته (كائن 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 إتصال سبق تعريفه
RE: مشكلة ارجو حلها بيجاد الكود المناسب - Ahmed_Mansoor - 25-02-16
أهلا أخي الكريم ، شاهد المثال الموجود في هذه المشاركه فيه كل الاكواد اللازمه لعمل ماتريد :
http://vb4arb.com/vb/thread-14874.html