[معتز حسن]

السلام عليكم ورحمة الله وبركاته 
الكود المرفق قمت بإنزال المشروع الخاص به من هذا المنتدى  وهو لحفظ أي ملف بقاعدة بيانات من نوع mysql
 الكود يعمل بصورة جيدة ولكن مع الصور والملفات صغيرة الحجم .. عند محاولة حفظ أي صورة أو ملف كبير الحجم تظهر رسالة خطأ علماً بأن نوع حقل الحفظ هو (longblob)
أرجو من الأخوة المبرمجين تعديل الكود ليكون بالإمكان حفظ أي حجم ممكن وطبعاً نعلم أن أقصي حجم مسموح به    في هذا النوع (longblob) هو 4 قيقا بايت
ولكم الشكر والتقدير

كود :

 Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
        Try


            Dim fs As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
            Dim br As New BinaryReader(fs)
            Dim filee() As Byte = br.ReadBytes(br.BaseStream.Length)

            cmd = New MySqlCommand("insert into files (ID,label,file) VALUES(@ID,@label,@file)", con)
            If con.State = ConnectionState.Open Then con.Close()
            con.Open()
            cmd.Parameters.Add(New MySqlParameter("@ID", MySqlDbType.Int32)).Value = lastrecord("files", "ID") + 1
            cmd.Parameters.Add(New MySqlParameter("@label", MySqlDbType.VarChar)).Value = OpenFileDialog1.SafeFileName
            cmd.Parameters.Add(New MySqlParameter("@file", MySqlDbType.LongBlob)).Value = filee

            cmd.ExecuteNonQuery()
            con.Close()
            MsgBox("done")
            load_data()
        Catch ex As Exception
            Err.Clear()
        End Try
    End Sub