تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود إضافة صورة في قاعدة بيانات أكسيس
#1
لإضافة صورة في قاعدة بيانات نوع أكسيس

أولا لابد ان يكون لديك حقل من نوع  كائن 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()
الرد }}}
#2
السلام عليكم
هل يوجد كود يحول الصورة الموجوظة في الPictureBox الى pdf اما في حال وجود اكثر من صورة كيف يكون الحال
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#3
(15-11-15, 06:22 PM)عدنان الشمري كتب : السلام عليكم
هل يوجد كود يحول الصورة الموجوظة في الPictureBox الى pdf اما في حال وجود اكثر من صورة كيف يكون الحال


عليكم السلام

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

لان الاداة report viewer  تدعم التحويل الي PDF  excel word
الرد }}}
#4
السلام عليكم ورحمة الله

أخي عدنان

كما ذكر لك الأخوة، بالامكان استغلال Microsoft Reports لتحويل الصور إلى ملفات بصيغة PDF،
والكود التالي يقوم بذلك بعد أن تقوم بـ:
إنشاء تقرير وتضيف فيه Parameter باسم ImagePath
وصورة تربطها بال ImagePath
ثم تضيف ReportViewer للفورم وتربط التقرير به
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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"NothingNothingNothingNothingNothingNothing)
                
IO.File.WriteAllBytes(saveFile.FileNamepdfContent)
            
End If

        
End Using

    End 
If

End Sub 
الرد }}}
#5
ممكن مشروع بسيط يوضح الفكرة
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابراهيم ايبو
#6
(20-11-15, 09:30 PM)عدنان الشمري كتب : ممكن مشروع بسيط يوضح الفكرة

هنا
الرد }}}
#7
(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
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 1 562 06-01-24, 02:32 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 2 721 05-01-24, 01:19 AM
آخر رد: HALIM ELEULMA
  [كود] نسخ بيانات جدول من ملف اكسس الى جدول في ملف اكسس مستقل justforit 0 341 22-11-23, 08:22 PM
آخر رد: justforit
  بعض الاكواد المفيدة في التعامل مع قاعدة بيانات اكسس ابو ليلى 3 9,477 15-10-22, 12:16 AM
آخر رد: kebboud
  [SQL] [ليس جديد]جملة استعلام جلب بيانات صف ما قبل الاخير سعود 0 1,243 27-05-22, 03:22 AM
آخر رد: سعود
  كيف يمكن مشاركة وتقسيم قاعدة البيانات اكسس لأكثر من مستخدم للشبكة بالفيجول بيسك Lathe1 1 2,004 14-02-21, 12:22 AM
آخر رد: sendbad100
Video [سلسلة تعليمية] مقدمة عن الدوال والإجراءات ... نحو تطوير فئات خاصة لقواعد بيانات خاصة عبدالله خضر 0 1,661 24-12-20, 06:45 PM
آخر رد: عبدالله خضر
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 20 21,196 06-02-20, 03:00 PM
آخر رد: asemshahen5
  [VB.NET] تشغيل قاعدة البيانات التي على السيرفر من اي جهاز على الشبكة ahmed saleh 4 6,153 10-03-19, 09:49 AM
آخر رد: معتز حسن
Star [درس فيديو] إضافة أداه اليوزر نيم و الباسورد في الفيجوال بيسك YousefOkasha 0 2,837 19-01-18, 02:24 PM
آخر رد: YousefOkasha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم