如何在数据库中读取一个二进制文件，并且将他还原成一个新的word文档，以及如何将word文档保存到数据库的二进制自字段

[dhcfzc]

我想将word文件保存到数据库中的一个二进制字段，当别人读取的时候，为他建立一个新的word文档，他下载编辑完成后，再上传回来，将结果保存到数据库，我希望最好是vb.net的代码，立即给分

[dhcfzc]

能给我VB。net的代码么？另外最好是以doc为例子，谢谢，答完就结账

[taojm]

给你一段例子代码，上传图片进入数据库的，不懂可以继续提问：
private void UploadImage_Click(object sender, System.EventArgs e)
{
/// <summary>
/// ContentType holds the content type of the file that was added to the ImageToUpload
/// control, and HTML input control. </summary>
string ContentType = ImageToUpload.PostedFile.ContentType;
/// <summary>
/// Length holds the size of the file that was added to the ImageToUpload control </summary>
int Length = System.Convert.ToInt32(ImageToUpload.PostedFile.InputStream.Length);

/// <summary>
/// Content will hold the image. It is a byte array of size Length </summary>
byte[] Content = new byte[Length];

/// <summary>
/// The Read method is used to read the file from the ImageToUpload control </summary>
ImageToUpload.PostedFile.InputStream.Read(Content,0,Length);

/// <summary>
/// Open a connection to the SQL Server </summary>
SqlConnection Connection = new SqlConnection("server=localhost;uid=sa;pwd=;database=ImageUpload");
/// <summary>
/// The SqlCommand will be used to insert the image into the Images table </summary>
SqlCommand Command = new SqlCommand("INSERT Into Images(Description, ImageFile, ImageSize, ImageType) Values(@Description, @ImageFile, @ImageSize, @ImageType)", Connection);

/// <summary>
/// The Description parameter is used to add the image file description to the database
SqlParameter imageDescriptionParameter = new SqlParameter("@Description", SqlDbType.NVarChar);
imageDescriptionParameter.Value = imageDescription.Text;
Command.Parameters.Add(imageDescriptionParameter);

/// <summary>
/// The ImageFile parameter is used to add the image file to the database
SqlParameter imageFileParameter = new SqlParameter("@ImageFile", SqlDbType.Image);
imageFileParameter.Value = Content;
Command.Parameters.Add(imageFileParameter);

/// <summary>
/// The ImageSize parameter is used to add the image file size to the database
SqlParameter imageSizeParameter = new SqlParameter("@ImageSize", SqlDbType.Int);
imageSizeParameter.Value = Length;
Command.Parameters.Add(imageSizeParameter);

/// <summary>
/// The ImageType parameter is used to add the image file type to the database
SqlParameter imageTypeParameter = new SqlParameter("@ImageType", SqlDbType.NVarChar);
imageTypeParameter.Value = ContentType;
Command.Parameters.Add(imageTypeParameter);

/// <summary>
/// Open the connection in order to retrieve the record </summary>
Connection.Open();
/// <summary>
/// The SQL statement is executed. ExecuteNonQuery is used since no records
/// will be returned. </summary>
Command.ExecuteNonQuery();
/// <summary>
/// The connection is closed </summary>
Connection.Close();

}

[wantchy]

很简单的给你vb的代码，以前我刚研究这个问题，使用ado访问数据库！
保存到数据库
filename = fpath
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open filename For Binary As #FreeFileNumber
n = LOF(FreeFileNumber)
Label1.Caption = n
ReDim arrBytes(1 To n) As Byte
Get #FreeFileNumber, , arrBytes
Close #FreeFileNumber
Adodc1.Recordset("atext").AppendChunk (arrBytes)
Adodc1.Recordset.UpdateBatch adAffectCurrent
MsgBox ("保存成功!")

'UpLoadFile = True

myerr:
If Err.Number <> 0 Then
'UpLoadFile = False
Err.Clear
End If
——————————————————————————————
取出
With CommonDialog1
'.Flags = cdlOFNAllowMultiselect
.ShowOpen
End With
Dim filename As String
On Error GoTo myerr:
filename = CommonDialog1.filename
Dim n As Integer
n = Len(filename)
filename = Trim(Left(filename, n - 3) & "rtf")

Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
lngsize = Adodc1.Recordset.Fields("atext").ActualSize
arrBytes = Adodc1.Recordset.Fields("atext").GetChunk(lngsize)
FreeFileNumber = FreeFile
Open filename For Binary Access Write As #FreeFileNumber
Put #FreeFileNumber, , arrBytes
Close #FreeFileNumber


RichTextBox1.LoadFile filename
myerr:
If Err.Number <> 0 Then

Err.Clear
End If

[dhcfzc]

luoyeyuan(落恋清洋)你的代码我研究了，对纯文本没有问题，但是对于word文件就不是很好用，我现在是没有办法创建word文件，说没有访问权限

[berylw]

'需要一个多行文本框和2个按钮btWrite2,btRead2
'以下为写入WORD文件
Private Sub btWrite2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btWrite2.Click
Dim resp As Char
record.a = Chr(13) & Chr(10)
FileOpen(1, "test.doc", OpenMode.Binary)
Do
record.id = InputBox("编号")
record.name = InputBox("姓名")
FilePut(1, record)
resp = InputBox("继续输入？（Y/N）")

Loop While UCase(resp) = "Y"
FileClose(1)
End Sub
'以下为读WORD文件
Private Sub btRead2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRead2.Click
Dim s As String
Dim CL As String = Chr(13) & Chr(10)
FileOpen(1, "test.doc", OpenMode.Binary)
Do While Not EOF(1)
FileGet(1, record)
s = s & " " & record.id & " " & record.name & CL
Loop
TextBox1.Text = s
FileClose(1)
End Sub

[berylw]

上例为当你点输入按钮时，出现inputbox，输入1为ID，2为NAME，3为是否继续输入，继续选Y，否则选任意。

当你点读按钮时，你写如DOC文件的内容都被读到多行文本框中，就此而已

[dhcfzc]

怎么不回答我呢？

[chinanewway]

那就对不起了，我这里只有C＃的例子，而且只有读到数据库中的

[dhcfzc]

没有取出的吗？怎么我用file.create创建的test.doc是个纯文本的，怎么创建一个word文件呀！！

[tqinghaijn]

这个是否要用到word对象？读到内存后想法将它作为二进制存入数据库；从数据库取得过程正好相反；没有实践。

[叶虎]

请与我联系，我有一个WebOfficeControl控件，只需200元一套，能完成的功能：
新建word，保存word至数据库，修改word后保存到数据库，打开数据库中的word,支持所有版本的word，简单易用，很方便，如果有意，请留下你的email，我可以发一个试用版给你，试用版只能在
本地机上使用，功能跟正式版一样，其他的电脑不能访问，正式版无限制。
联系电话：[phone]
email；[e-mail]