26-01-18, 09:36 PM
السلام عليكم ورحمة الله وبركاته
لدي مشروع على vb.net 2010 وقاعدة البيانات sql وأضفت له خاصية الماسح الضوئي وهذا كود الحفظ بقاعدة البيانات
طبعا الكود يحفظ بقاعدة البيانات لكن ممكن احد يفيدني بكود عرض الصوره في PictureBox
لدي مشروع على vb.net 2010 وقاعدة البيانات sql وأضفت له خاصية الماسح الضوئي وهذا كود الحفظ بقاعدة البيانات
كود :
If sLab.TextBox3.Text = "" Then
MsgBox("أدخل رقم الهويه")
End If
Dim ms1 As New MemoryStream()
Dim arrimg() As Byte = ms1.GetBuffer
ms1.Close()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
connSQLServer.Open()
Dim sqlc As New SqlCommand
sqlc.Connection = connSQLServer
sqlc.CommandText = " Update ERFile_Tab set pt1=@pt1 where ns_pat=@ns_pat2 "
sqlc.Parameters.Add(New SqlParameter("@pt1", SqlDbType.Image)).Value = ms1.ToArray()
sqlc.Parameters.Add("ns_pat2", SqlDbType.Int).Value = sLab.Label6.Text
sqlc.ExecuteNonQuery()
connSQLServer.Close()
MsgBox("تمت الاضافة بنجاح")
طبعا الكود يحفظ بقاعدة البيانات لكن ممكن احد يفيدني بكود عرض الصوره في PictureBox