Question

vb.net如何实现向sql server2008上传下载word文件的功能（只负责上传下载，无需查看word中的内容）

求代码。。。真能解决问题可加分

Answer 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