13-01-24, 12:15 AM
السلام عليكم ورحمة الله وبركاته
عندي برنامج لحفظ بيانات وإعادة استدعائه
الكود يحفظ الصورة تمام في قاعدة البيانات ويسترجع البيانات تمام ماعدا الصورة
اريد ان يتم عرض الصورة في PictureBox تم إعادة تسمية PictureBox1 الى pic_mr
اريد التعديل على الكود ليتم استدعاء الصورة مع البيانات
هذا كود استدعاء عرض البيانات
كود :
If connAccess999.State = ConnectionState.Closed Then connAccess999.Open()
name1_mr.Text = ""
id1_mr.Text = ""
jn1_mr.Text = ""
num1_mr.Text = ""
jeh1_mr.Text = ""
time1_mr.Text = ""
sak_mr.Text = ""
pic_mr.Image = Nothing
Dim CmdSelect As New OleDbCommand
CmdSelect.Connection = connAccess999
CmdSelect.CommandType = CommandType.Text
CmdSelect.CommandText = "Select * from tan where id_mr LIKE '" & TextBox7.Text & "'"
Dim dt As New DataTable
dt.Clear()
dt.Load(CmdSelect.ExecuteReader())
Using dt
If (dt.Rows.Count <> 0) Then
name1_mr.Text = dt.Rows(0)(0).ToString
id1_mr.Text = dt.Rows(0)(1).ToString
jn1_mr.Text = dt.Rows(0)(2).ToString
jeh1_mr.Text = dt.Rows(0)(4).ToString
num1_mr.Text = dt.Rows(0)(3).ToString
End If
End Using