18 lines
441 B
Plaintext
18 lines
441 B
Plaintext
Imports System.Data.SQLite
|
|
Public Class clsdbtools
|
|
|
|
Dim SQLconnect As New SQLite.SQLiteConnection()
|
|
|
|
Public Function Compress_Database()
|
|
SQLconnect.ConnectionString = Globals.Datenbank
|
|
Dim sqlcmd As New SQLite.SQLiteCommand(SQLconnect)
|
|
sqlcmd.CommandText = "VACUUM"
|
|
SQLconnect.Open()
|
|
sqlcmd.ExecuteNonQuery()
|
|
SQLconnect.Close()
|
|
sqlcmd.Dispose()
|
|
End Function
|
|
|
|
|
|
End Class
|