V1NczE1f

1Imports System.Data.SQLite
2Imports System.IO
3
4Module Module1
5    Private Const _db As String = "hf.sqlite"
6    Private ReadOnly _connectionString As String = $"Data Source={_db};Version=3;"
7    Private Const _createHfTable As String = "create table if not exists hf(forumname varchar(100),forumlink varchar(100))"
8    Private Const _insertData As String = "insert into hf (forumname, forumlink) values ('hackforums', 'www.hackforums.net')"
9    Private Const _readData As String = "select * from hf"
10
11    Sub Main()
12        CreateSQLiteDB(_db)
13        CreateTable()
14        InsertData()
15        ReadData()
16        Console.ReadLine()
17    End Sub
18
19    Private Sub CreateSQLiteDB(ByVal db As String)
20        If Not File.Exists(db) Then
21            Console.WriteLine($"{db} is created")
22            SQLiteConnection.CreateFile(db)
23        Else
24            Console.WriteLine($"{db} exists")
25        End If
26    End Sub
27
28    Private Sub CreateTable()
29        Using sqlite = New SQLiteConnection(_connectionString)
30            sqlite.Open()
31            Dim command As SQLiteCommand = New SQLiteCommand(_createHfTable, sqlite)
32            command.ExecuteNonQuery()
33        End Using
34    End Sub
35
36    Private Sub InsertData()
37        Using sqlite = New SQLiteConnection(_connectionString)
38            sqlite.Open()
39            Dim command As SQLiteCommand = New SQLiteCommand(_insertData, sqlite)
40            command.ExecuteNonQuery()
41        End Using
42    End Sub
43
44    Private Sub ReadData()
45        Using sqlite = New SQLiteConnection(_connectionString)
46            sqlite.Open()
47            Dim command As SQLiteCommand = New SQLiteCommand(_readData, sqlite)
48            Dim reader As SQLiteDataReader = command.ExecuteReader()
49            While reader.Read()
50                Console.WriteLine(String.Format("Forum name:{0} Forum link:{1}", reader("forumname"), reader("forumlink")))
51            End While
52        End Using
53    End Sub
54End Module