منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة فى اضافة صور داخل قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة فى اضافة صور داخل قاعدة البيانات (/showthread.php?tid=9298)

مشكلة فى اضافة صور داخل قاعدة البيانات - alimse - 17-06-13

السلام عليكم شباب
حاولت اكتر من مره اضافة صور فى قاعدة البيانات ولا لكن فشلت و الحمد الله
عملت الكود ده بس مش عارف الغلاط فين ده الكود
كود :
con.Open()
Dim da As New System.Data.SqlClient.SqlDataAdapter("select * from Table3", con)
Dim ds As New DataSet
Dim cm As New System.Data.SqlClient.SqlCommandBuilder(da)
da.Fill(ds, "Table3").ToString()
Dim dr As DataRow = ds.Tables("Table3").NewRow
Dim ms As New System.IO.MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim rawdata() As Byte = ms.GetBuffer
dr.Item("img") = rawdata
ds.Tables("Table3").Rows.Add(dr)
da.Update(ds, "Table3")
con.Close()
MsgBox("Saved!")

طبعا نوع الحقل mage
و قاعدة البيانات على موقع somee
ما الحل :confused::confused:

مشكلة فى اضافة صور داخل قاعدة البيانات - @@أبورائد@@ - 17-06-13


السلام عليكم ورحمة الله وبركاته







PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sql As String = " INSERT INTO [Table3] ( [img] ) VALUES ( @img ) "

        Dim com As New SqlClient.SqlCommand(sql, con)
        com.Parameters.AddWithValue("@img", ImageToByte(Me.PictureBox1.Image))

        con.Open()
        com.ExecuteNonQuery()
        con.Close()

        MsgBox("تمت الإضافة بنجاح")

    End Sub


#Region " ImageToByte "
    Public Function ImageToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        Return imgStream.ToArray()
    End Function
#End Region 





السلام عليكم ورحمة الله وبركاته

مشكلة فى اضافة صور داخل قاعدة البيانات - alimse - 17-06-13

السلام عليكم اخى عملت الكود بالطريقة دى
كود :
#Region " ImageToByte "
    Public Function ImageToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        Return imgStream.ToArray()
    End Function
#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim con As New SqlConnection("Data Source=elsenbisi.mssql.somee.com;User ID=sbisy;Password=0000000000")
        Dim sql As String = " INSERT INTO [Table4] ( [img] ) VALUES ( @img ) "

        Dim com As New SqlClient.SqlCommand(sql, con)
        com.Parameters.AddWithValue("@img", ImageToByte(Me.PictureBox1.Image))

        con.Open()
        com.ExecuteNonQuery()
        con.Close()

        MsgBox("تمت الإضافة بنجاح")
    End Sub
و ظهر عندى المشكلة دى
[ATTACH=CONFIG]3030[/ATTACH][ATTACH=CONFIG]3031[/ATTACH]

مشكلة فى اضافة صور داخل قاعدة البيانات - @@أبورائد@@ - 17-06-13


السلام عليكم ورحمة الله وبركاته




الكود التالي عمل لدي بنجاح.
يبدو أنك تقوم بحفظ صورة بحجم كبير مما يتسبب بانتهاء المهلة الزمنية على النت قبل اتمام العملية.
إستعلمت عن سجل به صورة مصباح أضفتها أنا وتمت بنجاح لأن حجم الصورة صغير.
أفرغ قاعدة البيانات وتعامل مع الصورة الصغيرة فقط

ملاحظة هامة: التعامل مع قاعدة البيانات على الجهازأو الشبكة الداخلية يختلف عن التعامل مع قاعدة بيانات على النت، فالوقت الممنوح لك لاتمام عملية ما يحكمك، ولكن عند التعامل مع قاعدة بيانات على النت ولكن بواسطة كود في الموقع نفسه فلا مشكلة.


PHP كود :
Imports System.Data.SqlClient

Public Class Form1

    Private con As New SqlClient.SqlConnection(" Data Source = elsenbisi.mssql.somee.com; User ID = sbisy; Password = 0000000000; ")

#Region " ImageToByte "
    Public Function ImageToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        Return imgStream.ToArray()
    End Function
#End Region
#Region " ByteToImage "
    Public Function ByteToImage(ByVal rowItem As Object) As Image
        On Error Resume Next
        Return Image.FromStream(New IO.MemoryStream(DirectCast(CObj(rowItem), Byte())))
    End Function
#End Region


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim sql As String = " INSERT INTO [Table4] ( [img] ) VALUES ( @img ) "

        Dim com As New SqlClient.SqlCommand(sql, con)
        com.Parameters.AddWithValue("@img", ImageToByte(Me.PictureBox1.Image))

        con.Open()
        com.ExecuteNonQuery()
        con.Close()

        MsgBox("تمت الإضافة بنجاح")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.PictureBox1.Image = Nothing

        Dim sql As String = " SELECT *         " & _
                            "   FROM [Table4]  " & _
                            "  WHERE [ID] = 4   "

        Dim com As New SqlClient.SqlCommand(sql, con)

        Dim dt As New DataTable
        Dim da As New SqlClient.SqlDataAdapter(com)

        If da.Fill(dt) > 0 Then

            Me.PictureBox1.Image = ByteToImage(dt.Rows(0).Item("img"))

        End If

    End Sub
End Class 





السلام عليكم ورحمة الله وبركاته

مشكلة فى اضافة صور داخل قاعدة البيانات - Sajad - 17-06-13

السلام عليكم

انظر الى هذا الموضوع http://vb4arb.com/vb/showthread.php?3954-%DF%ED%DD%ED%C9-%DA%D1%D6-%C7%E1%D5%E6%D1-%C7%E1%E3%CE%D2%E6%E4%C9-%DD%ED-%DE%C7%DA%CF%C9-%C7%E1%C8%ED%C7%E4%C7%CA

مشكلة فى اضافة صور داخل قاعدة البيانات - سعود - 17-06-13

احيانا استغرب صعوبة تنفيذ امر عند عضو مع انه سهل بالنسبة لي مثلا واحيانا اخرى استغرب عدم تمكني من حل مشكلة او تنفيذ كود في حين ان الاغلبية هنا ذكروا الحلول ...فاقول تفسيرا لها ان اختلاف النسخ(الموديل vb 2005-2008-2010-2012) قد يكون سبب في ذلك.
السهل الذي وجدته وعملت له مثال اضافة الصور للقاعدة وعرضها ..لكن كما قلت قد لا يناسب نسخة احدث او اقدم والله تعالى اعلم.

مشكلة فى اضافة صور داخل قاعدة البيانات - atefkhalf2004 - 17-06-13

الاستاذ sajad لي مشاركة بخصوص تقارير rdlc برجاء حل مشكلتي

مشكلة فى اضافة صور داخل قاعدة البيانات - alimse - 18-06-13

شكر ليك اخى أبورائد
بس هل يوجد طريق تعديل الكود علشان اصغر الصور قبل بعد الوضع ادخل قاعد البيانات
بطريق اوضح شوية اخى
دلوقتى انا مش عرف المستخدم هعمل اضافة صور الحجم بتعها كبير ولا صغير بس فى طريق بعد ما يحدد مكان الصور اصغر الحجم ده قبل ما يتم عملت الحفقظ فى قاعدة البيانات مع الحفاظ على نقة الصور

مشكلة فى اضافة صور داخل قاعدة البيانات - سعود - 22-06-13

اظن دقة الصورة تتناسب طرديا مع الحجم اي كلما زادت الدقة زاد الحجم ...ان كان ماقلته خطا فارجو الايضاح.