rs: Recordset; siehe AdoHelp\ADO210.CHM


Public Sub FF_UpdateRecordset(ByVal rs As ADODB.Recordset)
    Dim strLogMsg As String

    '** Logging
    If m_oApplication.FlagSqlLog = True Then
        strLogMsg = RsToString(rs)
        m_oApplication.DoLog "UpdateRecordset", strLogMsg
        On Error Resume Next
    End If

    Select Case m_oApplication.FlowFact_InitType
        Case INITTYPE_APPLICATION
            If m_strDBPassword <> STRNOTHING Then
                m_oApplication.FlowFact_Application.UpdateRecordset rs, m_strDBPassword
            Else
                m_oApplication.FlowFact_Application.UpdateRecordset rs
            End If
        Case INITTYPE_CONNECTOR
            If m_strDBPassword <> STRNOTHING Then
                m_oApplication.FlowFact_Connector.UpdateRecordset rs, m_strDBPassword
            Else
                m_oApplication.FlowFact_Connector.UpdateRecordset rs
            End If
        Case Else
            RaiseError_NotInit
    End Select

    If m_oApplication.FlagSqlLog = True Then
        If Err <> 0 Then
            strLogMsg = RsToString(rs)
            m_oApplication.DoLog "ERROR GetRecordset", Err.Description & " | RS: " & strLogMsg
        End If
    End If
End Sub