21-12-24, 01:31 PM
السلام عليكم ورحمة الله وبركاته
( آسف لأن تكرر في المنتدى قبل هذه المرة لكن لم أجد الحل )
لدي ملف يوجد به ملف PDF يتم حفظ الملف داخل قاعدة بيانات SQL ثم يتم بعد ذلك حذف المجلد كاملاً بمحتوياته وتتم هذه العملية بشكل جيد ولكن عندما أريد أن أعمل أي عملية أخرى يجب الخروج من البرنامج ثم الدخول له مرة أخرى وإلا سوف تحدث المشكلة الموجودة في الصورة حيث تقول ان الملف قيد الاستخدام من قبل عملية أخرى ( نفس الصورة الموجودة في الأسفل ) وقد استخدمت الكود التالي
( آسف لأن تكرر في المنتدى قبل هذه المرة لكن لم أجد الحل )
لدي ملف يوجد به ملف PDF يتم حفظ الملف داخل قاعدة بيانات SQL ثم يتم بعد ذلك حذف المجلد كاملاً بمحتوياته وتتم هذه العملية بشكل جيد ولكن عندما أريد أن أعمل أي عملية أخرى يجب الخروج من البرنامج ثم الدخول له مرة أخرى وإلا سوف تحدث المشكلة الموجودة في الصورة حيث تقول ان الملف قيد الاستخدام من قبل عملية أخرى ( نفس الصورة الموجودة في الأسفل ) وقد استخدمت الكود التالي
Dim sqlq As String = "insert into Documents_Table values(@Personal_Num,@Student_Name,@Mokhalafah_Pdf)"
Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)
Dim fs As New FileStream("C:\aa_merge\Save.pdf", FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(fs)
Dim pdf1() As Byte = br.ReadBytes(br.BaseStream.Length)
sqlcmd.Parameters.Add(New SqlParameter("@Personal_Num", SqlDbType.NVarChar, 15) With {.Value = Form1.TextBox7.Text})
sqlcmd.Parameters.Add(New SqlParameter("@Student_Name", SqlDbType.NVarChar, 100) With {.Value = Form1.TextBox4.Text})
sqlcmd.Parameters.Add(New SqlParameter("@Mokhalafah_Pdf", SqlDbType.VarBinary)).Value = pdf1
Sqlcon.Open()
sqlcmd.ExecuteNonQuery()
Sqlcon.Close()
MsgBox(" تم الحفظ بنجاح ")
