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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود الاتصال بقاعدة بيانات موجودة في جهاز اخر thevirus 1 116 11-11-16, 07:40 PM
آخر رد: ahmedseddek
  [كود] كيف اتراجع عن عملية اضافة الى قاعدة البيانات عند حدوث خطأ ما myalsailamy 0 76 02-11-16, 01:48 AM
آخر رد: myalsailamy
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 11 5,946 19-08-16, 12:13 AM
آخر رد: test123
  تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس bassamreg 2 304 07-07-16, 12:47 AM
آخر رد: أبوبكر سويدان
Sad [سؤال] مستخدمين البرنامج و قاعدة البيانات ! GeneralEG 5 358 01-07-16, 07:15 AM
آخر رد: GeneralEG
  [كود] ملف txt تحميله الي قاعدة البيانات dubai.eig 1 303 29-05-16, 12:04 AM
آخر رد: CLARO
  [VB.NET] تشغيل قاعدة البيانات التي على السيرفر من اي جهاز على الشبكة ahmed saleh 3 1,098 29-05-16, 12:03 AM
آخر رد: CLARO
  مساعدة ، كيف يمكن نقل بيانات من الداتاكريد الى اخرى بشروط معينة رعد الغبان 0 228 20-01-16, 09:17 AM
آخر رد: رعد الغبان
  [كود] عرض صورة مخزنة في القاعدة بصيغة بيناري سعود 2 751 22-10-15, 03:52 PM
آخر رد: lolo queen

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


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