منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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(msMe.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.DescriptionMsgBoxStyle.Critical"")
 
                   End Try

 
               End Using
            End Using
        End Using 
(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(msMe.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.DescriptionMsgBoxStyle.Critical"")
 
                   End Try

 
               End Using
            End Using
        End Using 

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

(15-06-18, 05:55 AM)elgokr كتب : [ -> ]
بما انك محتاج الى شرح مبسط
فاليك هذا الفيديو
سيكفى بكل ما تريده


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

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