[makky]

عند ادراج صورة علي هيئة binary لقاعدة بيانات سيكول.يحدث مشكله ويعطي timeout في حالة ان كان حجم الصورة اكثر من 12 كيلوبايت علي الرغم من اني استخدم حجم حقل
varbinary(max)

[Beginer]

ضع image بدلا من (varbinary(max

[makky]

للاسف نفس المشكلة مع تغغير الحقل ال image

[سعود]

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

[Beginer]

إذا كان نوع حقل الصورة image ولم تستطيع حفظ الصورة، فلديك خطأ في تكوين الكود.

[Saad Alward]

ضع نوع الحقل الى Image

هذا كود لعملية الادخال او التحديث اذا كانت الصوره في PictureBox

كود :

                   Dim CMD As SqlCommand
                   CMD = New SqlCommand("update T_NAMES set c_names_image=@c_names_image where c_names_id='" & NAMES_id_code.Trim & "'", SQLCLIENTCN)
                   CMD.Parameters.Add(New SqlClient.SqlParameter("@c_names_image", SqlDbType.Image)).Value = imgToByteConverter(PictureBox1.Image)
                   CMD.ExecuteNonQuery()
                   CMD.Dispose()

وهذا الكود لتحويل الصوره من image الى Byte

كود :

'convert image to bytearray
   Public Function imgToByteConverter(ByVal inImg As Image) As Byte()
       Dim imgCon As New ImageConverter()
       Return DirectCast(imgCon.ConvertTo(inImg, GetType(Byte())), Byte())
   End Function

وهذا الكود لتحويل من bytearray الى image

كود :

'convert bytearray to image
   Public Function byteArrayToImage(ByVal byteArrayIn As Byte()) As Image
       Using mStream As New MemoryStream(byteArrayIn)
           Return New Bitmap(Image.FromStream(mStream))
       End Using
   End Function

[makky]

نفس المشكلة للاسف

[Beginer]

إذا كان نوع حقل الصورة image واستمرت المشكلة، فهذا يعني أن لديك خطأ في تكوين الكود.

[makky]

PHP كود :

Try
           
            Dim ms As New MemoryStream
            Dim arrimage() As Byte = {0}
            If (Pic.Image IsNot Nothing) Then
                Pic.Image.Save(ms, Pic.Image.RawFormat)
                arrimage = ms.GetBuffer
                ms.Close()
            End If
            Dim strsql As String
            Dim acscmd As New SqlCommand
            '   Dim con As New SqlConnection

            Dim con As New SqlConnection
            If IO.File.Exists(Application.StartupPath & "\DATABASE\bak2019.mdf") Then
                If My.Settings.constr = "" Then
                    con = New SqlConnection(("Data source=.\SQLEXPRESS;AttachDbFilename= " & Application.StartupPath & "\DATABASE\bak2019.mdf;Integrated Security=True;User Instance=True"))

                Else
                    If IO.File.Exists(My.Settings.constr) Then
                        con = New SqlConnection(("Data source=.\SQLEXPRESS;AttachDbFilename= " & Application.StartupPath & "\DATABASE\bak2019.mdf;Integrated Security=True;User Instance=True"))

                    Else
                        If MessageBox.Show("هل تريد تحديد مسار قاعدة البيانات", "خطأ قاعدة البيانات غير موجودة", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = DialogResult.Yes Then

                            Database.Show()
                        Else
                            MessageBox.Show("سيتم استخدام قاعدة البيانات الحالية ", "تنويه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                            con = New SqlConnection(("Data source=.\SQLEXPRESS;AttachDbFilename= " & Application.StartupPath & "\DATABASE\bak2019.mdf;Integrated Security=True;User Instance=True"))

                        End If
                    End If


                End If

            Else
                MessageBox.Show("قاعدة البيانات غير موجودة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                '  Exit Function
            End If
           
            strsql = "update labdetails set itmnme=@itmnme,itmspecial=@itmspecial,itmadress=@itmadress,itmphone=@itmphone,itmtime=@itmtime,itmlogo=@itmlogo,itmprint=@itmprint,itmnameenglish=@itmnameenglish,itmspecialenglish=@itmspecialenglish,signature1=@signature1,signature2=@signature2"

             acscmd.CommandText = strsql
            acscmd.Connection = con
            con.Open()

            acscmd.Parameters.AddWithValue("@itmnme", txtitmname.Text)
            acscmd.Parameters.AddWithValue("@itmspecial", txtspeciality.Text)
            acscmd.Parameters.AddWithValue("@itmadress", txtadress.Text)
            acscmd.Parameters.AddWithValue("@itmphone", txtphone.Text)
            acscmd.Parameters.AddWithValue("@itmtime", txttime.Text)
            acscmd.Parameters.AddWithValue("@itmlogo", IIf(Pic.Image IsNot Nothing, arrimage, DBNull.Value))
            
            acscmd.Parameters.AddWithValue("@itmprint", printchck.Checked)
            acscmd.Parameters.AddWithValue("@itmnameenglish", Txtitm.Text)
            acscmd.Parameters.AddWithValue("@itmspecialenglish", txtspecial.Text)
            acscmd.Parameters.AddWithValue("@signature1", txtsign1.Text)
            acscmd.Parameters.AddWithValue("@signature2", txtsign2.Text)
          

            acscmd.ExecuteNonQuery()
            acscmd.Dispose()
            con.Close()
            con.Dispose()
            Me.Close()
           

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 


[kiki]

قم باستخدام هذا المشروع
http://vb4arb.com/vb/showthread.php?tid=28906