![]() |
FlowFact - Entwicklungstools |
![]() |
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 |