[0theghost0]

شباب

عندي كود لم يعمل لدي وهو كود حفظ الصورة Data Access 2016

كود :

Me.PicStudent.Image.Save(MemStream, Imaging.ImageFormat.Jpeg)
                   DataPic_Insert = MemStream.GetBuffer()
                   MemStream.Read(DataPic_Insert, 0, MemStream.Length)

                   .Item("StudentPic") = DataPic_Insert

واتمنى افادتي بكود اظهار الصورة لو سمحتم

لدي مشروع راح اتابعه بعد انتهائي من المشروع الى في يدي حاليا

[سعود]

لا ادري هل هناك فرق بين اصدار 2010 و الاكسس الذي لديك لكن هذا الكلاس يعمل

PHP كود :

Imports System.IO

Public Class Form1
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
    Dim dt As DataTable
    Dim da As OleDb.OleDbDataAdapter
    Dim cm As OleDb.OleDbCommandBuilder
    Private Sub fill_dt()
        dt = New DataTable
        da = New OleDb.OleDbDataAdapter("select * from pics", con)
        cm = New OleDb.OleDbCommandBuilder(da)
        da.Fill(dt)
    End Sub

    Private Sub gd()
        fill_dt()
        If dt.Rows.Count = 0 Then Exit Sub
        Dim b() As Byte = Nothing
        b = dt(0)(1)
        Dim ms As New MemoryStream(b)
        PictureBox1.Image = Image.FromStream(ms)
    End Sub

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



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(o.FileName)
        End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Dim dr As DataRow = dt.NewRow
        Dim ms As New MemoryStream
        PictureBox1.Image.Save(ms, Imaging.ImageFormat.Jpeg)
        dr(1) = ms.ToArray
        dt.Rows.Add(dr)
        da.Update(dt)
        gd()
    End Sub
End Class
[align=right][/align] 


ضع زرين ومربع صورة

[0theghost0]

راح اجربه اخي الفاضل انتظر ردي

[0theghost0]

مشكور رحم الله والديك شغال 100%
واذا واجهتني مشكلة راح اضع موضوع للمشكلة