إضافة صورة في قاعدة بيانات أكسيس

اذهب الى الأسفل

إضافة صورة في قاعدة بيانات أكسيس Empty إضافة صورة في قاعدة بيانات أكسيس

مُساهمة من طرف المبرمج الطموح في الأربعاء أكتوبر 24, 2018 10:33 am

إضافة صورة في قاعدة بيانات نوع أكسيس

أولا لابد ان يكون لديك حقل من نوع  كائن 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()
المبرمج الطموح
المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 196
النقاط : 350
التقيم : 14
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى