![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | FlowFact_InitConnector(ByVal strFlowFactPath As String, ByVal strUser As String, ByVal strPassword As String) |
strFlowFactPath: Pfadangabe zur FlowFact.exe strUser: Benutzername strPassword: Gültiges Kennwort Public Sub FlowFact_InitConnector(ByVal strFlowFactPath As String, ByVal strUser As String, ByVal strPassword As String) FlowFact_Done On Error Resume Next 'Set m_oConnector = GetObject("", "FFConnector.Application") Set m_oConnector = CreateObject("FFConnector.Application") If Err <> 0 Or (m_oConnector Is Nothing) = True Then MsgBox "FFConnector.Application-Objekt konnte nicht erstellt werden." Exit Sub End If On Error GoTo 0 If strFlowFactPath = "" Then MsgBox "FlowFact_InitConnector: Pfadangabe fehlt." Exit Sub End If If Mid(strFlowFactPath, Len(strFlowFactPath), 1) = "\" Then strFlowFactPath = Mid(strFlowFactPath, 1, Len(strFlowFactPath) - 1) End If If oFileSystem.FolderExists(strFlowFactPath) = False Then MsgBox "FlowFact_InitConnector: Pfad '" & strFlowFactPath & "' nicht gefunden." Exit Sub End If On Error Resume Next '** Login erfordert das Kennwort in Großbuchstaben strPassword = UCase(strPassword) m_oConnector.Logon strFlowFactPath, strUser, strPassword If Err <> 0 Then If m_FlagSqlLog = True Then DoLog "FlowFact_InitConnector", "FlowFactPath: '" & strFlowFactPath & "'; User: '" & strUser & "'; Err: '" & Err.Description & "'" On Error Resume Next Else MsgBox "Anmeldung in FFConnector ist fehlgeschlagen." End If Exit Sub End If On Error GoTo 0 Set m_oUtil = m_oConnector.Util Set m_oBlob = m_oConnector.Blob Set m_oDbIni = m_oConnector.DbIni m_oFlowFactFolder = strFlowFactPath m_oTools.Init Me m_oBase.Init Me, m_oTools m_InitType = INITTYPE_CONNECTOR End Sub |