18-08-22, 08:27 PM
السلام عليكم ورحمة الله وبركاته
الكود المرفق قمت بإنزال المشروع الخاص به من هذا المنتدى وهو لحفظ أي ملف بقاعدة بيانات من نوع mysql
الكود يعمل بصورة جيدة ولكن مع الصور والملفات صغيرة الحجم .. عند محاولة حفظ أي صورة أو ملف كبير الحجم تظهر رسالة خطأ علماً بأن نوع حقل الحفظ هو (longblob)
أرجو من الأخوة المبرمجين تعديل الكود ليكون بالإمكان حفظ أي حجم ممكن وطبعاً نعلم أن أقصي حجم مسموح به في هذا النوع (longblob) هو 4 قيقا بايت
ولكم الشكر والتقدير
الكود المرفق قمت بإنزال المشروع الخاص به من هذا المنتدى وهو لحفظ أي ملف بقاعدة بيانات من نوع 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