ممكن طريقة حفظ ملف pdf مع السجلات في قاعدة البيانات أكسس

السلام عليكم ورحمه الله وبركاته

اخي استخدم الكود التالي

OpenFileDialog1.ShowDialog()
Dim fs As New FileStream(OpenFileDialog1.FileName,FileMode.Open,FileAccess.Read)
Dim data(fs.Length) As Byte
fs.Read(data,0,data.Length)
fs.Close()
Dim conn As New SqlConnection("ConnectionString")
Dim cmd As New SqlCommand("Insert Into PDFs Values(@Content)",conn)
cmd.Parameters.AddWithValue("Content",data)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

اما بالنسبة للعرض يمكنك استخدام اداة عرض للـ PDF من اي Third-Party

بارك الله فيك ويسر دربك

ألسلام عليكم .. أخي VB Helper بارك الله فيك وجزاك الله كل الخير

ياريت تغير لي تاالكود فهو خاص بقاعدة البيانات سكيول وانا أحتاجه للأكسس ..

للعلم أيضا انا أستعمل طريقة الداتا سيت

السلام عليكم ورحمه الله وبركاته

اخي ببساطه قم بتغيير كلمة Sql في كل من الفئات السابقة الى OleDb