求助：关于从lotus notes 写入sql

半日闲人

从NOTES写入SQL时，提值已经提出来但写不进SQL~
到SETVALUE的时候，虽然执行了，但完全没有起到任何作用。
因为急着要，所以我很着急。
下面是我的代码，请各位高人帮忙看看。
多谢了！ = =|||

Sub Click(Source As Button)
Dim session As NotesSession
Dim db As NotesDataBase
Dim dc As NotesDocumentCollection
Set session=New NotesSession
Set db=session.CurrentDataBase
Dim con As New ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Set qry=New ODBCQuery
Set result=New ODBCResultSet
con.ConnectTo("Text1"


Set qry.Connection=con
Set result.Query=qry
qry.SQL = "SELECT 日期,项目号,项目经理,项目名,项目描述,是否新项目,赔偿,赔偿原因,客户,客户地址,姓名,电话,电邮,首付数目,首付日期,终付日期,终付数目,计划费用,最终费用,总数 from 项目表"
Call result.Execute()
Set dc=db.AllDocuments
If dc.Count=0 Then
result.Close(DB_CLOSE)
con.Disconnect
Exit Sub
End If

For i=1 To dc.Count
Set doc=dc.GetNthDocument(i)

Call result.AddRow()

Forall j In doc.Items
Dim str_name As String
Dim value As Variant
str_name=j.name
If (str_name<>;"Form" And (str_name<>;"$UpdatedBy" Then
value=doc.GetItemValue(str_name)
Call result.SetValue(str_name,value(0))



End If

End Forall

result.UpdateRow


Next
result.Close(DB_CLOSE)
con.Disconnect



End Sub

qingzhou

安装NotesSQL这个IBM开发的SQL处理Notes数据的驱动接口，这样ODBC中就生成了Lotus  NotesSQL Driver(*nsf)驱动程序，然后配置Lotus  NotesSQL Driver(*nsf)的ODBC连接。

然后再利用SQL2000的DTS功能实现从Notes→SQL2000推数据，这样实现会来得简便些。

当然，也可以通过LEI工具来实现DB2/400、ORACLE 9I、SQL2000、ACCESS →Notes。