目前只会读取显示其他类型的数据,对于二进制的不太了解麻烦指点。麻烦给出完整的代码。

解决方案 »

  1.   

    这是一个标准上传图片例题下面的代码实现向SQL Server数据库添加图片和文字的功能。首先,在SQL查询分析器中执行下面的语句,以创建表和存储过程。Drop Table PersonGo
    Create Table Person
    (
    PersonID Int Identity,
    PersonEmail Varchar(255),
    PersonName Varchar(255),
    PersonSex Char(1),
    PersonDOB DateTime,
    PersonImage Image,
    PersonImageType Varchar(255)
    )Drop Proc sp_person_ispGo
    Create Proc sp_person_isp
    @PersonEmail Varchar(255),
    @PersonName Varchar(255),
    @PersonSex Char(1),
    @PersonDOB DateTime,
    @PersonImage Image,
    @PersonImageType Varchar(255)
    As
    Begin
      Insert into Person 
       (PersonEmail, PersonName, PersonSex, 
       PersonDOB, PersonImage, PersonImageType)
       Values
       (@PersonEmail, @PersonName, @PersonSex, 
       @PersonDOB, @PersonImage, @PersonImageType)
    EndGo下面就是完整的代码,拷贝即可运行:<%@ Import Namespace="System.IO" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <%@ Import Namespace="System.Data" %>
    <%@ Page Language="vb" %>
    <HTML>
    <HEAD>
    <title>向SQL Server插入图片</title>
    <script runat="server">
    Public Sub AddPerson(sender As Object, e As EventArgs)
      Dim intImageSize As Int64
      Dim strImageType As String
      Dim ImageStream As Stream
      ' 获得图片的大小
      intImageSize = PersonImage.PostedFile.ContentLength
      ' 获得图片类型
      strImageType = PersonImage.PostedFile.ContentType
      '读取图片
      ImageStream = PersonImage.PostedFile.InputStream
      Dim ImageContent(intImageSize) As Byte
      Dim intStatus As Integer
      intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
      ' 创建Connection和Command对象
      Dim strCnn As String = "Data Source=.;Initial Catalog=mxh;User Id=sa;Password=;"
      Dim myConnection As New SqlConnection(strCnn)
      Dim myCommand As New SqlCommand("sp_person_isp", myConnection)
      ' 使用存储过程
      myCommand.CommandType = CommandType.StoredProcedure
      ' 向存储过程添加参数
      Dim prmEmail As New SqlParameter("@PersonEmail", SqlDbType.VarChar, 255)
      prmEmail.Value = txtPersonEmail.Text
      myCommand.Parameters.Add(prmEmail)  Dim prmName As New SqlParameter("@PersonName", SqlDbType.VarChar, 255)
      prmName.Value = txtPersonName.Text
      myCommand.Parameters.Add(prmName)
      Dim prmSex As New SqlParameter("@PersonSex", SqlDbType.Char, 1)  If sexMale.Checked Then
      prmSex.Value = "M"
      Else
      prmSex.Value = "F"
      End If
      myCommand.Parameters.Add(prmSex)
      
      Dim prmPersonDOB As New SqlParameter("@PersonDOB", SqlDbType.DateTime)
      prmPersonDOB.Value = txtPersonDob.Text
      myCommand.Parameters.Add(prmPersonDOB)  Dim prmPersonImage As New SqlParameter("@PersonImage", SqlDbType.Image)
      prmPersonImage.Value = ImageContent
      myCommand.Parameters.Add(prmPersonImage)  Dim prmPersonImageType As New SqlParameter("@PersonImageType", SqlDbType.VarChar, 255)
      prmPersonImageType.Value = strImageType
      myCommand.Parameters.Add(prmPersonImageType)  Try
      myConnection.Open()
      myCommand.ExecuteNonQuery()
      myConnection.Close()
      Response.Write("添加成功!")
        Catch SQLexc As SqlException
        Response.Write("添加失败,原因:" & SQLexc.ToString())
      End Try
    End Sub
    </script>
    </HEAD>
    <body style="FONT: 9pt 宋体">
        <form enctype="multipart/form-data" runat="server" ID="Form1">
          <asp:Table Runat="server" Width="50%" BorderWidth="1" BackColor="Beige" ID="Table1"
     Font-Name="宋体" Font-Size="9pt">
            <asp:TableRow>
              <asp:TableCell ColumnSpan="2" BackColor="#ff0000">
                <asp:Label ForeColor="#ffffff" font-bold="True" Runat="server" Text="添加新用户" ID="Label1" />
              </asp:TableCell>
            </asp:TableRow>
            <asp:TableRow>
              <asp:TableCell HorizontalAlign="Right">
                <asp:Label Runat="server" Text="姓名" ID="Label2" />
              </asp:TableCell>
              <asp:TableCell>
                <asp:TextBox id="txtPersonName" Runat="server" />
              </asp:TableCell>
            </asp:TableRow>
            <asp:TableRow>
              <asp:TableCell HorizontalAlign="Right">
                <asp:Label Runat="server" Text="电子邮件" ID="Label3" />
              </asp:TableCell>
              <asp:TableCell>
                <asp:TextBox id="txtPersonEmail" Runat="server" />
              </asp:TableCell>
            </asp:TableRow>
            <asp:TableRow>
              <asp:TableCell HorizontalAlign="Right">
                <asp:Label Runat="server" Text="性别" ID="Label4"/>
              </asp:TableCell>
              <asp:TableCell>
                <asp:RadioButton GroupName="sex"  Text="男" ID="sexMale" Runat="server" />
                <asp:RadioButton GroupName="sex"  Text="女" ID="sexFeMale" Runat="server" />
              </asp:TableCell>
            </asp:TableRow>
            <asp:TableRow>
              <asp:TableCell HorizontalAlign="Right">
                <asp:Label Runat="server" Text="出生日期" ID="Label5"/>
              </asp:TableCell>
              <asp:TableCell>
                <asp:TextBox id="txtPersonDOB" Runat="server" />
              </asp:TableCell>
            </asp:TableRow>
            <asp:TableRow>
              <asp:TableCell HorizontalAlign="Right">
                <asp:Label Runat="server" Text="照片" ID="Label6"/>
              </asp:TableCell>
              <asp:TableCell>
                <input type="file" id="PersonImage" runat="server" NAME="PersonImage" /></asp:TableCell>
            </asp:TableRow>
            <asp:TableRow>
              <asp:TableCell ColumnSpan="2" HorizontalAlign="Center">
                <asp:Button Text=" 添  加 " OnClick="AddPerson" Runat="server" ID="Button1"/>
              </asp:TableCell>
            </asp:TableRow>
          </asp:Table>
        </form>
    </body>
    </HTML>
      

  2.   

    上面的代码没问题,问题是我想要一个在页面上显示image图片的代码,如果你还有的话就再麻烦一下了!!