تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استرجاع صورة
#1
كيف يمكن ان اعمل select او استرجع صورة محفوظة فى قاعدة بيانات sql server
حيث فى البداية حولت الصورة الى binary
وهذا كود الحفظ
كود :
Dim cmd As New SqlCommand("SELECT ID, " & _
            "im FROM Table1 ORDER BY ID", sqlcon1)
        Dim da As New SqlDataAdapter(cmd)
        Dim ds As New DataSet()
        da.Fill(ds, "Table1")
        Dim c As Integer = ds.Tables("Table1").Rows.Count
        If c > 0 Then
            Dim bytim() As Byte = _
                ds.Tables("Table1").Rows(c - 1)("im")
            Dim stmim As New MemoryStream(bytim)
            picBLOB.Image = Image.FromStream(stmim)
        End If


كود :
Dim cmd As New SqlCommand("INSERT INTO Table1 (im) " & _
            "VALUES (@im)", sqlcon1)
        Dim ms As MemoryStream = New MemoryStream()
        picBLOB.Image.Save(ms, ImageFormat.Png)
        Dim bytim(ms.Length - 1) As Byte
        ms.Position = 0
        ms.Read(bytim, 0, ms.Length)
        Dim prm As New SqlParameter("@im", SqlDbType.VarBinary, _
            bytim.Length, ParameterDirection.Input, False, _
            0, 0, Nothing, DataRowVersion.Current, bytim)
        cmd.Parameters.Add(prm)
        sqlcon1.Open()
        cmd.ExecuteNonQuery()
        sqlcon1.Close()
اما كود الاسترجاع
كود :
Dim ssqlstatment As String
        Dim sql11 As String

        ssqlstatment = " "
        sql11 = " "
        Dim firstcont As Boolean = True
        If txtquery1.Text <> " " Then
            If firstcont = False Then
                ssqlstatment = ssqlstatment & " table1.id like '%" & txtquery1.Text.Trim & "%'"
            Else
                firstcont = False
                ssqlstatment = ssqlstatment & " table1.id like '%" & txtquery1.Text.Trim & "%'"
            End If
        End If

        sqlcon1.Open()

        sql11 = " Select *  from table1 where " & ssqlstatment

      
        
        Dim cmd As New SqlCommand(sql11)
        cmd.Connection = sqlcon1
        '-------------------------------



        '---------------------------------
        Dim dr As SqlDataReader = cmd.ExecuteReader
        If dr.HasRows Then
            dr.Read()
            txtrec1.Text = dr.Item("id")
            txtid.Text = dr.Item("id")
            txtim1.Text = dr.Item("im")
            txtdate.MyText = dr.Item("date")
            sqlcon1.Close()

        Else
            MsgBox("السجل غير موجود ", MsgBoxStyle.Exclamation, "خطأ")


        End If
    End Sub
الرد }}}}
تم الشكر بواسطة:
#2
ممكن تشوف المثال هنا
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 36 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  جلب صورة من قاعدة البيانات djelloul 3 316 25-04-16, 08:11 PM
آخر رد: سعود
  أدراج صورة في قاعدة البيانات abuyazan 5 784 11-01-16, 11:34 AM
آخر رد: abuyazan
Question سحب صورة من scanner وحفظها بقاعدة بيانات أكسس سيد درويش 18 12,992 05-08-15, 12:04 PM
آخر رد: مصطفى
  حذف صورة من قاعدة البيانات بعد تحديدها من ListView مصطفى_ظيمة 3 863 03-07-15, 04:51 PM
آخر رد: abulayth
Question رسالة خطأ عند حفظ صورة مصطفى_ظيمة 7 1,034 02-06-15, 09:46 PM
آخر رد: مصطفى_ظيمة
  اضافة صورة عمار عيثاوي 1 603 14-12-14, 06:59 AM
آخر رد: سعود
  اريد المساعد فى حفظ صورة فى قاعدة البيانات على رمضان 4 1,049 27-10-14, 07:44 PM
آخر رد: على رمضان
  [سؤال] كيف اضيف صورة في اكسس وعرضها فيجوال بيسك 2010 DeSSaR 8 3,491 20-08-14, 12:39 AM
آخر رد: سعود
  تحميل صورة من قاعدة البيانات الى ال datagridview abdullahsami 2 590 06-07-14, 10:11 AM
آخر رد: abdullahsami

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


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