b.mahsa
دوشنبه 03 اسفند 1388, 13:26 عصر
با سلام
ببخشید که یه سوال تکراری رو مطرح می کنم . خیلی گشتم ولی چیزی پیدا نکردم که مشکلم رو حل کنه .
من فایل 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
ببخشید که یه سوال تکراری رو مطرح می کنم . خیلی گشتم ولی چیزی پیدا نکردم که مشکلم رو حل کنه .
من فایل 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