[ENG.MPROG]

بسم الله الرحمن الرحيم

كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing.Image

كود :

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

هذا هو الكود المستخدم مع إضافة السطر الخاص بأخي سعود ..

والكود الخاص بأستاذي sajad فقد استخدمته كالتالي :

كود :

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

ارجو ان اكون قد اوضحت طريقة عملي ..

شكر الله لكم ،،،