word数据库
❶ 我想把一个word文档存到数据库里面,应该怎样做
最笨的办法:将word文件算作二进制文件,经由过程攫取二进制文件的方法写入文件流,再将文件流数据写入数据库的二进制字段中,反之,将数据库中数据读出再写入二进制文件。
❷ 怎样在Word中创建数据库
给您一段代码,供参考,如有问题,QQ:375267128,传给您一个完整的实例,使用时请引用一下Microsoft Word 11.0 Object Library
Function ZWord1(模板名, 文件名, 记录集, 起始行, 表号, Optional 条件 As String)
Dim doc As New Word.Document ' 定义引用 Microsoft Word 的变量。
Dim BTable As Word.Table
Dim dbs As Database '定义引用数据库的变量。
Dim rst As DAO.Recordset '定义引用记录集的变量。
Dim I, J, P As Integer
Dim s As String
'On Error GoTo err1
'使用DAO操作打开明细记录集
Set dbs = CurrentDb()
If Nz(条件) <> "" Then 记录集 = "select * from " & 记录集 & " where " & 条件
Set rst = dbs.OpenRecordset(记录集) '设置记录集
If InStr(1, UCase(模板名), ".DOC") > 0 Then
WJ1 = CurrentProject.Path & "\" & 模板名
'模板文件名(CurrentProject.Path为当前数据库的路径)
Else
WJ1 = CurrentProject.Path & "\" & 模板名 & ".DOC"
'模板文件名(CurrentProject.Path为当前数据库的路径)
End If
If InStr(1, UCase(文件名), ".DOC") > 0 Then
WJ2 = CurrentProject.Path & "\" & 文件名 '目标文件名
Else
WJ2 = CurrentProject.Path & "\" & 文件名 & ".DOC" '目标文件名
End If
FileCopy WJ1, WJ2 '拷贝文件(模板文件拷贝成目标文件)
Set doc = GetObject(WJ2, "Word.Document") '建立与Word的连接变量
doc.Application.Visible = True '打开属性为真
doc.Activate
Set BTable = doc.Application.ActiveDocument.Tables(表号)
Set rst = dbs.OpenRecordset(记录集) '设置记录集
If Not rst.EOF Then rst.MoveFirst
I = 起始行
While Not rst.EOF
Set rowNew = BTable.Rows.Add() '加入一行
J = 0
For Each HCell In BTable.Rows(I).Cells
HCell.Range.InsertAfter Nz(rst.Fields(J))
J = J + 1
Next HCell
rst.MoveNext
I = I + 1
Wend
doc.Save '保存Word
doc.Application.Quit '关闭Word
Set doc = Nothing '清除内存变量
Set BTable = Nothing
Set dbs = Nothing
Set rst = Nothing
ZWord1 = True
Exit Function
err1:
doc.Application.Quit
Set doc = Nothing '清除内存变量
Set BTable = Nothing
Set dbs = Nothing
Set rst = Nothing
ZWord1 = False
MsgBox ("出现错误,可能是Word已打开,请关闭Word后再试")
End Function
❸ 如何将word中的数据导入到数据库中
1、首先,打开媒介工具“记事本”,将word文件里需要导入的数据,复制粘贴到记事本当中,然后保存成为txt文件,本例中将txt文件取名为“数据源.txt”。
2/8
2、打开excel表格,点击“数据”选项卡,找到“自文本”。
小朋友语言迟缓2岁至4岁孩子不说话严重吗?
广告
3/8
3、点击“自文本”,弹出下一窗口,选择刚才保存的名为“数据源”的txt类型文件,点击“导入”。因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn,所以需要事先将word转变为txt。
【家长必看】_说话晚的孩子
广告
4/8
4、弹出“文本导入向导”对话框。选择最适合的文件类型,方便导入后,数据以已选择方式分列。点击“下一步”。
特别注意,如果选的“分隔符号”,则分隔符号必须是英文状态下的符号,否则导入后无法分列。
两岁小孩说话晚是什么原因?说话晚怎么办?
广告
5/8
5、设置分列数据所包含的分隔符号,其实就是导入数据列数的控制,选择分隔符。
示例文档用“,”把每列隔开的,所以选择“逗号”。
完成设定后,点击下一步。
6/8
6、列数据格式选择”常规“,”常规“选项更为智能。
完成设定后,点击完成。
7/8
7、数据存放位置最好是“现有工作表=$A$1”,指的就是从当前表格的第一行第一列开始放置数据。点击确定。
8/8
8、数据导入完成。
可以进一步编辑,或者是做几个表格的数据比对啦!