تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ صورة علي الجهاز متخزنة في قاعدة البيانات BIT (تم حل المشكلة)
#1
بحاول انزل صورة من picture box
بمعني حفظ الصورة علي الجهاز بمسار معين
مش لاقيلها حل [صورة مرفقة: 1f641.png]:(

كود :
Dim temp As New DataTable
       If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
           Cnn = New SqlConnection(CnnString)
       ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
           Cnn = New SqlConnection(CnnString1)
       End If
       Cmd = New SqlCommand
       Cmd.CommandText = "Select image1 From PC"
       Cmd.CommandType = CommandType.Text
       Cmd.Connection = Cnn

       Dim ms As New MemoryStream("image1")
       Dim x() As Byte

       pbox.Image = Image.FromStream(ms)
       ms.Dispose()
       ofd.FileName = ""
       ofd.Filter = "Image Files (JPEG,GIF,BMP,PNG,ICO)|*.jpg;*.jpeg;*.gif;*.bmp;*.png;*ico"
       Dim SaveFileAs As New SaveFileDialog
       SaveFileAs.Title = "Save File As"
       SaveFileAs.FileName = ""
       SaveFileAs.Filter = "Image Files (JPEG,GIF,BMP,PNG,ICO)|*.jpg;*.jpeg;*.gif;*.bmp;*.png;*ico"
       If SaveFileAs.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
           pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
       End If
الرد
تم الشكر بواسطة:
#2
تم حل المشكلة الف شكر للعضو الغالي 
كود :
Dim temp As New DataTable
       If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
           Cnn = New SqlConnection(CnnString)
       ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
           Cnn = New SqlConnection(CnnString1)
       End If

       Dim r As DataGridViewRow = Me.DataGridView1.CurrentRow
       Dim code = r.Cells("clcode").Value

       Dim cmd As New SqlCommand("Select [image1] From [PC] WHERE [code]=@code", Cnn)
       cmd.Parameters.AddWithValue("@code", code)
       If Cnn.State <> ConnectionState.Open Then Cnn.Open()
       Dim obj As Object = cmd.ExecuteScalar
       Cnn.Close()

       If obj IsNot Nothing AndAlso Not IsDBNull(obj) Then
           Dim stream As New IO.MemoryStream(CType(obj, Byte()))
           Dim img As Image = Image.FromStream(stream)

           Dim SaveFileAs As New SaveFileDialog
           SaveFileAs.Title = "Save File As"
           SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
           If SaveFileAs.ShowDialog() = DialogResult.OK Then
               img.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
           End If
       End If
[/code]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في عمل سكريبت لقاعدة البيانات Emam emam 9 169 منذ 2 ساعة مضت
آخر رد: asemshahen5
  اسناد كل عامود في قاعدة البيانات الى عامود بالداتا جريد فيو Ghassanff 8 158 02-04-20, 10:38 PM
آخر رد: Ghassanff
  [VB.NET] ظهور خطا بالاتصال بقاعدة البيانات Mohammed Nafa 0 35 31-03-20, 04:41 PM
آخر رد: Mohammed Nafa
  [VB.NET] تعديل فى ربط قاعدة بيانات أكسس مع Combobox Doctor GME 11 377 31-03-20, 12:10 AM
آخر رد: WaeLx
  [SQL] الحاق مجموعة من البيانات من جدول الى اخر في قاعدة بيانات ثانية khairallah 2 71 29-03-20, 02:49 PM
آخر رد: khairallah
  [ تمّ الحل ] : تساؤل حول الطباعة من خلال جدولين بقاعدة البيانات عبد العزيز البسكري 7 249 24-03-20, 07:28 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] طلب حل المشكلة دموع الوطن 20 1,279 19-03-20, 07:51 PM
آخر رد: دموع الوطن
  تكرار خانة في قاعدة البيانات SABER_ZINOUBI 0 62 16-03-20, 02:26 PM
آخر رد: SABER_ZINOUBI
  تحويل قاعدة اكسس الي سكول atefkhalf2004 1 91 16-03-20, 01:42 PM
آخر رد: عبد العزيز البسكري
  [سؤال] تصغير حجم الصورة قبل حفظها بقاعدة البيانات سيكوال هاني المومني 4 131 15-03-20, 03:10 PM
آخر رد: asemshahen5

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


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