Domino Code Fragment

Code Name*
Using LotusScript to Write to a Non-Notes Database		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.17.79.60
Description*
Using LotusScript to Write to a Non-Notes Database		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:

Exercise Title : Writing to a Non-Notes Database

Where : Button on Vendor Part update form

Solution :

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