Enhancement for issue #87

2017-06-22 09:53:34 -06:00
parent 91b9554f40
commit 5fa746da8e
7 changed files with 10 additions and 4 deletions
@@ -678,6 +678,10 @@ Public Class mgrSQLite
        Return Math.Round(oFileInfo.Length / 1024, 2)
    End Function

+    Public Function ReportVersion() As String
+        Return SqliteConnection.SQLiteVersion
+    End Function
+
    Public Sub CompactDatabase()
        Dim sSQL As String
        Dim command As SQLiteCommand