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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند الاتصال مع قاعدة بيانات sqlserver nooralcown 2 102 13-07-19, 10:01 AM
آخر رد: nooralcown
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 284 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو
  هل هناك امكانية لتشفير نص اتصال قاعدة البيانات سامي محمد 7 195 06-07-19, 01:11 AM
آخر رد: سامي محمد
  محتاج كود ضغط وإصلاح قاعدة بيانات Access 2010 princelovelorn 12 764 05-07-19, 06:13 PM
آخر رد: elgokr
  [VB.NET] مشكل مفتاح قاعدة البيانات Autonumber sniperjawadino 4 251 30-06-19, 06:38 PM
آخر رد: sniperjawadino
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 13 469 26-06-19, 02:16 AM
آخر رد: الرائد
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 238 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 419 04-06-19, 03:12 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 960 15-05-19, 08:24 PM
آخر رد: asemshahen5
  [مثال] قاعدة بيانات SQL DK-x 2 203 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي

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


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