Office中国论坛/Access中国论坛

标题: 请帮忙看看DAO，有更好的想法也请提示一下，谢谢！ [打印本页]

作者: koreazheng 时间: 2006-1-20 18:05
标题: 请帮忙看看DAO，有更好的想法也请提示一下，谢谢！
各位高手，请看一下如下的例子怎么改，先谢了！

我有一个很大的韩英词典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
[attach]15491[/attach]

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

作者: 一点通 时间: 2006-1-20 19:58
提问题时建议在原贴中再提问，这样会对解决问题有一个连续性，同时请不要指定某人来复贴，这样会失去其他人帮你的机会

作者: koreazheng 时间: 2006-1-20 20:01
好的，谢谢！

作者: koreazheng 时间: 2006-1-20 20:04
谢谢提醒，以后我将改进发贴的方式！

作者: fan0217 时间: 2006-1-22 04:03
[attach]15510[/attach]
此例是采用ADO从Word获得在同一目录的Access文件中的资料，然后插入到文档中。

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

作者: fan0217 时间: 2006-1-22 04:25
[attach]15512[/attach]

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

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

作者: koreazheng 时间: 2006-1-22 17:46
非常感谢！

作者: fan0217 时间: 2006-1-22 18:49
将：.SQL = "select korean.korean,korean.chinese,korean.meaning from korean where korean like '" & mysql & "';"
改为：

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

试试！

作者: koreazheng 时间: 2006-1-24 20:17
问题已经解决，问题出在第二个字段是NULL是未能将结果取出，最后把NULL值转化成空格就解决了问题。再次对您的帮助表示感谢！

作者: fan0217 时间: 2006-1-24 21:01
http://www.office-cn.net/forum.php?mod=viewthread&tid=35985

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)