Domino Code Fragment

Code Name*
Inport From ODBC (Tech Incident Database Example)		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.119.133.96
Description*
Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Initialize

'-- Define Variables For Making ODBC Connection
Dim Con As New ODBCConnection
Dim WhatODBC As String

'-- Loop until Input of ODBC Data Source is Valid
Do While Con.GetError <> DBstsSUCCESS

WhatODBC = Inputbox("Enter The Name Of the ODBC DataSource, Enter Q to Quit")

'--Make ODBC Connection
RetCode% = Con.ConnectTo(WhatODBC)

'--Output Message On ODBC Data Source Connection Error

If WhatODBC = "Q" Then
Exit Do
Elseif WhatODBC = "q" Then
Exit Do

Elseif Con.GetError <> DBstsSUCCESS Then
Messagebox("Not A Valid ODBC Data Source, Either Input Valid ODBC Data Source or Hit Enter To View Data Sources.")
End If

Loop


'-- Define ODBC Query
Dim Qry As New ODBCQuery

'-- Set Connection property of ODBCQuery Object
Set Qry.Connection = Con

'-- Set SQL property of ODBCQueryObject
Qry.SQL = "SELECT * FROM TECH_INC"

'-- Set Query property of ODBCResultSet
Dim res As New ODBCResultSet
Set Res.Query = Qry

'-- Execute the ODBC Query
Res.Execute

'-- Drill down to current database object
Dim Session As New NotesSession
Dim db As NotesDatabase
Set db = Session.currentdatabase

'-- Get First Row in ResultSet
RetCode% = Res.FirstRow

'-- Iterate through result set creating a new document for each row
Do While RetCode% = True

'-- Create new notes document object
Dim Doc As New NotesDocument(db)
Dim TestEngine As String


'-- Set form item
doc.form = "Incident"

'-- Populate document object with values from row
doc.logyear = Res.GetValue("LOGYEAR")
doc.LOGNO = Res.GetValue("LOGNO")
doc.LOC = Res.GetValue("LOC")
doc.MSGID = Res.GetValue("MSGID")
doc.SUPP = Res.GetValue("SUPP")
doc.AUTHOR = Res.GetValue("AUTHOR")
doc.DATE = Res.GetValue("DATE")
doc.INCIDENT = Res.GetValue("INCIDENT")
doc.AAUTHORTWO = Res.GetValue("AAUTHORTWO")
doc.BASECODE = Res.GetValue("BASECODE")
doc.EVENT = Res.GetValue("EVENT")
doc.WHERE = Res.GetValue("WHERE")
doc.OCCDT = Res.GetValue("OCCDT")
doc.LOCALT = Res.GetValue("LOCALT")
doc.ENGTYPE = Res.GetValue("ENGTYPE")
doc.ENGMODEL = Res.GetValue("ENGMODEL")
doc.ENGPOS = Res.GetValue("ENGPOS")
doc.ENGSERNUM = Res.GetValue("ENGSERNUM")
doc.TT = Res.GetValue("TT")
doc.TSO = Res.GetValue("TSO")
doc.CCY = Res.GetValue("CCY")
doc.ACTYPE = Res.GetValue("ACTYPE")
doc.ACTAILNUM = Res.GetValue("ACTAILNUM")
doc.ACASSIGNED = Res.GetValue("ACASSIGNED")
doc.ALT = Res.GetValue("ALT")
doc.MACHNUMBER = Res.GetValue("MACHNUMBER")
doc.ABORTCODE = Res.GetValue("ABORTCODE")
doc.WHENDISC = Res.GetValue("WHENDISC")
doc.SAFETY = Res.GetValue("SAFETY")
doc.STALL = Res.GetValue("STALL")
doc.PILOTACTION = Res.GetValue("PILOTACTION")
doc.MAINTACTION = Res.GetValue("MAINTACTION")
doc.MAINTLEVEL = Res.GetValue("MAINTLEVEL")
doc.PRIMARYCAUSE = Res.GetValue("PRIMARYCAUSE")
doc.POWERLOSS = Res.GetValue("POWERLOSS")
doc.ENGREMOVAL = Res.GetValue("ENGREMOVAL")
doc.PWREMOVEREASON = Res.GetValue("PWREMOVEREASON")
doc.WTYCHARGE = Res.GetValue("WTYCHARGE")
doc.WTYEXCLUDE = Res.GetValue("WTYEXCLUDE")
doc.SECMODE = Res.GetValue("SECMODE")
doc.RELEVANT = Res.GetValue("RELEVANT")
doc.AFAULTCODEONE = Res.GetValue("AFAULTCODEONE")
doc.BFAULTCODETWO = Res.GetValue("BFAULTCODETWO")
doc.CFAULTCODETHREE = Res.GetValue("CFAULTCODETHREE")
doc.DFAULTCODEFOUR = Res.GetValue("DFAULTCODEFOUR")
doc.EFAULTCODEFIVE = Res.GetValue("EFAULTCODEFIVE")
doc.FFAULTCODESIX = Res.GetValue("FFAULTCODESIX")
doc.GFAULTCODESEVEN = Res.GetValue("GFAULTCODESEVEN")
doc.HFAULTCODEEIGHT = Res.GetValue("HFAULTCODEEIGHT")
doc.IFAULTCODENINE = Res.GetValue("IFAULTCODENINE")
doc.JFAULTCODETEN = Res.GetValue("JFAULTCODETEN")
doc.AFAULTCNDONE = Res.GetValue("AFAULTCNDONE")
doc.BFAULTCNDTWO = Res.GetValue("BFAULTCNDTWO")
doc.CFAULTCNDTHREE = Res.GetValue("CFAULTCNDTHREE")
doc.DFAULTCNDFOUR = Res.GetValue("DFAULTCNDFOUR")
doc.EFAULTCNDFIVE = Res.GetValue("EFAULTCNDFIVE")
doc.AKEYWORDONE = Res.GetValue("AKEYWORDONE")
doc.BKEYWORDTWO = Res.GetValue("BKEYWORDTWO")
doc.CKEYWORDTHREE = Res.GetValue("CKEYWORDTHREE")
doc.DKEYWORDFOUR = Res.GetValue("DKEYWORDFOUR")
doc.EKEYWORDFIVE = Res.GetValue("EKEYWORDFIVE")
doc.FKEYWORDSIX = Res.GetValue("FKEYWORDSIX")
doc.GKEYWORDSEVEN = Res.GetValue("GKEYWORDSEVEN")
doc.HKEYWORDEIGHT = Res.GetValue("HKEYWORDEIGHT")
doc.IKEYWORDNINE = Res.GetValue("IKEYWORDNINE")
doc.JKEYWORDTEN = Res.GetValue("JKEYWORDTEN")
doc.FINALREPORT = Res.GetValue("FINALREPORT")
doc.ENGTOSERVICE = Res.GetValue("ENGTOSERVICE")
doc.FIELDSUPPORT = Res.GetValue("FIELDSUPPORT")
doc.DESKSUPPORT = Res.GetValue("DESKSUPPORT")
doc.TEXTNUMBER = Res.GetValue("TEXTNUMBER")
doc.TEXTDATE = Res.GetValue("TEXTDATE")
doc.TEXTONE = Res.GetValue("TEXTONE")
doc.TEXTTWO = Res.GetValue("TEXTTWO")
doc.TEXTTHREE = Res.GetValue("TEXTTHREE")
doc.TEXTFOUR = Res.GetValue("TEXTFOUR")
doc.TEXTFIVE = Res.GetValue("TEXTFIVE")

TestEngine = Res.GetValue("ENGSERNUM")

doc.textgroup = Res.GetValue("TEXTONE") + " " + Res.GetValue("TEXTTWO") + " " + Res.GetValue("TEXTTHREE") + " " + Res.GetValue("TEXTFOUR") + " " + Res.GetValue("TEXTFIVE")
doc.textgroup2=doc.textgroup(0)
'-- Get Next Row in ResultSet
RetCode% = Res.NextRow
Call doc.save(True,True)
Do While Cstr(TestEngine) = Res.GetValue("ENGSERNUM") And RetCode% = True

doc.textgroup = Res.GetValue("TEXTONE") + " " + Res.GetValue("TEXTTWO") + " " + Res.GetValue("TEXTTHREE") + " " + Res.GetValue("TEXTFOUR") + " " + Res.GetValue("TEXTFIVE")
doc.textgroup2=doc.textgroup2(0) & doc.textgroup(0)

'-- Get Next Row in ResultSet
RetCode% = Res.NextRow
Call doc.save(True,True)
Loop
doc.textgroup2 = doc.textgroup2(0) + Chr(10) + "****** Last Entry Date = " + Res.GetValue("TEXTDATE") + " *******"

'-- Save document
Call doc.save (True, True)

Loop

RetCode% = Res.Close( DB_CLOSE )
RetCode% = Con.Disconnect

End Sub