منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

اخوانى
احبكم الله
عندى ملفات مخزنة على قاعدة البيانات (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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عماد البشبيشى