access数据库中，数据以rtf格式存储(图文混合的数据)，在vb中如何导出为ex access数据库中的内容是rtf格式的，导出到excel时...

Access转换成word文档的方法如下：

1、在MicrosoftAccess中，打开所需数据库，然后打开数据库对象：表、查询、窗体或报表。
2、选定所需输出数据的行和列。
3、单击“文件”菜单中的“另存为/导出”命令。
4、选择“另存为一个外部文件或数据库”选项，然后单击“确定”按钮。
5、在“保存类型”框中，为输出数据选择格式：如果要创建保持原有数据格式的文档，请单击“RTF格式”；如果要创建普通的文本文件，作为邮件合并数据源使用，请单击“MicrosoftWord合并文件”按钮。
6、在“文件名”框中，指定新文档的文件名称。
7、如果以RTF格式保存文档，并且希望马上启动Word打开此文档，请选中“自动启动”复选框。
8、如果要选定指定的数据行列，则要选中“选择”选项。
9、单击“导出”命令完成输出。

怎么用VB将连接在access中的数据输出到word中呢？~

我以前写过一个写到excel中的。对你可能有帮助。
Private Sub Command2_Click()
p = InputBox("请输入文件名", "文件名.xls")
Dim i As Integer
Dim j As Integer
Dim xl As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xl = New Excel.Application
Set xlbook = xl.Workbooks.Add
Set xlsheet = xlbook.Worksheets("sheet1")

Select Case Combo1.Text
Case "查询入库单"
If Combo2.Text = "显示器" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "供应商编号"
xl.Range("G3").Value = "供应商名称"
xl.Range("H3").Value = "商品规格"
xl.Range("I3").Value = "单位"
xl.Range("J3").Value = "数量"
xl.Range("K3").Value = "单价"
xl.Range("L3").Value = "金额"
xl.Range("M3").Value = "入库时间"
xl.Range("N3").Value = "经手人"
xl.Range("O3").Value = "备注"
ElseIf Combo2.Text = "主机散件" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "商品类型"
xl.Range("G3").Value = "供应商名称"
xl.Range("H3").Value = "供应商编号"
xl.Range("I3").Value = "商品规格"
xl.Range("J3").Value = "单位"
xl.Range("K3").Value = "数量"
xl.Range("L3").Value = "单价"
xl.Range("M3").Value = "金额"
xl.Range("N3").Value = "入库时间"
xl.Range("O3").Value = "经手人"
xl.Range("P3").Value = "备注"
ElseIf Combo2.Text = "打印机、复印机" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "商品类型"
xl.Range("G3").Value = "供应商名称"
xl.Range("H3").Value = "供应商编号"
xl.Range("I3").Value = "商品规格"
xl.Range("J3").Value = "单位"
xl.Range("K3").Value = "数量"
xl.Range("L3").Value = "单价"
xl.Range("M3").Value = "金额"
xl.Range("N3").Value = "入库时间"
xl.Range("O3").Value = "经手人"
xl.Range("P3").Value = "备注"
ElseIf Combo2.Text = "路由器、交换机" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "商品类型"
xl.Range("G3").Value = "供应商名称"
xl.Range("H3").Value = "供应商编号"
xl.Range("I3").Value = "商品规格"
xl.Range("J3").Value = "单位"
xl.Range("K3").Value = "数量"
xl.Range("L3").Value = "单价"
xl.Range("M3").Value = "金额"
xl.Range("N3").Value = "入库时间"
xl.Range("O3").Value = "经手人"
xl.Range("P3").Value = "备注"
ElseIf Combo2.Text = "其他设备" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "供应商编号"
xl.Range("G3").Value = "供应商名称"
xl.Range("H3").Value = "商品类型"
xl.Range("I3").Value = "商品规格"
xl.Range("J3").Value = "单位"
xl.Range("K3").Value = "数量"
xl.Range("L3").Value = "单价"
xl.Range("M3").Value = "金额"
xl.Range("N3").Value = "入库时间"
xl.Range("O3").Value = "经手人"
xl.Range("P3").Value = "备注"
End If

Case "查询出库单"
If Combo2.Text = "显示器" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "客户名称"
xl.Range("G3").Value = "商品规格"
xl.Range("H3").Value = "单位"
xl.Range("I3").Value = "数量"
xl.Range("J3").Value = "单价"
xl.Range("K3").Value = "金额"
xl.Range("L3").Value = "出库时间"
xl.Range("M3").Value = "经手人"
xl.Range("N3").Value = "备注"
ElseIf Combo2.Text = "主机散件" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "客户名称"
xl.Range("G3").Value = "商品类型"
xl.Range("H3").Value = "商品规格"
xl.Range("I3").Value = "单位"
xl.Range("J3").Value = "数量"
xl.Range("K3").Value = "单价"
xl.Range("L3").Value = "金额"
xl.Range("M3").Value = "出库时间"
xl.Range("N3").Value = "经手人"
xl.Range("O3").Value = "备注"
ElseIf Combo2.Text = "打印机、复印机" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "客户名称"
xl.Range("G3").Value = "商品类型"
xl.Range("H3").Value = "商品规格"
xl.Range("I3").Value = "单位"
xl.Range("J3").Value = "数量"
xl.Range("K3").Value = "单价"
xl.Range("L3").Value = "金额"
xl.Range("M3").Value = "出库时间"
xl.Range("N3").Value = "经手人"
xl.Range("O3").Value = "备注"
ElseIf Combo2.Text = "路由器、交换机" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "客户名称"
xl.Range("G3").Value = "商品类型"
xl.Range("H3").Value = "商品规格"
xl.Range("I3").Value = "单位"
xl.Range("J3").Value = "数量"
xl.Range("K3").Value = "单价"
xl.Range("L3").Value = "金额"
xl.Range("M3").Value = "出库时间"
xl.Range("N3").Value = "经手人"
xl.Range("O3").Value = "备注"
ElseIf Combo2.Text = "其他设备" Then
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "商品编号"
xl.Range("E3").Value = "商品名称"
xl.Range("F3").Value = "客户名称"
xl.Range("G3").Value = "商品类型"
xl.Range("H3").Value = "商品规格"
xl.Range("I3").Value = "单位"
xl.Range("J3").Value = "数量"
xl.Range("K3").Value = "单价"
xl.Range("L3").Value = "金额"
xl.Range("M3").Value = "出库时间"
xl.Range("N3").Value = "经手人"
xl.Range("O3").Value = "备注"
End If

Case "查询报损单"
xl.Range("C3").Value = "ID"
xl.Range("D3").Value = "货品名称"
xl.Range("E3").Value = "货品类型"
xl.Range("F3").Value = "货品规格"
xl.Range("G3").Value = "损坏数量"
xl.Range("H3").Value = "添加人"
xl.Range("I3").Value = "添加时间"
xl.Range("J3").Value = "备注"
xl.Range("K3").Value = ""
xl.Range("L3").Value = ""
xl.Range("M3").Value = ""
xl.Range("N3").Value = ""
xl.Range("O3").Value = ""
End Select

For i = 1 To Adodc1.Recordset.RecordCount
j = 3 + i
For k = 0 To 14
w = Chr(99 + k) & j
xl.Range(w).Value = DataGrid1.Columns(k)
Next k
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveNext
End If
Next i

xlbook.SaveAs App.Path & "\EXCEL表\" & p
xl.quit
MsgBox "数据导出完成", 64

End Sub

很简单啊，用Richtextbox.Rtf 属性啊，返回一个字符串值，不过是包含格式属性的。 所以，在给richtextbox取值和赋值时，请都使用什么rtf属性。

vb如何把选中的access数据进行修改 rt
答：1、对于选中的记录修改其字段值，然后更新记录集即可。2、工具：vb6 3、用adodc连接数据库，用find方法（也可以使用其它方法）选中记录，用Fields().Value修改字段值，用update更新记录集，代码示例如下：Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & ...

access2003数据库中的表以行和列来组织数据,每一行称为()每一列称为...
答：access2003数据库中的表以行和列来组织数据，每一行称为一条记录，每一列称为一个字段。我们把表中的每一行叫做一个“记录”，每一个记录包含这行中的所有信息，就像在通讯录数据库中某个人全部的信息，但记录在数据库中并没有专门的记录名，常常用它所在的行数表示这是第几个记录。字段是比记录更...

access数据库中数据实时写入SQLServer?
答：RT...access是某款软件的服务器端数据库，现在在sqlserver2008里建了一个结构完全一样的数据库，想实现，当access里有数据更新时（增加/删除/修改），更新后的内容实时同步到sqlserver2008里

怎样设置access数据库中性别的有效性规则
答：1.打开access数据库，打开需要设置的数据表，点击视图按钮，切换到设计视图；2.点击性别字段，下方常规选项卡---有效性规则后输入：“男”or“女”，有效性文本后输入：性别只能为男女；3.点击保存即可。

数据库管理系统access中,是/否数据类型的字段值中可以输入什么?是Tru...
答：ACCESS数据库表里字段如果属于"是/否"数据类型，其存储的数据值是布尔值，它只能输入两种值，即“true”和“false”。如果字段的“必填字段”属性设置为“否”你还可以将Null（空值）写入其中。请注意Null不等于零长度字符串""，零长度字符串是无法写入"是/否"数据类型字段的。在ACCESS数据库里，true=...

在Access数据库系统中,什么可以作为查询的数据源?
答：这是一道计算机考试access题，Access数据库中，能够以数据表为数据源进行统计的查询是选择查询。在Access中，表和查询可以作为查询的数据源。体现数据库设计目的的对象是查询。在关系运算中，要从关系模式中指定若干属性组成新的关系，该关系运算称为投影。

ACCESS中如何把文本框的赋值给表
答：RT我的文本框是一个计算公式,怎样把计算的结果添加到一个表中,比如说表"销售表"有"ID","售价"这两个字段,ID是自动编号的,我想设置一按钮,功能是用文本框"总价"的值向"销售表"中添加一条新数据 jz19910907 | 浏览1778 次 |举报 我有更好的答案推荐...

Access 2007中的数据怎么导入Excel文件?
答：在Access 2007数据库中可以导入的文件类型有很多。下面我们以在数据库中导入Excel文件为例，介绍一下导入文件的方法。1、打开数据库后，单击外部数据选项卡导入组中的Excel按钮，弹出获取外部数据-Excel电子表格对话框。2、在获取外部数据-Excel电子表格对话框中，单击浏览按钮，弹出打开对话框。3、在弹出的...

Access是什么数据库管理系统
答：Access是一种传统的桌面型关系数据库，数据库是有结构的数据集合,它与一般的数据文件不同，是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能...

access中的数据类型有哪些,分别是什么
答：Access数据库为字段提供了10种数据类型，具体如下：1．文本型（Text）：用于输入文本或文本与数字相结合的数据，最长为255个字符（字节），默认值是50。在Access中，每一个汉字和所有特殊字符（包括中文标点符号）都算作一个字符。2．货币型（Currency）：用来存储货币值，占8个字节，在计算中禁止四舍...