如何将notes数据导入ms access数据库？

如何将notes数据导入ms access数据库？

---

看下主要代码，老是添加不进去。

Dim msName As String
msName = ws.Prompt( PROMPT_OKCANCELEDIT, "输入","请输入要导入MS Access的名称：" )

Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("MS Access Database")
qry.SQL = "SELECT * from " & msName
result.Execute

key = Ubound(vSelect)

Dim count As Integer
count = 0

xLastNum = 2
For j = 0 To key
Set dc = view.getalldocumentsByKey(vSelect(j),True)
For i = 1 To dc.count
Set tmpdoc = dc.GetNthDocument(i)

result.AddRow()
Call result.SetValue("模块号", tmpdoc.ModuleNo(0))

Call result.SetValue("模块名称", tmpdoc.Module(0))

Call result.SetValue("件号", tmpdoc.ItemNumber(0))

Call result.SetValue("描述", tmpdoc.Description(0))

Call result.SetValue("数量", tmpdoc.Qty(0))

Call result.SetValue("价格", tmpdoc.Price1(0))

Call result.SetValue("单位", tmpdoc.Unit(0))

Call result.SetValue("合同号", tmpdoc.HTH(0))

Call result.SetValue("批次",tmpdoc.PC(0))

Call result.SetValue("日期", tmpdoc.Date(0))

Call result.SetValue("Level",tmp