以下是读出文件的代码,和上面的不在一个程序中,参考一下:
Try
If mds.Tables("ysdd").Rows.Count = 0 Then Exit Sub
Dim row As Integer = C1TrueDBGrid1.Row
dr = mds.Tables("ysdd").Rows(row)
Dim mda As SqlDataAdapter
mda = New SqlDataAdapter("select ddnr from jygl_ysdd where xh=" & dr!序号, conn)
Dim mds1 As New DataSet
mda.Fill(mds1, "readdd")
Dim s As String
s = Application.StartupPath & "\word.doc"
If IO.File.Exists(s) Then
IO.File.Delete(s)
End If
Dim size() As Byte = mds1.Tables("readdd").Rows(0).Item(0)
Dim fs As IO.FileStream
fs = New IO.FileStream(s, IO.FileMode.CreateNew)
fs.Write(size, 0, size.Length - 0)
fs.Close()
System.Diagnostics.Process.Start(s)
Catch ex As Exception
MsgBox(ex.Source & ex.Message)
End Try
下面是我的一段代码,参考一下(存储)
Dim fs As New IO.FileStream(RTrim(TextBox4.Text), IO.FileMode.Open) 'textbox4.text 为要存储文件的路径
Dim size As String = fs.Length.ToString
Dim byts(fs.Length - 1) As Byte
fs.Read(byts, 0, fs.Length)
fs.Close()
Dim mycom As New SqlCommand
With mycom
.Connection = conninfo
.Parameters.Add("@appname", RTrim(TextBox1.Text))
.Parameters.Add("@appfilename", RTrim(TextBox2.Text))
.Parameters.Add("@nappfilename", RTrim(TextBox5.Text))
.Parameters.Add("@appversion", RTrim(TextBox3.Text))
.Parameters.Add("@appdata", byts)
End With
mycom.CommandText = "insert into appupdate (appname,appfilename,nappfilename,appversion,appdata) values (@appname,@appfilename,@nappfilename,@appversion,@appdata)"
If conninfo.State = ConnectionState.Closed Then conninfo.Open()
mycom.ExecuteNonQuery()