[مبرمج صغير 1]

(13-01-24, 01:05 AM)3sem كتب :

(13-01-24, 12:15 AM)مبرمج صغير 1 كتب :

السلام عليكم ورحمة الله وبركاته

عندي برنامج لحفظ بيانات وإعادة استدعائه

الكود يحفظ الصورة تمام في قاعدة البيانات  ويسترجع البيانات تمام  ماعدا الصورة 

اريد ان يتم عرض الصورة في 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

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

if not isnothing(dt.Rows(0)("pic_mr")) then
Dim myMs As New IO.MemoryStream(ctype(dt.Rows(0)("pic_mr"),byte()))
pic1_mr.Image=image.fromstream(myMs)
end if

           End If
       End Using



الف شكر عمل الكود بنجاح