منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إضافة الصور في الداتا بيس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : إضافة الصور في الداتا بيس (/showthread.php?tid=25387)



إضافة الصور في الداتا بيس - ZaerAllail - 15-06-18

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


RE: إضافة الصور في الداتا بيس - elgokr - 15-06-18

بما انك محتاج الى شرح مبسط
فاليك هذا الفيديو
سيكفى بكل ما تريده

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

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



RE: إضافة الصور في الداتا بيس - سعود - 15-06-18

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 



RE: إضافة الصور في الداتا بيس - ZaerAllail - 15-06-18

(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 كتب :
بما انك محتاج الى شرح مبسط
فاليك هذا الفيديو
سيكفى بكل ما تريده


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

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