http://support.microsoft.com/default.aspx?scid=kb;EN-US;309158你看看吧,把 bmp 改成word 试试。。你把 bmp改成 word ,也可用存来存取 word 文档。。
数据库中用image 类型存word 文档
Dim cnn As New OracleConnection(G_strCnn) Dim com As New OracleCommand If strParent = Nothing Or strParent = "" Then com.CommandText = "Select WJ,WJMC FROM documents WHERE wjlx='" & strchapter & "' And JH='" & strjh & "' And zy='" & strtype & "'" Else com.CommandText = "Select WJ,WJMC FROM documents WHERE wjlx='" & strchapter & "' And JH='" & strjh & "' And zy='" & strtype & "' And parentnodeid='" & strParent & "'" End If com.Connection = cnn Dim dr As OracleDataReader Dim bFile() As Byte Try cnn.Open() dr = com.ExecuteReader If dr.Read Then ReDim bFile(dr.GetOracleLob(0).Length) strDiskFileName = Server.MapPath(".") & "\FileCache\" & dr.Item(1) Me.txtFileName.Text = strDiskFileName strHttpFileNameAs = "./FileCache/" & dr.Item(1) dr.GetOracleLob(0).Read(bFile, 0, dr.GetOracleLob(0).Length) Dim oFile As New System.IO.FileStream(strDiskFileName, IO.FileMode.Create) oFile.Write(bFile, 0, bFile.Length) oFile.Flush() oFile.Close() Else lblDisplayReport.Text = "请添加相关的报告!" End If Catch ex As Exception Response.Write(ex.ToString) Finally dr.Close() dr.Dispose() com.Dispose() cnn.Close() cnn.Dispose() End Try strFilePath = "files" Dim strScript As String strScript = "<script language='javascript'>document.frames(""iframereport"").location.href=""" & strHttpFileNameAs & """;</script>"
_fileStream = new FileStream(fullPath,System.IO.FileMode.Open);
byte[] Data;
//再将该文件流转换为Byte类型,以便能够保存到数据库
Data=new Byte[_fileStream.Length];
_fileStream.Read(Data,0,(int)_fileStream.Length);
.
.
.
ds.Table[0].Row[0]["word_data"] = Data;
Dim com As New OracleCommand
If strParent = Nothing Or strParent = "" Then
com.CommandText = "Select WJ,WJMC FROM documents WHERE wjlx='" & strchapter & "' And JH='" & strjh & "' And zy='" & strtype & "'"
Else
com.CommandText = "Select WJ,WJMC FROM documents WHERE wjlx='" & strchapter & "' And JH='" & strjh & "' And zy='" & strtype & "' And parentnodeid='" & strParent & "'"
End If
com.Connection = cnn
Dim dr As OracleDataReader
Dim bFile() As Byte
Try
cnn.Open()
dr = com.ExecuteReader
If dr.Read Then
ReDim bFile(dr.GetOracleLob(0).Length)
strDiskFileName = Server.MapPath(".") & "\FileCache\" & dr.Item(1)
Me.txtFileName.Text = strDiskFileName
strHttpFileNameAs = "./FileCache/" & dr.Item(1)
dr.GetOracleLob(0).Read(bFile, 0, dr.GetOracleLob(0).Length)
Dim oFile As New System.IO.FileStream(strDiskFileName, IO.FileMode.Create)
oFile.Write(bFile, 0, bFile.Length)
oFile.Flush()
oFile.Close()
Else
lblDisplayReport.Text = "请添加相关的报告!"
End If Catch ex As Exception
Response.Write(ex.ToString)
Finally
dr.Close()
dr.Dispose()
com.Dispose()
cnn.Close()
cnn.Dispose()
End Try
strFilePath = "files"
Dim strScript As String
strScript = "<script language='javascript'>document.frames(""iframereport"").location.href=""" & strHttpFileNameAs & """;</script>"