15-06-18, 05:14 AM
فضلا يا أخوان ما هو الكود الخاص بإضافة الصورة في الداتا بيس من خلال أداة pictureBox في النموذج مع شرح بسيط إن أمكن ؟
وكل عام وأنتم بخير
وكل عام وأنتم بخير
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, 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 كتب : [ -> ]بما انك محتاج الى شرح مبسطفاليك هذا الفيديوسيكفى بكل ما تريده
تحياتى لكوتمنياتى لك التوفيق