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

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

كود إضافة صورة في قاعدة بيانات أكسيس - saffor - 12-11-15

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

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


RE: كود إضافة صورة في قاعدة بيانات أكسيس - عدنان الشمري - 15-11-15

السلام عليكم
هل يوجد كود يحول الصورة الموجوظة في الPictureBox الى pdf اما في حال وجود اكثر من صورة كيف يكون الحال

RE: كود إضافة صورة في قاعدة بيانات أكسيس - saffor - 15-11-15

(15-11-15, 06:22 PM)عدنان الشمري كتب : السلام عليكم
هل يوجد كود يحول الصورة الموجوظة في الPictureBox الى pdf اما في حال وجود اكثر من صورة كيف يكون الحال


عليكم السلام

يمكن عرض الصورة في تقرير report viewer  ومن ثما يتم التحويل الي pdf  بسهولة

لان الاداة report viewer  تدعم التحويل الي PDF  excel word

RE: كود إضافة صورة في قاعدة بيانات أكسيس - مهموم - 15-11-15

السلام عليكم ورحمة الله

أخي عدنان

كما ذكر لك الأخوة، بالامكان استغلال Microsoft Reports لتحويل الصور إلى ملفات بصيغة PDF،
والكود التالي يقوم بذلك بعد أن تقوم بـ:
إنشاء تقرير وتضيف فيه Parameter باسم ImagePath
وصورة تربطها بال ImagePath
ثم تضيف ReportViewer للفورم وتربط التقرير به
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    If PictureBox1.Image IsNot Nothing Then

        Dim tmpFilename As String = IO.Path.GetTempFileName & ".jpg"

        PictureBox1.Image.Save(tmpFilename)

        ReportViewer1.LocalReport.EnableExternalImages = True
        ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("ImagePath", tmpFilename))
        ReportViewer1.RefreshReport()

        Using saveFile As New SaveFileDialog
            saveFile.Filter = "PDF files (*.pdf)|*.pdf"

            If saveFile.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim pdfContent As Byte() = ReportViewer1.LocalReport.Render("PDF", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)
                IO.File.WriteAllBytes(saveFile.FileName, pdfContent)
            End If

        End Using

    End If

End Sub 


RE: كود إضافة صورة في قاعدة بيانات أكسيس - عدنان الشمري - 20-11-15

ممكن مشروع بسيط يوضح الفكرة

RE: كود إضافة صورة في قاعدة بيانات أكسيس - HASAN6.0 - 20-11-15

(20-11-15, 09:30 PM)عدنان الشمري كتب : ممكن مشروع بسيط يوضح الفكرة

هنا

RE: كود إضافة صورة في قاعدة بيانات أكسيس - شوشه - 26-04-20

(12-11-15, 04:23 PM)saffor كتب : لإضافة صورة في قاعدة بيانات نوع أكسيس

أولا لابد ان يكون لديك حقل من نوع  كائن 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()
كيف يمكن اضافه مجموعه صور في vb6 مثل (قيود طلبة)وحفظها في  eccess باستخدام pictuerbox