Monday, September 26, 2011

Write to a Non-Notes Database

Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkSpace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.currentdocument
     Dim doc As NotesDocument
     Set doc = uidoc.document
     Dim con As New ODBCConnection
     Dim qry As New ODBCQuery
     Dim res As New ODBCResultSet
     Dim RetCode As Integer
     RetCode% = Con.ConnectTo("MRP SYSTEM")
     Set Qry.Connection = Con
     Qry.SQL = "SELECT * FROM BikePart"
     Set Res.Query = Qry
     Res.Execute
     RetCode% = Res.LastRow
     RetCode = Res.GetValue("RECID", RecID%)
     Res.AddRow
     Call Res.SetValue("RECID", RecID% + 1)
     Call Res.SetValue("TYPE", uidoc.fieldGetText("Type"))
     Call Res.SetValue("DIMENSION", uidoc.fieldGetText("Dimension"))
     Call Res.SetValue("VENDOR", uidoc.fieldGetText("Vendor"))
     Call Res.SetValue("COST", uidoc.fieldGetText("Cost"))
     RetCode% = Res.UpdateRow
     RetCode% = Res.Close( DB_CLOSE )
     RetCode% = Con.Disconnect
End Sub

No comments:

Post a Comment