＋设为首页 ＋添加到收藏夹
在domino数据库isodcs.nsf中有一个表test上有三个域fil1,fil2,fil3，如何将test表中的三个域值发送到一个 SQL SERVER的数据库表中。
请写出大致的实现方法和程序代码
Set session = New NotesSession
Set doc = session.DocumentContext
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Call con.Disconnect()
If con.ConnectTo(ODBC名,访问用户名,密码) Then
Set qry.connection = con
qry.SQL = "SELECT * FROM 表名"
Set result.Query = qry
Call result.Execute()
Call result.LastRow()
Call result.AddRow()
Call result.SetValue(字段名,Trim(doc.fil1(0)))
Call result.SetValue(字段名,Trim(doc.fil1(0)))
Call result.SetValue(字段名,Trim(doc.fil1(0)))
Call result.UpdateRow()
Messagebox("添加成功！")
Else
Messagebox("无法连接数据库，请检查")
End If
