请帮忙看看DAO，有更好的想法也请提示一下，谢谢！

koreazheng

各位高手，请看一下如下的例子怎么改，先谢了！

我有一个很大的韩英词典ACCESS库，想在WORD中做成词典直接查用。我在WORD VBA中做了一个FORM，两个command，想把user表中的111全部显示出来在textbox中或者插入文档中，请各位高手帮忙或予以指点。再次感谢！

另外，有需要韩英词典的朋友，也可直接给我留下EMAIL，我给你们发去。大家一定要帮忙，我急用啊，谢谢！

Private Sub CommandButton1_Click()
  Dim docNew As Document
    Dim dbNorthwind As DAO.Database
    Dim rdShippers As Recordset
    Dim intRecords As Integer


    Set docNew = ActiveDocument 'Documents.Add
        
    Set dbNorthwind = OpenDatabase _
        (Name:="D:\db1.mdb")
   
    Set rdShippers = dbNorthwind.OpenRecordset(Name:="user")
    rdShippers.Index = "Korean"    '＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊只能在ＡＣＣＥＳＳ中设定
    rdShippers.Seek "=", TextBox1.Text '************
        If rdShippers.NoMatch Then
     MsgBox "NO RECORDS"
     Else
     MsgBox "FIND"
                     TextBox2.Text = rdShippers.Fields(3).Value
     docNew.Content.InsertAfter Text:=rdShippers.Fields(3).Value
                      rdShippers.MoveNext
     docNew.Content.InsertParagraphAfter '********只能插入一个记录，如何把其它记录查出并显示出来啊？
        End If
   
    rdShippers.Close
   
    dbNorthwind.Close

End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub UserForm_Click()

End Sub

[此贴子已经被作者于2006-1-20 17:19:47编辑过]

一点通

提问题时建议在原贴中再提问，这样会对解决问题有一个连续性，同时请不要指定某人来复贴，这样会失去其他人帮你的机会

koreazheng

好的，谢谢！

koreazheng

谢谢提醒，以后我将改进发贴的方式！

fan0217

此例是采用ADO从Word获得在同一目录的Access文件中的资料，然后插入到文档中。

[此贴子已经被作者于2006-1-21 20:26:05编辑过]

fan0217

设置主键（DAO）和设置顺序号（ADO）可参考这个例子。

[此贴子已经被作者于2006-1-21 20:25:00编辑过]

koreazheng

非常感谢！

fan0217

将：.SQL = "select korean.korean,korean.chinese,korean.meaning from korean where korean like '" & mysql & "';"
改为：

.SQL = "select * from korean where korean like *'" & mysql & "*';"

试试！

koreazheng

问题已经解决，问题出在第二个字段是NULL是未能将结果取出，最后把NULL值转化成空格就解决了问题。再次对您的帮助表示感谢！

fan0217

http://www.office-cn.net/forum.php?mod=viewthread&tid=35985

我重新做了个，按你的要求，只是使用的不同的表。采用的是ADO，速度还算可以。

建议你在命名数据库对象是尽量不要使用系统保留字。