在Word获得在同一目录的Access文件中的资料，然后插入到文档中。

fan0217

在Word中建立了个用户窗体，然后在窗体中输入查询单词，通过ADO查询Access数据库中的表，并返回查询结果至用户窗体，或插入文档中。

Word中需要启用宏，降低安全级别才可以运行。

[此贴子已经被作者于2006-1-23 19:00:52编辑过]

情比金坚

没看懂啊，你那个word中的按钮按了没反应啊。直接点击access上《用word发布》按钮不就行了，

koreazheng

我按着ACCESS的帮助做了一个，速度还行，但用代码生成的结果在ACCESS中（生成的查询）是没错的，但在WORD中却有些词查不出来，造成没有结果插入。可能是我的textbox的值有问题，现在搞不清楚怎么回事。

你看看有没有什么参考价值。另请帮忙改进一下。因为我那个记库太大,数百万词条与解释（压缩后400多兆），无法上传。请你把一个表user的字段设成korean,chinese,meaning就行了。

Private Sub CommandButton1_Click()
   Dim dbsCurrent As Database
   Dim qdfBestSellers As QueryDef
   Dim qdfBonusEarners As QueryDef
   Dim rstTopSeller As Recordset
   Dim rstBonusRecipients As Recordset
   Dim strAuthorList As String
   Dim dicstr As String
   Dim mysql, inter As String
   
   
   On Error GoTo Err_zjy
   dicstr = ""
''插入各词间的分隔符   

inter = "______________________________________________________________________________"
   
   Set docNew = ActiveDocument
   ' Open a database from which QueryDef objects can be
   ' created.
   Set dbsCurrent = OpenDatabase("D:\software\kordicworks\词典\korea.mdb")
   Set qdfBestSellers = dbsCurrent.CreateQueryDef("")

   mysql = TextBox1.Text
   With qdfBestSellers
      '.Connect = "ODBC;DATABASE=user;DSN=Korean"
      .SQL = "select korean.korean,korean.chinese,korean.meaning from korean where korean like '" & mysql & "';"
      Set rstTopSeller = .OpenRecordset()
      rstTopSeller.MoveFirst
   End With


   ' Build the output string.
   With rstTopSeller
      Do While Not .EOF

''插入到WORD文件中
         'docNew.Content.InsertAfter Text:=.Fields(1).Value
         'docNew.Content.InsertParagraphAfter
         dicstr = dicstr + inter + Chr(10) + Chr(13) + .Fields(0).Value + Chr(10) + Chr(13) + .Fields(1).Value + Chr(10) + Chr(13) + .Fields(2).Value
         .MoveNext
      Loop
   End With
   TextBox2.Text = dicstr
   MsgBox "共" & rstTopSeller.RecordCount & "条记录"
   rstTopSeller.Close
   dbsCurrent.Close
'下面一句也有问题，其实有结果时也报这句，可能是到最后记录了吧。晕

Err_zjy:
   'MsgBox "查无此词，请重新输入吧！"
   Exit Sub
  
End Sub

Private Sub CommandButton2_Click()
End
End Sub

fan0217

以下是引用情比金坚在2006-1-21 21:20:00的发言：



没看懂啊，你那个word中的按钮按了没反应啊。

在Word中需要启用宏，降低安全级别才可以运行。

[此贴子已经被作者于2006-1-22 10:55:53编辑过]

fan0217

以下是引用情比金坚在2006-1-21 21:20:00的发言：


直接点击access上《用word发布》按钮不就行了，

但如果Access数据库不在本地，就无法直接用“用word发布”了啊！

[此贴子已经被作者于2006-1-22 10:51:26编辑过]

方漠

以前有个仁兄有做过一个用Word域读取ACCESS数据的报表，个人认为做得很好，且速度很快，自己找找，好像是什么贵州凯里电力系统的。

fan0217

重新设计了一下，附件在顶楼。

lyzlzldj

我想看看啊

lyzlzldj

我正在做一个access数据库中多个表插入word的报表

lyzlzldj

能否下载看看