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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [سؤال] سؤال حول البحث في قاعدة بيانات من نوع اكسس ahmadpal 4 48 منذ 6 ساعة مضت
آخر رد: ahmadpal
  سؤال حول عرض البيانات في تكست بوكس من قاعدة البيانات ahmadpal 0 10 منذ 7 ساعة مضت
آخر رد: ahmadpal
  [سؤال] اريد شرح طريقة رفع قاعدة بيانات من نوع mysql ابو يوسف النواوي 2 5 39 منذ 7 ساعة مضت
آخر رد: asemshahen5
  [سؤال] تغير اتصال قاعدة sql الى mysql Mohamed Magdy 0 11 منذ 9 ساعة مضت
آخر رد: Mohamed Magdy
  اضافة حقل نعم لا بالكود في قاعدة اكسس atefkhalf2004 5 86 أمس, 04:22 PM
آخر رد: atefkhalf2004
  كيفية مشاركة قاعدة بيانات اكسس على الانترنت Lathe1 5 109 24-03-19, 08:48 PM
آخر رد: Lathe1
  قاعدة البيانات سكوال سرفر محمد خيري 3 162 16-03-19, 04:22 AM
آخر رد: asemshahen5
  اريد انشاء قاعدة بيانات سمير جمال 2 97 14-03-19, 04:29 AM
آخر رد: سمير جمال
  [VB.NET] فتح جدول موجود ضمن قاعدة البيانات EMADMW17 7 172 12-03-19, 08:05 PM
آخر رد: elgokr
  [سؤال] حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات mr_hso 4 178 11-03-19, 12:24 PM
آخر رد: mr_hso

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


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