تقييم الموضوع :
  • 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()
الرد }}}}
تم الشكر بواسطة: abulayth , عدنان الشمري
#2
السلام عليكم
هل يوجد كود يحول الصورة الموجوظة في الPictureBox الى pdf اما في حال وجود اكثر من صورة كيف يكون الحال
الرد }}}}
تم الشكر بواسطة:
#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
ممكن مشروع بسيط يوضح الفكرة
الرد }}}}
تم الشكر بواسطة:
#6
(20-11-15, 09:30 PM)عدنان الشمري كتب : ممكن مشروع بسيط يوضح الفكرة

هنا
الرد }}}}
تم الشكر بواسطة: عدنان الشمري , عدنان الشمري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة مؤثرات جمالية للكونترول silverlight 3 69 15-10-17, 10:47 AM
آخر رد: سعود الشامان
  لحفظ ملفات مثل PDF أو حتى exe يمكن حفظها في قاعدة البيانات في صورة بايناري ()Byte ثم safalo 2 261 09-06-17, 10:47 PM
آخر رد: nana3466
  ابحث عن كود vb2008 للتنقل بين جداول قاعدة بيانات اكسس gharib 6 271 20-05-17, 08:46 AM
آخر رد: gharib
Information كيفية ربط ملف نصي نوع txt موجود به مسار قاعدة البيانات ؟ moh_g 2 188 18-05-17, 05:08 PM
آخر رد: moh_g
  طلب كود الاتصال بقاعدة بيانات موجودة في جهاز اخر thevirus 9 991 17-04-17, 02:45 AM
آخر رد: ABDSH
  طلب كود لظافة الصورة في قاعدة بيانات اكسس a.baomar 3 226 11-04-17, 10:37 PM
آخر رد: abdualla
  [VB.NET] قاعد بيانات اكسس mohamed fayez2017 1 184 31-03-17, 06:39 AM
آخر رد: حريف برمجة
  كلاس بسيط لطباعة صورة الفورم silverlight 2 365 23-03-17, 03:22 PM
آخر رد: abdualla
  [كود] عرض صورة مخزنة في القاعدة بصيغة بيناري سعود 4 1,329 24-12-16, 07:41 PM
آخر رد: سعود
  [كود] كيف اتراجع عن عملية اضافة الى قاعدة البيانات عند حدوث خطأ ما myalsailamy 0 455 02-11-16, 01:48 AM
آخر رد: myalsailamy

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


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