تقييم الموضوع :
  • 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)عدنان الشمري كتب : ممكن مشروع بسيط يوضح الفكرة

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابحث عن كود vb2008 للتنقل بين جداول قاعدة بيانات اكسس gharib 6 121 20-05-17, 08:46 AM
آخر رد: gharib
Information كيفية ربط ملف نصي نوع txt موجود به مسار قاعدة البيانات ؟ moh_g 2 63 18-05-17, 05:08 PM
آخر رد: moh_g
  لحفظ ملفات مثل PDF أو حتى exe يمكن حفظها في قاعدة البيانات في صورة بايناري ()Byte ثم safalo 1 75 14-05-17, 12:18 AM
آخر رد: mansoor
  طلب كود الاتصال بقاعدة بيانات موجودة في جهاز اخر thevirus 9 721 17-04-17, 02:45 AM
آخر رد: ABDSH
  طلب كود لظافة الصورة في قاعدة بيانات اكسس a.baomar 3 115 11-04-17, 10:37 PM
آخر رد: abdualla
  [VB.NET] قاعد بيانات اكسس mohamed fayez2017 1 105 31-03-17, 06:39 AM
آخر رد: حريف برمجة
  كلاس بسيط لطباعة صورة الفورم silverlight 2 212 23-03-17, 03:22 PM
آخر رد: abdualla
  [كود] عرض صورة مخزنة في القاعدة بصيغة بيناري سعود 4 1,170 24-12-16, 07:41 PM
آخر رد: سعود
  [كود] كيف اتراجع عن عملية اضافة الى قاعدة البيانات عند حدوث خطأ ما myalsailamy 0 325 02-11-16, 01:48 AM
آخر رد: myalsailamy
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 11 6,774 19-08-16, 12:13 AM
آخر رد: test123

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


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