[عنوان معدل]عرض صورة من قاعدة البيانات داخل picturebox

كود :

Public Class Form5



    Dim ds As New DataSet

    Dim dt As New DataTable("users")

    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

    "Data Source =" & Application.StartupPath & "\cobra.mdb"

    Dim Conn As New OleDbConnection(ConStr)

    Dim DataSet1 As New DataSet

    Dim SQLstr As String = "SELECT * FROM users"

    Dim m As String





    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Static m As Integer = 0

        Conn.Open()

        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

        DataAdapter1.Fill(DataSet1, "users")

        Conn.Close()





    End Sub

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PictureBox4.Load(OpenFileDialog1.FileName)

        End If

    End Sub

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        Select Case ComboBox1.Text



            Case "رقم التعريف"

                On Error Resume Next

    

        

                    Dim MyRows() As DataRow = DataSet1.Tables("users").Select("ID LIKE '%" & Trim(TextBox1.Text) & "%'")

                    Dim FoundRows As DataTable = DataSet1.Tables("users").Clone

                    Dim dr As DataRow

                    For Each dr In MyRows

                        FoundRows.ImportRow(dr)

                    Next



                    DataGridView1.DataSource = FoundRows



                    Dim i As Integer

                    i = DataGridView1.CurrentRow.Index



                    Me.TextBox2.Text = DataGridView1.Item(1, i).Value

                    Me.TextBox3.Text = DataGridView1.Item(2, i).Value

                    Me.TextBox4.Text = DataGridView1.Item(3, i).Value

                    Me.TextBox5.Text = DataGridView1.Item(4, i).Value

                    Me.TextBox6.Text = DataGridView1.Item(5, i).Value

                    Me.TextBox7.Text = DataGridView1.Item(6, i).Value

                    Me.TextBox8.Text = DataGridView1.Item(7, i).Value

                    Me.TextBox9.Text = DataGridView1.Item(8, i).Value

                    Me.TextBox10.Text = DataGridView1.Item(9, i).Value

                    Me.TextBox11.Text = DataGridView1.Item(10, i).Value

                   

                    PictureBox4.DataBindings.Add("image", DataSet1, "users.photo", True).ToString()

                    Me.Button2.Enabled = True

                    Me.Button8.Enabled = True



        End Select

    End Sub

كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim row As DataRow

        row = DirectCast(dt.Select("ID like'%" & "wwww" & "%'").GetValue(0), DataRow)

        PictureBox4.Image = Image.FromStream(New MemoryStream(DirectCast(row("photo"), Byte())))



    End Sub