08-03-13, 08:05 PM
لكن اخي الكريم هل لديك الكود الذي يربط الاداة بالجدول؟؟
لاني انهيت المثال وهو كالتالي:
اضف مربع صورة باسمها الافتراضي Picturebox1
ثم زر امر واكتب بحدث النقر click الكود التالي:
لا تنسى فضاءات الاسماء:
بانتظار كود الربط باداة Listview
لكي اعرف الحدث المناسب.
لاني انهيت المثال وهو كالتالي:
اضف مربع صورة باسمها الافتراضي Picturebox1
ثم زر امر واكتب بحدث النقر click الكود التالي:
كود :
Dim pic As New PictureBox pic.Image = PictureBox1.Image
Dim picStream As New MemoryStream
pic.Image.Save(picStream, ImageFormat.Gif)
Dim PicByte As Byte() = picStream.ToArray
Dim cm As New SqlCommand("insert into pic (picname,picbyte) values (@picname,@picbyte)", con)
cm.Parameters.AddWithValue("@picname", SqlDbType.NVarChar).Value = InputBox("اكتب اسم للصورة بحروف")
cm.Parameters.AddWithValue("@picbyte", SqlDbType.VarBinary).Value = PicByte
If con.State = ConnectionState.Closed Then
con.Open()
End If
cm.ExecuteNonQuery()
MsgBox("تم حفظ الصورة")لا تنسى فضاءات الاسماء:
كود :
Imports System.IOImports System.Drawing.Imaging
Imports System.Data.SqlClientبانتظار كود الربط باداة Listview
لكي اعرف الحدث المناسب.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
