25-03-15, 07:42 PM
اخي الكريم انت طلبت شرح الفكرة بشكل عام وماذكرته لك هو اكثر ما استطيع قوله عن الامر .. حيلتي الباقية هي بكتابة الكود او ان ارفع لك مثال جاهز (بالمصدر طبعا).
لكن لن اترك الموضوع من دون أثر.
لتحويل صورة الى بيناري
الان لديك المتغير b يحمل الصورة بصيغة بيناري(ان صحت التسمية)
لابد يكون العمود في الجدول من نوع كائن ole
لكن لن اترك الموضوع من دون أثر.
لتحويل صورة الى بيناري
كود :
Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes("path to picture")كود :
Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes("path to picture")
Dim insert As New OleDbCommand("insert into tb(pic) values(@pic)", con)
insert.Parameters.AddWithValue("@pic", b)
con.open()
insert.ExecuteNonQuery()اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

