23-12-18, 01:17 AM
اخوانى
احبكم الله
عندى ملفات مخزنة على قاعدة البيانات (BinerRed)
الان اقوم باستدعاء الملف واعادة انشائه عن طريق FileStream
اريد ان اقوم بحفظ هذا الملف عن طريق SaveFileDialog
احبكم الله
عندى ملفات مخزنة على قاعدة البيانات (BinerRed)
الان اقوم باستدعاء الملف واعادة انشائه عن طريق FileStream
اريد ان اقوم بحفظ هذا الملف عن طريق SaveFileDialog
كود :
Dim row As DataRow = ATNewDt.Rows.Find(strToOpin) '
Dim file_data() As Byte = CType(row(1), Byte())
Dim fs As New FileStream(strToOpin, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(file_data, 0, file_data.Length)
Try 'حفظ
Dim sav As New SaveFileDialog
sav.Filter = "All |*.* |PDF |*.pdf | Excel File |*.xlsx |Excel 2003 | *.xls"
sav.FileName = vews.Item(0)(3).ToString
If sav.ShowDialog = System.Windows.Forms.DialogResult.OK Then
' AttipF.ToString.SaveAs(sav.FileName)
End If
Catch ex As Exception
End Try
fs.Close()