FlowFact - Entwicklungstools

zurück

Function - FlowFact_DbVersion
Datenbankversion der aktuellen FlowFact-Datenbank

  Function FlowFact_DbVersion() As Double  
 


Rückgabewert: 0 falls kein Datenbankzugriff möglich, sonst Wert aus Tabelle 'Version' Feld 'Version'


Public Function FlowFact_DbVersion() As Double
    Dim rsVersion As ADODB.Recordset

    On Error GoTo Error_Sub
    Set rsVersion = m_oBase.FF_GetRecordset("SELECT Version FROM Version")
    FlowFact_DbVersion = m_oUtil.k(rsVersion("Version").value)
    Exit Function

Error_Sub:
    FlowFact_DbVersion = 0
End Function