15 lines
382 B
VB.net
15 lines
382 B
VB.net
Imports System.Data.SQLite
|
|
|
|
Public Class DB
|
|
|
|
Public Shared Function getConnection() As SQLiteConnection
|
|
Dim csb As New SQLiteConnectionStringBuilder
|
|
With csb
|
|
.DataSource = $"{Application.StartupPath}\database.db"
|
|
.Version = 3
|
|
End With
|
|
Return New SQLiteConnection(csb.ConnectionString, True)
|
|
End Function
|
|
|
|
End Class
|