[عبـدالله]

تفضل التعديل

PHP كود :

Imports System.Data.OleDb ' استدعاء مكتبة الفيجوال بيسك
Imports System.IO

Public Class Form1

    'كود جملة استدعاء الاكسس 
    Public cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; " & " Data Source = " & Application.StartupPath & "\Data.accdb")

    Dim dt As New DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Loaddt()
    End Sub

    Private Sub Loaddt()
        dt.Clear()
        Dim da As New OleDbDataAdapter("SELECT * FROM [Table1]", cn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.Filter = "imge|*.img;*.bmp;*.png;*.jpg"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim PicName As String = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
            Dim Picimge As String = OpenFileDialog1.FileName
            Savedt(PicName, Picimge)
        End If
    End Sub

    Private Sub Savedt(name1 As String, imge As String)
        Dim cm As New OleDbCommand("INSERT INTO [Table1] ([Name1], [imge]) VALUES (@name1, @imge)", cn)
        cm.Parameters.AddWithValue("@name1", name1)
        cm.Parameters.AddWithValue("@imge", imge)
        If cn.State <> ConnectionState.Open Then cn.Open()
        cm.ExecuteNonQuery()
        cn.Close()
        Loaddt()
        MsgBox("تم حفظ الصورة")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If BindingContext(dt).Position <> -1 Then
            Dim Position As Integer = Me.BindingContext(dt).Position
            PictureBox1.Load(dt.Rows(Position).Item("imge"))
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        End If
    End Sub

End Class