asp.net 使用VB 语言 ，如何接收 文本信息和 一个二进制文件的 表单 如何存入数据库 和 如何把 数据库二进制的数据 读出？？？？？？？？

Question

asp.net 使用VB 语言 ，如何接收 文本信息和 一个二进制文件的 表单 如何存入数据库 和 如何把 数据库二进制的数据 读出？？？？？？？？
请给出详细的代码，谢谢

Answer 1

思路参考
http://dotnet.aspx.cc/ShowDetail.aspx?id=EY1XLDYV-PIDF-43LO-1WFL-FMY5ALE1F635c# 与 vb转换工具http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx

Answer 2

写二进制数据到数据库
                dim strsql as string
                strsql="更新查询"
                Dim cmd As New SqlClient.SqlCommand
                With cmd
                    .Connection = myconn
                    .CommandText = strsql
                    .Parameters.Add("@二进制字段", SqlDbType.VarBinary, 二进制数据长度).Value = 二进制数据
                    .ExecuteNonQuery()
                End With以文件为例，以下代码读出二进制数据：
 Private Sub ShowWord()        Dim fileCont() As Byte
        Dim filename As String
        '//构建查询语句 
        Public myreader As SqlClient.SqlDataReader
        mycomm = New SqlClient.SqlCommand
        With mycomm
            .Connection = myconn
            .CommandText = ("SELECT 二进制字段,文件名 FROM 数据表 ")        
            myreader = .ExecuteReader
        End With
        If myreader.HasRows Then
            If myreader.Read Then
                fileCont = myreader.GetValue(0)
                filename = myreader(1).ToString
                myreader.Close()
                Response.Clear()
                Response.ContentType = "application/msword"
                '直接打开
                ' Response.AddHeader("Content-Disposition", "inline; filename=" + HttpUtility.UrlEncode(myreader(1).ToString()))
                '另存打开
                Response.AddHeader("Content-Disposition", "attachment; filename=" + HttpUtility.UrlEncode(filename))
                Response.BinaryWrite(fileCont)
                Response.End()            End If
        End If
    End Sub