الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عرض الصور من قاعدة البيانات

بدأه basma_ah في 12 يونيو 2011 · 12 رد · 2,017 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي قاعدة بيانات access مخزون بها عدد من الصور ارغب بعرضها في vb imageBox فهل من معين

استخدمت هذ الكود لكن فيه خطا الرجاء اعلامي اين الخطا فيه

مشكورين

Dim arrPicture As Byte() = (CType(dataset1.Tables(0).Rows(0)("pic"), Byte()))
            Dim ms As MemoryStream = New System.IO.MemoryStream(arrPicture)
            Dim bmp As New Bitmap(ms)
            PictureBox1.Image = Image.FromStream(ms)
#2

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي


Using ms As New IO.MemoryStream(CType(dataset1.Tables(0).Rows(0)("pic"), Byte()))
Dim img As Image = Image.FromStream(ms)
PictureBox1.Image = img
End Using
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#3
        
        

      
السلام عليكم ورحمة الله وبركاته
اضفت الكود الذي اقترحته لي لكني احصل على نفس الاجابة وهي parameter is not valid عند محاولة عرض الصورة في imagebox علما باني استخدم vb 2008 مع access 2003 والصور مخزونة كـole object الرجاء الافادة شاكرة سرعة الرد
جزاك الله الخير

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي الرجاء ارفاق الفورم او المشروع مع قاعدة البيانات

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#5
        
        

      
وعليكم السلام ورحمة الله وبركاته
ارفق لك الفورم اما قاعدة البيانات فهي عبارة عن تجربة بسيطة وهي مكونة من حقل واحد يسمى pic نوعة ole 
الفورم جزء من مجموع عمل ارغب بتحقيقه لكني اجزء عملي دائما حتى اتاكد من تحقيقه
مشكور مقدما
Form1.vb

      
      

      
    

  

    
    

      
#6
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي الاكواد السابقه صحيحه ولكن كانت هناك مشكلة مع ال OLE Header المهم هذا هو الكود النهائي للعرض

 Dim contstr As String = "provider=Microsoft.Jet.oleDb.4.0;Data Source=" & Application.StartupPath & "\img_db.mdb"
    	Dim conn As New OleDbConnection(contstr)
    	Dim dataset1 As New DataSet
    	Dim sqlStr As String = "select * from t_imag"
    	Dim dataAdepter1 As New OleDbDataAdapter(sqlStr, conn)
    	dataAdepter1.Fill(dataset1, "t_imag")
    	Dim ms As New MemoryStream
    	Dim bm As Bitmap
    	Dim data() As Byte = dataset1.Tables(0).Rows(0)("pic")
    	ms.Write(data, 78, data.Length - 78)
    	bm = New Bitmap(ms)
    	PictureBox1.Image = bm
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#7
        
        

      
وعليكم السلام ورحمة الله وبركاته
ماذا قصدت " هناك مشكلة مع ال OLE Header " ماهي هذه المشكلة لاني ما زلت احصل على نفس رسالة الخطا
اسفة جدا على ازعاجك على جديد

      
      

      
    

  

    
    

      
#8
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي جربي المشروع المرفق ...
DisplayImage.zip

      
      
1

      
.:: Wish to become better and better ::.

    

  

    
    

      
#9
        
        

      
السلام عليكم ورحمة الله وبركاته
كلام مضبوط تماما اخي الخلل في قاعدة البيانات لانه في الole التابع لي يعرض pakage (قمت بادخالها عن طريق browse) في حين التايعة لمثالك تعرض bitmap image هل هذا يعني اني لا استطيع عرض الا صور محددة فقط ام ماذا :huh:

      
      

      
    

  

    
    

      
#10
        
        

      
السلام عليكم ورحمه الله وبركاته
اعتقد ذلك اختي يمكن يتم قبول bmp و jpg ولكن يمكنك من خلال الكود التحويل من اي امتداد اخر الى bmp عبر الفئه Bitmap

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#11
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اعتقد ذلك اختي يمكن يتم قبول bmp و jpg ولكن يمكنك من خلال الكود التحويل من اي امتداد اخر الى bmp عبر الفئه Bitmap
السلام عليكم ورحمة الله وبركاته
اسفة اخي لكني بحاجة لمزيد من التوضيح لاني اساسا كنت اعرض jpg وتتحول في db الى package واحصل على رسالة الخطا (invalide parameter) في حين عند تحويل ole الى bitmap image قبل عرضها في imagebox . هل الخطا في اضافة الصورة الى R.C. insert object,creat from file,brows قاعدة البيانات ؟ ام حجم الصور؟ او النوع؟ :excl:

      
      

      
    

  

    
    

      
#12
        
        

      
يا جماعة استأذن حضرتكم لماذا لا يعمل المثال على جهازي علل؟ 
هل المثال المرفق لا يعمل على بيئة فيجوال دوت نت  2008

      
      

      
    

  

    
    

      
#13
        
        

      
السلام عليكم ورحمه الله وبركاته
البرنامج معمول باستخدام الفيجوال ستديو 2010, عليك بانشاء مشروع جديد بالاصدار المحمل لديك من ثم اختر Add Existing Item وحدد الفورم السابق ليتم اضافته للمشروع

      
      

      
.:: Wish to become better and better ::.

    

  

    
    
    
 مواضيع مشابهة