16-04-17, 07:42 AM
تفضل التعديل
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
