[ZaerAllail]

فضلا يا أخوان ما هو الكود الخاص بإضافة الصورة في الداتا بيس من خلال أداة pictureBox في النموذج مع شرح بسيط إن أمكن ؟
وكل عام وأنتم بخير

[elgokr]

بما انك محتاج الى شرح مبسط

فاليك هذا الفيديو

سيكفى بكل ما تريده

https://www.youtube.com/watch?v=Myiq2m2wpJY

تحياتى لك 

وتمنياتى لك التوفيق

[سعود]

PHP كود :

  Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using cm As New OleDb.OleDbCommand("", con)
                Using ms As New System.IO.MemoryStream
                    Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
                    cm.CommandText = "insert into tb(picname,picbyte) values(@picname,@picbyte)"
                    cm.Parameters.AddWithValue("@picname", "vb4arb")
                    cm.Parameters.AddWithValue("@picbyte", ms.ToArray)
                    If con.State = ConnectionState.Closed Then con.Open()
                    Try
                        cm.ExecuteNonQuery()
                        MsgBox("Saved....!", MsgBoxStyle.Information, "")
                    Catch ex As Exception
                        MsgBox(Err.Description, MsgBoxStyle.Critical, "")
                    End Try

                End Using
            End Using
        End Using 


[ZaerAllail]

(15-06-18, 09:16 AM)سعود كتب :

PHP كود :

  Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using cm As New OleDb.OleDbCommand("", con)
                Using ms As New System.IO.MemoryStream
                    Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
                    cm.CommandText = "insert into tb(picname,picbyte) values(@picname,@picbyte)"
                    cm.Parameters.AddWithValue("@picname", "vb4arb")
                    cm.Parameters.AddWithValue("@picbyte", ms.ToArray)
                    If con.State = ConnectionState.Closed Then con.Open()
                    Try
                        cm.ExecuteNonQuery()
                        MsgBox("Saved....!", MsgBoxStyle.Information, "")
                    Catch ex As Exception
                        MsgBox(Err.Description, MsgBoxStyle.Critical, "")
                    End Try

                End Using
            End Using
        End Using 


أخ سعود شكراً لك وكل عام وأنت بخير

---

(15-06-18, 05:55 AM)elgokr كتب :

بما انك محتاج الى شرح مبسط

فاليك هذا الفيديو

سيكفى بكل ما تريده

https://www.youtube.com/watch?v=Myiq2m2wpJY

تحياتى لك 

وتمنياتى لك التوفيق

تفضلت علي يا غالي بردك وكل عام وأنت بخير