Hello,
Can any one tell me why following lotus notes agent inserting records twice in SQL Server table?
View is indexed and first column is Categorized and sorted.
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Dim Item As NotesItem
Dim currentLog As NotesLog
Dim Poview, view2 As NotesView
Dim Postatus As String
Dim Apps As Variant
Dim AppsDate As Variant
Dim AppBy As String
Dim AppByDate As String
Dim key As String
Dim view As NotesView
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Dim user, as400ID As String
user = session.CommonUserName
Dim userview As NotesView
Dim userdoc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView (“byba” )
Set con = New ODBCConnection
Set qry.Connection = con
Set result.Query = qry
temp = con.ConnectTo(“TEST”, “”,“”)
qry.SQL = “SELECT * FROM POSUM”
result.Execute
rows = result.NumRows
Set view2 = db.getview(“SQLInsert”)
Set doc2=view2.GetFirstDocument
While Not (doc2 Is Nothing)
result.NextRow
result.AddRow
a= doc2.PoByr(0)
b=doc2.PoAst(0)
c=doc2.PoPlan(0)
Call result.SetValue(“VPOBYR”,a)
Call result.SetValue(“VPOAST”,b)
Call result.SetValue(“VPOPLN”,c)
result.UpdateRow
Call doc2.ReplaceItemValue(“sqlrecupdated”, “Yes”)
Call doc2.Save(True,False)
Set doc2=view2.GetNextDocument(doc2)
On Error Resume Next
Wend
result.Close(DB_CLOSE)
con.Disconnect
End Sub