如何将WORD文档(文档中有文字、表格、图片)保存在ＡＣＣＥＳＳ数据库中
如何将WORD文档(文档中有文字、表格、图片)保存在ＡＣＣＥＳＳ数据库中以及从数据库中读出来还原为ＷＯＲＤ文档 问题点数：20、回复次数：5Top
1 楼wangchaocn（(小雨点)）回复于 2005-11-05 17:07:53 得分 0
oleTop
2 楼jeffishow（轩辕子）回复于 2005-11-05 17:50:29 得分 0
这也可以吗？看有没有其他人知道Top
3 楼YZFFHH（风风火火）回复于 2005-11-05 20:00:14 得分 0
能不能提供源代码Top
4 楼yrh2008sql（yrh2008sql）回复于 2005-11-07 14:27:57 得分 15
这是图片的代码
imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Dim cnn As Data.OleDb.OleDbConnection
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Dispose(True)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
End Sub
Private Sub DBInit()
Try
cnn = New Data.OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\test.mdb")
cnn.Open()
Catch exp As OleDb.OleDbException
MsgBox(exp.Message)
End
End Try
End Sub
Private Sub DBRelease()
cnn.Close()
cnn = Nothing
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If PictureBox1.Image Is Nothing Then
MsgBox("请先选择图片", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim bt(fs.Length) As Byte
fs.Read(bt, 0, fs.Length)
fs.Close()
fs = Nothing
Dim oleCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
DBInit()
oleCmd.Connection = cnn
oleCmd.CommandType = CommandType.Text
oleCmd.CommandText = "INSERT INTO test (img) VALUES (@img)"
oleCmd.Parameters.Add("@img", OleDb.OleDbType.Binary).Value = bt
oleCmd.ExecuteNonQuery()
oleCmd = Nothing
DBRelease()
MsgBox("图片插入成功")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim oleCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT img FROM test WHERE id=1")
oleCmd.CommandType = CommandType.Text
DBInit()
oleCmd.Connection = cnn
Dim dr As OleDb.OleDbDataReader = oleCmd.ExecuteReader(CommandBehavior.SingleRow)
If dr.Read Then
If Not IsDBNull(dr.Item(0)) Then
Dim bt() As Byte = dr.Item(0)
Dim ms As MemoryStream = New MemoryStream(bt)
PictureBox2.Image = Image.FromStream(ms)
Else
MsgBox("无图片")
End If
Else
MsgBox("无数据")
End If
dr.Close()
dr = Nothing
oleCmd = Nothing
DBRelease()
End Sub
End Class
Top
5 楼dalianu（昵称一定要写的很长，即使人长丑点也要让人觉得有气派！）回复于 2005-11-07 16:26:37 得分 5
不是要把word的文字,图片信息倒入啊....你这相当于把Word读成流到Access中.
你可以用FileStream读Word文件,之后通过BinaryReader方法取得二进制,用二进制Byte()取得,再写入Access中.
取得时,先从Access写入到一个Byte()中,再通过BinaryWriter操作一个文件流FileStream写成Word文件....Top
