12-11-15, 04:23 PM
لإضافة صورة في قاعدة بيانات نوع أكسيس
أولا لابد ان يكون لديك حقل من نوع كائن OLE
يكون اسمه مثلا photo
يجب ان يكون لديك على الفورم الاداة PictureBox
ثم في زر الاضافة في الفيجوال بيسك نت تكتب الكود التالي
أولا لابد ان يكون لديك حقل من نوع كائن OLE
يكون اسمه مثلا photo
يجب ان يكون لديك على الفورم الاداة PictureBox
ثم في زر الاضافة في الفيجوال بيسك نت تكتب الكود التالي
كود :
Public DBCon As New OleDb.OleDbConnection
DBCon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + "\DATABASE.mdb"
Try
DBCon.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, "لم يتم الربط مع قاعدة البيانات", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
DBCon.Close()
End
End Try
Dim cmd As OleDbCommand = Nothing
Dim SQL_Insert As String = "insert into student(Photo) VALUES (@image)"
cmd = New OleDbCommand(SQL_Insert)
cmd.Connection = DBCon
Dim ms As New MemoryStream()
Dim bmpImage As New Bitmap(PictureBox1.Image)
bmpImage.Save(MS, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = MS.GetBuffer()
Dim p As New OleDbParameter("@d1", OleDbType.VarBinary)
p.Value = data
cmd.Parameters.Add(p)
cmd.ExecuteNonQuery()