怎样直接输入到word里,有代码吗?

解决方案 »

  1.   

    已经在我的机器上成功运行:在ie中打开word文件
            SqlCommand1.CommandText = "select f from table1 where (id=7)"
            Dim sqlr As SqlClient.SqlDataReader
            Dim fs As System.IO.Stream
            Dim cs() As Byte
            fs = Response.OutputStream()
            SqlCn.Open()
            sqlr = SqlCommand1.ExecuteReader
            If sqlr.Read Then
                Response.ContentType = "Application/msword"
                'Response.Clear()
                cs = sqlr("f")
                sqlr.GetBytes(0, 0, cs, 0, UBound(cs))
                fs.Write(cs, 0, UBound(cs))
                fs.Close()
            End If
            sqlr.Close()
            SqlCn.Close()