تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] بشأن عرض الصوره في PictureBox قاعدة sql
#1
السلام عليكم ورحمة الله وبركاته        

لدي مشروع على vb.net 2010 وقاعدة البيانات sql وأضفت له خاصية الماسح الضوئي وهذا كود الحفظ  بقاعدة البيانات

كود :
If sLab.TextBox3.Text = "" Then
           MsgBox("أدخل رقم الهويه")
       End If
       Dim ms1 As New MemoryStream()
       Dim arrimg() As Byte = ms1.GetBuffer
       ms1.Close()
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       connSQLServer.Open()
       Dim sqlc As New SqlCommand
       sqlc.Connection = connSQLServer
       sqlc.CommandText = " Update ERFile_Tab set pt1=@pt1 where ns_pat=@ns_pat2 "
       sqlc.Parameters.Add(New SqlParameter("@pt1", SqlDbType.Image)).Value = ms1.ToArray()
       sqlc.Parameters.Add("ns_pat2", SqlDbType.Int).Value = sLab.Label6.Text
       sqlc.ExecuteNonQuery()
       connSQLServer.Close()
       MsgBox("تمت الاضافة بنجاح")
     


طبعا الكود يحفظ بقاعدة البيانات لكن ممكن احد يفيدني بكود عرض الصوره في PictureBox 
الرد }}}
تم الشكر بواسطة:
#2
اجلب الصورة من قاعدة البيانات
حولها من Bytes إلى Image
ثم اعرضعا على Picturebox
الرد }}}
تم الشكر بواسطة: baqaa8
#3
هذا ما يقصده استاذ عبدالله الدوسري

PHP كود :
Dim PIC_() As Byte CType(dt.Rows(dt.Rows.Count 1).Item("PIC_T"), Byte())
 
           Dim MS As New MemoryStream(PIC_)
 
           pic.Image Image.FromStream(MS
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
#4
(27-01-18, 01:25 AM)محمود صالح كتب : هذا ما يقصده استاذ عبدالله الدوسري

PHP كود :
Dim PIC_() As Byte CType(dt.Rows(dt.Rows.Count 1).Item("PIC_T"), Byte())
 
           Dim MS As New MemoryStream(PIC_)
 
           pic.Image Image.FromStream(MS

شكرا لك أخي محمود أنا حولتها لكن يعطيني هالخطأ المرفق


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#5
كود :
       Try
           PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(dt.Row(0)("pt1")))
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   
الرد }}}
تم الشكر بواسطة: baqaa8 , baqaa8
#6
(27-01-18, 04:06 AM)عبدالله الدوسري كتب :
كود :
       Try
           PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(dt.Row(0)("pt1")))
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

الله يسعدك أستاذ عبدالله لاهنت جربت الكود وطلع عندي هالخطأ .


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#7
تصحيح بسيط لكود الأخ [b]عبدالله الدوسري[/b]
PHP كود :
PictureBox1.Image Image.FromStream(New System.IO.MemoryStream(CType(dt.Rows(0)("pt1"), Byte()))) 
الرد }}}
تم الشكر بواسطة: baqaa8
#8
(27-01-18, 06:38 AM)طالب برمجة كتب : تصحيح بسيط لكود الأخ [b]عبدالله الدوسري[/b]
PHP كود :
PictureBox1.Image Image.FromStream(New System.IO.MemoryStream(CType(dt.Rows(0)("pt1"), Byte()))) 

جربت هذا الكود و شغال 100 % 

لكن طلعت المشكله بكود الحفظ اتوقع أنه مايحول الصوره من Image إلى Bytes 
كود :
Dim ms1 As New MemoryStream()
      Dim arrimg() As Byte = ms1.GetBuffer
      ms1.Close()
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      connSQLServer.Open()
      Dim sqlc As New SqlCommand
      sqlc.Connection = connSQLServer
      sqlc.CommandText = " Update ERFile_Tab set pt1=@pt1 where ns_pat=@ns_pat2 "
      sqlc.Parameters.Add(New SqlParameter("@pt1", SqlDbType.Image)).Value = ms1.ToArray()
      sqlc.Parameters.Add("ns_pat2", SqlDbType.Int).Value = sLab.Label6.Text
      sqlc.ExecuteNonQuery()
      connSQLServer.Close()
      MsgBox("تمت الاضافة بنجاح")
الرد }}}
تم الشكر بواسطة:
#9
نعم فالكود لم يذكر الصورة

هذا تعديل الجزء العلوي من الكود
PHP كود :
Dim ms1 As New MemoryStream()
PictureBox1.Image.Save(ms1PictureBox1.Image.RawFormat)
ms1.Close() 
الرد }}}
تم الشكر بواسطة: baqaa8 , baqaa8
#10
ممكن طريقة التعامل مع الاسكنر
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,606 10-12-23, 12:53 PM
آخر رد: محمد بن عطية
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit

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


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