بسم الله الرحمن الرحيم
كود :
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
ارجو ان اكون قد اوضحت طريقة عملي ..
شكر الله لكم ،،،
