+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server (/showthread.php?tid=46695)
كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server - salam82 - 12-08-23
السلام عليكم ورحمة الله تعالى وبركاته أعضاء المنتدى الكرام
أواجه مشكلة في كيفية إجبار التطبيق على حفظ ملف pdf في المسار الذي أحدده عند إستعادة الملفات، أرجوا من الإخوة أن يفيدوني بحل ولكم جزيل الشكر
الكود في المرفقات:
صورة للفورم:
RE: كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server - salam82 - 12-08-23
أرجو من الإخوة إفادتي لاني أحتاج مساعدتكم حالا
RE: كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server - salam82 - 23-08-23
معقول ولا رد
RE: كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server - salam82 - 20-09-23
لقد تم حل المشكلة بحول الله بمساعدة الذكاء الاصطناعي وهذا نص الكود ليستفيد منه من تواجهه نفس المشكلة:
كود :
. Imports System.Data.SqlClient
Imports System.IO
Public Class Doctec
Dim rdr As New SqlDataAdapter
Dim dt As New DataTable
Dim ofd As New OpenFileDialog()
Dim sfd As New SaveFileDialog
' ...
Private Sub cmbFiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFiles.SelectedIndexChanged
Try
Dim FileName As String = Me.cmbFiles.Text
Dim Row As DataRow = dt.Rows.Find(Me.cmbFiles.SelectedValue)
Dim file_data() As Byte = CType(Row(2), Byte())
' طلب المسار الذي يريد المستخدم حفظ الملف فيه
sfd.Filter = "PDF Files (*.pdf)|*.pdf"
If sfd.ShowDialog() = DialogResult.OK Then
FileName = sfd.FileName ' استخدم المسار الذي اختاره المستخدم
Dim fs As New FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(file_data, 0, file_data.Length)
fs.Close()
Process.Start(FileName)
End If
Catch ex As Exception
Exit Sub
End Try
End Sub
' ...
End Class