LCLSX classes are the best when you want to connect domino applications to other RDBMS databases
Below is the basic class which can be used to
Public Class LsxLcConnection
Public MyConn As LCConnection
Public Result As LCFieldList
MyServer As String
MyUserID As String
MyPassword As String
MyConnectType As String
Sub New(xMyServer As String, xMyUserID As String, xMyPassword As String, xMyConnectType As String)
MyConnectType = xMyConnectType
MyServer = xMyServer
MyUserID = xMyUserID
MyPassword = xMyPassword
End Sub
Sub Delete
If MyConn.IsConnected = True Then
MyConn.Disconnect
End If
End Sub
Public Function ConnectToDatabase
Set MyConn = New LCConnection(MyConnectType)
With MyConn
.Server =MyServer
.UserID = MyUserID
.Password = MyPassword
.Connect
ConnectToDatabase = .Isconnected
End With
End Function
Public Function RunQuery(QueryText As String)
Set Result = New LCFieldList
RunQuery = MyConn.Execute(QueryText, Result)
End Function
Public Function GetRow
With MyConn
GetRow = .Fetch(Result)
End With
End Function
Public Function getColumnValue(columnFieldName As string) As String
Dim columnFieldValue As Lcfield
Set columnFieldValue = Result.Lookup (columnFieldName)
getColumnValue = columnFieldValue.Text(0)
End Function
End Class