نمایش فایل های pdf , word ذخیره شده در database

[b.mahsa]

با سلام
ببخشید که یه سوال تکراری رو مطرح می کنم . خیلی گشتم ولی چیزی پیدا نکردم که مشکلم رو حل کنه .
من فایل word یا pdf یا عکس رو با استفاده از دستور زیر تو بانک ام ذخیره می کنم حالا برای باز یابی اون نمی دونم باید چی کار کنم ...
می خام که فایل pdf داخل acrobat باز بشه .
ممنون می شم اگر راهنماییم کنین.

اینم کدم.

Dim stream As New FileStream(s, FileMode.Open, FileAccess.Read)
Dim reader As New BinaryReader(Stream)
Dim pdf As Byte() = reader.ReadBytes(CInt(Stream.Length))
Stream.Close()
reader.Close()
Dim con As New Odbc.OdbcConnection("dsn=parseh")
'Dim cn As New SqlConnection(getconnectionstrings())
Dim cmd As New Odbc.OdbcCommand
'Dim cmd As New SqlCommand()
cmd.Parameters.Add("?picture", SqlDbType.VarBinary, pdf.Length).Value = pdf
cmd.CommandText = "insert into test(picture) values(" & "?)"
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close

[Navid Asadi]

ad = My.Computer.FileSystem.CombinePath("YOUR ADDRESS", "YOUR FILE.pdf")
My.Computer.FileSystem.WriteAllBytes(ad, ds.Tables("TABLE").Rows(0).Item("FEILD"), False)

ad : آدرس فیل ایجاد شده
YOUR ADDRESS : آدرس فایل مثل
YOUR FILE.pdf : نام فایل با پسوند

با این دستور یک فایل در آدرس ad ساخته میشه که همون فایلته.

[b.mahsa]

دوست عزیز ممنون از اینکه جواب دادین .
ولی فکر میکنم من منظورتون رو درست متوجه نشدم.
من از کد زیر استفاده کردم ولی جواب نداد.:ناراحت:

Dim con As New Odbc.OdbcConnection("dsn=parseh")
Dim ad1 As New Odbc.OdbcDataAdapter("select picture from test where ID=35", con)
Dim ds As New DataSet
ad1.Fill(ds, "TABLE")
Dim ad As String
ad = My.Computer.FileSystem.CombinePath("d:\", "parseh.pdf")
My.Computer.FileSystem.WriteAllBytes(ad, ds.Tables("TABLE").Rows(0).Item("picture"), False)

ممنون میشم اگر بیشتر توضیح بدین.

[b.mahsa]

مشکلم حل شد:خجالت:. ممنون:لبخند:

[milad.biroonvand]

باید اول فایل ها رو تو یک استزیم بریزی و بعد اون ها رو بخونی از تو استریم و در یم doc که باید رفرنسشو به پروژه اضافه کنی بریزی

رفرنس office

microsoft office هستش که از تو add refrence اضافه می کنی .

بعد در دستور
imports inter.office فکر کنم این باشه ، بعد

dim doc as new document