vb.net如何实现向sql server2008上传下载word文件的功能(只负责上传下载,无需查看word中的内容) 30
1个回答
展开全部
Private Sub butsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsave.Click
Dim lbstring As String = ""
Dim lbstringext As String = ""
Dim i As Integer = 0
OpenFileDialog1.Title = "请选择一个文件"
OpenFileDialog1.Multiselect = False
OpenFileDialog1.Filter = "pdf 文件 (*.pdf)|*.pdf|caxa 文件 (*.exb)|*.exb|EXCEL 文件 (*.xls;*.xlsx)|*.xls;*.xlsx|jpg 格式文件 (*.jpg;*.jpeg)|*.jpg;*.jpeg|所有文件 (*.*)|*.*"
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
lbstringext = OpenFileDialog1.FileName.ToString
While InStr(Mid(lbstringext, InStr(lbstringext, ".") + 1), ".") > 0
lbstringext = Mid(lbstringext, InStr(lbstringext, ".") + 1)
End While
Me.Text = "你打开的文件名是:" & OpenFileDialog1.FileName.ToString & " 后缀是:" & Mid(lbstringext, InStr(lbstringext, ".") + 1)
fs = New FileStream(OpenFileDialog1.FileName.ToString(), FileMode.Open, FileAccess.Read)
Me.Text = Me.Text & " 文件的字节数为:" & fs.Length.ToString
Else
Exit Sub
End If
Dim mbr As BinaryReader = New BinaryReader(fs)
Dim data(fs.Length) As Byte
mbr.Read(data, 0, Int(fs.Length))
fs.Close()
mbr.Close()
Dim sqlcomm As New SqlCommand
If sqlconkong.State = ConnectionState.Open Then
sqlconkong.Close()
End If
sqlconkong.Open()
Dim sqlcmdchdm As New SqlCommand("select chdm from img.dbo.bd_img where chdm='" & DataGridView1.CurrentRow.Cells(0).Value.ToString & "'", sqlconkong)
Dim sqlread As SqlDataReader = sqlcmdchdm.ExecuteReader()
If sqlread.Read() Then
sqlcomm.CommandText = "update img.dbo.bd_img set " & lbstring.ToString & "
," & lbstring.ToString & "ext='" & Mid(lbstringext, InStr(lbstringext, ".") + 1) & "' where chdm='" & DataGridView1.CurrentRow.Cells(0).Value & "'"
Else
sqlcomm.CommandText = "insert img.dbo.bd_img(" & lbstring.ToString & ",chdm," & lbstring.ToString & "ext ) values (@t1,'" & DataGridView1.CurrentRow.Cells(0).Value & "','" & Mid(lbstringext, InStr(lbstringext, ".") + 1) & "')"
End If
sqlread.Close()
sqlcomm.Connection = sqlconkong
Try
sqlcomm.Parameters.Add("@t1", SqlDbType.Image)
sqlcomm.Parameters("@t1").Value = data
Catch ex As Exception
MsgBox(ex.Message)
End Try
Try
sqlcomm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("保存成功!", MsgBoxStyle.Information, "提示")
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |