04-08-24, 10:34 AM
السلام عليكم ورحمة الله
لو سمحتوا كنت محتاج مساعدة فى كود إستدعاء ملف PDF من قاعدة بيانات SQL
علماً بأن Data Type للملف varbinary(MAX)
المطلوب
اريد إستدعاء الملف من قاعدة البيانات وفتحة داخل AxAcroPDF1
بناءً على رقم ID
حاولت كتير ولم استطع الوصول لها
دا الكود اللى عملته ومنفعش معايا
con.Open()
Dim strrr As String
strrr = "select file_arc from archive where id_arc=" & Label1.Text
cmd = New SqlCommand
With cmd
.Connection = con
.CommandText = strrr
End With
ad = New SqlDataAdapter
dt = New DataTable
ad.SelectCommand = cmd
ad.Fill(dt)
AxAcroPDF1.src = Application.StartupPath & dt.Rows(0).ItemArray("file_arc")
ad.Dispose()
con.Close()
لو سمحتوا كنت محتاج مساعدة فى كود إستدعاء ملف PDF من قاعدة بيانات SQL
علماً بأن Data Type للملف varbinary(MAX)
المطلوب
اريد إستدعاء الملف من قاعدة البيانات وفتحة داخل AxAcroPDF1
بناءً على رقم ID
حاولت كتير ولم استطع الوصول لها
دا الكود اللى عملته ومنفعش معايا
con.Open()
Dim strrr As String
strrr = "select file_arc from archive where id_arc=" & Label1.Text
cmd = New SqlCommand
With cmd
.Connection = con
.CommandText = strrr
End With
ad = New SqlDataAdapter
dt = New DataTable
ad.SelectCommand = cmd
ad.Fill(dt)
AxAcroPDF1.src = Application.StartupPath & dt.Rows(0).ItemArray("file_arc")
ad.Dispose()
con.Close()
