Setting up your local SQL server

fkkarakurt · fkkarakurt · commit 84a16fd9d03d · 2023-09-11T23:04:47.000+03:00
diff --git a/Establishing a Database Connection With SQL in VB.NET/Program.vb b/Establishing a Database Connection With SQL in VB.NET/Program.vb
@@ -0,0 +1,17 @@
+Imports System
+Imports System.Data.SQLite
+
+Module Program
+    Sub Main(args As String())
+        Dim connectionString As String = "Data Source=mydatabase.db;Version=3;"
+        Try
+            Using conn As New SQLiteConnection(connectionString)
+                conn.Open()
+                Console.WriteLine("Successfully connected to the database!")
+                'You can perform database operations here.
+            End Using
+        Catch ex As SQLiteException
+            Console.WriteLine("Error: " & ex.Message)
+        End Try
+    End Sub
+End Module
diff --git a/How to Issue a Select and Load the Data Into an Array/Program.vb b/How to Issue a Select and Load the Data Into an Array/Program.vb
@@ -0,0 +1,48 @@
+Imports System.Data.SQLite
+
+Module Program
+
+    Private Const DatabaseFileName As String = "mydatabase.db"
+
+    Sub Main(args As String())
+        LoadDataIntoArray()
+    End Sub
+
+    Sub LoadDataIntoArray()
+        ' Set the connection string
+        Dim connectionString As String = $"Data Source={DatabaseFileName};Version=3;"
+
+        ' Set up the SQL query
+        Dim query As String = "SELECT Name FROM Users"
+
+        ' Create a list to store names retrieved from the database
+        Dim names As New List(Of String)()
+
+        Using conn As New SQLiteConnection(connectionString)
+            conn.Open()
+
+            Using cmd As New SQLiteCommand(query, conn)
+
+                Using reader As SQLiteDataReader = cmd.ExecuteReader()
+
+                    ' Add all the names from the database to the list
+                    While reader.Read()
+                        names.Add(reader("Name").ToString())
+                    End While
+
+                End Using
+
+            End Using
+        End Using
+
+        ' So far the 'names' list has been populated with usernames from the database.
+        ' You can convert this list to an array if you want:
+        Dim namesArray() As String = names.ToArray()
+
+        ' Print array content for testing purposes
+        For Each name In namesArray
+            Console.WriteLine(name)
+        Next
+    End Sub
+
+End Module
diff --git a/How to Issue an Insert to Put Data Into a Database/Program.vb b/How to Issue an Insert to Put Data Into a Database/Program.vb
@@ -0,0 +1,34 @@
+Imports System.Data.SQLite
+
+Module Program
+
+    Private Const DatabaseFileName As String = "mydatabase.db"
+
+    Sub Main(args As String())
+        InsertData("John Doe", "USA")
+    End Sub
+
+    Sub InsertData(userName As String, userCountry As String)
+        ' Set the connection string
+        Dim connectionString As String = $"Data Source={DatabaseFileName};Version=3;"
+
+        ' Set up parameterized SQL query
+        Dim query As String = "INSERT INTO Users (Name, Country) VALUES (@Name, @Country)"
+
+        Using conn As New SQLiteConnection(connectionString)
+            conn.Open()
+
+            Using cmd As New SQLiteCommand(query, conn)
+                ' Set parameters
+                cmd.Parameters.AddWithValue("@Name", userName)
+                cmd.Parameters.AddWithValue("@Country", userCountry)
+
+                ' Run the query
+                cmd.ExecuteNonQuery()
+            End Using
+        End Using
+
+        Console.WriteLine($"User {userName} from {userCountry} added successfully!")
+    End Sub
+
+End Module
diff --git a/Setting Up Your Local SQL Server/InitializeDatabase.vb b/Setting Up Your Local SQL Server/InitializeDatabase.vb
@@ -0,0 +1,43 @@
+Imports System.Data.SQLite
+
+Module DatabaseInitializer
+
+    Sub InitializeDb()
+        ' Designate a new database file named "mydatabase.db"
+        Dim connectionString As String = "Data Source=mydatabase.db;Version=3;"
+        Using conn As New SQLiteConnection(connectionString)
+            conn.Open()
+
+            ' Create Users table
+            Dim createTableQuery As String = "CREATE TABLE IF NOT EXISTS Users (UserID INTEGER PRIMARY KEY, Name TEXT, Country TEXT)"
+            Using cmd As New SQLiteCommand(createTableQuery, conn)
+                cmd.ExecuteNonQuery()
+            End Using
+
+            ' Insert initial users
+            Dim insertUsers As String = "INSERT INTO Users (Name, Country) VALUES (?, ?)"
+            Using cmd As New SQLiteCommand(insertUsers, conn)
+                cmd.Parameters.AddWithValue("Name", "Alice")
+                cmd.Parameters.AddWithValue("Country", "USA")
+                cmd.ExecuteNonQuery()
+
+                cmd.Parameters.Clear()
+
+                cmd.Parameters.AddWithValue("Name", "Bob")
+                cmd.Parameters.AddWithValue("Country", "UK")
+                cmd.ExecuteNonQuery()
+
+                cmd.Parameters.Clear()
+
+                cmd.Parameters.AddWithValue("Name", "Charlie")
+                cmd.Parameters.AddWithValue("Country", "Canada")
+                cmd.ExecuteNonQuery()
+
+                cmd.Parameters.Clear()
+            End Using
+
+            Console.WriteLine("Database and initial data created successfully!")
+        End Using
+    End Sub
+
+End Module
diff --git a/Setting Up Your Local SQL Server/Program.vb b/Setting Up Your Local SQL Server/Program.vb
@@ -0,0 +1,7 @@
+Module Program
+
+    Sub Main(args As String())
+        DatabaseInitializer.InitializeDb()
+    End Sub
+
+End Module
