a1b2uu
شنبه 27 آذر 1389, 14:12 عصر
سلام دوستان
با این کد word رو در دیتا بیسم ذخیره میکنم.
Dim ObjCon As New SqlConnection
Dim Command As New SqlCommand
Dim da As New SqlDataAdapter
Dim WordFile As Object = Nothing
WordFile = File.ReadAllBytes("c:/file.doc")
ObjCon.ConnectionString = "Data Source=localhost;Initial Catalog=test1;Integrated Security=True"
Command.Connection = ObjCon
Command.Parameters.Clear()
Command.CommandText = "Insert Into Tword (Files) Values (@Files)"
Command.Parameters.AddWithValue("@Files", WordFile)
ObjCon.Open()
Command.ExecuteNonQuery()
ObjCon.Close
برای باز خوانی هم از کد زیر استفاده میکنم
Dim Oword As Microsoft.Office.Interop.Word.Application
Oword = GetObject(, "Word.Application")
Oword = CreateObject("Word.Application")
Oword.Visible = True
Oword.Activate()
Oword.Documents.Add.Paragraphs.Alignment = WdParagraphAlignment.wdAlignParagraphLeft
'//فراخوانی اطلاعات از اس کیو ال
Dim a As New SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog=test1;Integrated Security=True"
Dim b As New SqlCommand
Dim c As New SqlDataAdapter
c.SelectCommand = b
c.SelectCommand.CommandType = CommandType.Text
c.SelectCommand.CommandText = "use test1 select * from Tword "
c.SelectCommand.Connection = a
Dim d As New DataSet
d.Clear()
c.Fill(d)
If d.Tables(0).Rows.Count > 0 Then
TextBox4.Text = Trim(d.Tables(0).Rows(0).Item("Files")).ToString
End If
Oword.Selection.TypeText("" & TextBox4.Text & "")
Oword.PrintOut
اما اطلاعاتم به این صورت نمایش داده میشه.
ذدà،±ل
لطفا راهنماییم کنید.
.
با این کد word رو در دیتا بیسم ذخیره میکنم.
Dim ObjCon As New SqlConnection
Dim Command As New SqlCommand
Dim da As New SqlDataAdapter
Dim WordFile As Object = Nothing
WordFile = File.ReadAllBytes("c:/file.doc")
ObjCon.ConnectionString = "Data Source=localhost;Initial Catalog=test1;Integrated Security=True"
Command.Connection = ObjCon
Command.Parameters.Clear()
Command.CommandText = "Insert Into Tword (Files) Values (@Files)"
Command.Parameters.AddWithValue("@Files", WordFile)
ObjCon.Open()
Command.ExecuteNonQuery()
ObjCon.Close
برای باز خوانی هم از کد زیر استفاده میکنم
Dim Oword As Microsoft.Office.Interop.Word.Application
Oword = GetObject(, "Word.Application")
Oword = CreateObject("Word.Application")
Oword.Visible = True
Oword.Activate()
Oword.Documents.Add.Paragraphs.Alignment = WdParagraphAlignment.wdAlignParagraphLeft
'//فراخوانی اطلاعات از اس کیو ال
Dim a As New SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog=test1;Integrated Security=True"
Dim b As New SqlCommand
Dim c As New SqlDataAdapter
c.SelectCommand = b
c.SelectCommand.CommandType = CommandType.Text
c.SelectCommand.CommandText = "use test1 select * from Tword "
c.SelectCommand.Connection = a
Dim d As New DataSet
d.Clear()
c.Fill(d)
If d.Tables(0).Rows.Count > 0 Then
TextBox4.Text = Trim(d.Tables(0).Rows(0).Item("Files")).ToString
End If
Oword.Selection.TypeText("" & TextBox4.Text & "")
Oword.PrintOut
اما اطلاعاتم به این صورت نمایش داده میشه.
ذدà،±ل
لطفا راهنماییم کنید.
.