Why System.Data.Sqlite is not displayed in References? - vb.net

Question

I installed SQLite NuGet package using :
PM> NuGet\Install-Package SQLite -Version 3.13.0
Tentative de collecte d'informations de dépendance pour le package 'SQLite.3.13.0' du projet 'FindDoublons', ciblant '.NETFramework,Version=v4.7.2'
La collecte des informations de dépendance a pris 2 ms
Tentative de résolution de dépendances pour le package 'SQLite.3.13.0' avec DependencyBehavior 'Lowest'
La résolution des informations de dépendance a pris 0 ms
Actions en cours de résolution pour installer le package 'SQLite.3.13.0'
Actions résolues pour installer le package 'SQLite.3.13.0'
Récupération du package 'SQLite 3.13.0' dans 'nuget.org'.
Ajout du package 'SQLite.3.13.0' au dossier 'C:\Users\berna\source\repos\FindDoublons\packages'
Package 'SQLite.3.13.0' ajouté au dossier 'C:\Users\berna\source\repos\FindDoublons\packages'
Package 'SQLite.3.13.0' ajouté à 'packages.config'
Installation réussie de « SQLite 3.13.0 » sur FindDoublons
L'exécution des actions de nuget a pris 665 ms
Temps écoulé : 00:00:00.9417323
PM>
I use it in a VB.Net program using Visual Studio 2019 on Windows 11. But when I display References in Project Properties I don't see System.Data.Sqlite .Net assembly :
Is it normal System.Data.Sqlite is not displayed in References panel? What can I do to unlock my blocking situation?

Answer 1

Download/install NuGet package System.Data.SQLite instead.
Add Imports:
Imports System.Data.SQLite
Open Solution Explorer:
In VS menu, click View
Select Solution Explorer
To see references
In Solution Explorer, expand "References"
Here's some sample code:
Imports System.Data.SQLite
Imports System.IO
Module HelperSQLite
Private _connectionString As String = String.Empty
Private _databaseFilename As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Test.sqlite")
Sub New()
'set value
_connectionString = $"Data Source={_databaseFilename};Version=3;"
End Sub
Public Property DatabaseFilename As String
Get
Return _databaseFilename
End Get
Set(value As String)
_databaseFilename = value
_connectionString = $"Data Source={value};Version=3;"
End Set
End Property
Public Sub CreateDatabaseAndTable()
If Not File.Exists(DatabaseFilename) Then
SQLiteConnection.CreateFile(DatabaseFilename)
Dim sqlText As String = "CREATE TABLE Employee(
ID INTEGER Constraint PK_Employee_ID PRIMARY KEY AUTOINCREMENT,
FirstName TEXT,
LastName TEXT
);"
Debug.WriteLine($"_connectionString (CreateDatabaseAndTable): '{_connectionString}'")
Using con As SQLiteConnection = New SQLiteConnection(_connectionString)
'open
con.Open()
Using cmd As SQLiteCommand = New SQLiteCommand(sqlText, con)
cmd.ExecuteNonQuery()
End Using
End Using
End If
End Sub
Public Function GetData() As DataTable
Dim dt As DataTable = New DataTable()
Dim sqlText As String = "SELECT ID, FirstName, LastName FROM Employee;"
Debug.WriteLine($"_connectionString (GetData): '{_connectionString}'")
Using con As SQLiteConnection = New SQLiteConnection(_connectionString)
'open
con.Open()
Using da As SQLiteDataAdapter = New SQLiteDataAdapter(sqlText, con)
'get data
da.Fill(dt)
Return dt
End Using
End Using
End Function
Public Function GetDataAsString() As String
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()
Dim dt As DataTable = GetData()
For Each row As DataRow In dt.Rows
sb.AppendLine($"ID: {row.Field(Of Int64)("ID")} FirstName: '{row.Field(Of String)("FirstName")}' LastName: '{row.Field(Of String)("LastName")}'")
Next
Return sb.ToString()
End Function
Public Function InsertData(firstName As String, lastName As String) As Integer
Dim sqlText As String = "INSERT INTO Employee(FirstName, LastName) VALUES(#firstName, #lastName);"
Debug.WriteLine($"_connectionString (InsertData): '{_connectionString}'")
Using con As SQLiteConnection = New SQLiteConnection(_connectionString)
'open
con.Open()
Using cmd As SQLiteCommand = New SQLiteCommand(sqlText, con)
If Not String.IsNullOrEmpty(firstName) Then
cmd.Parameters.Add("#firstName", DbType.String).Value = firstName
Else
cmd.Parameters.Add("#firstName", DbType.String).Value = DBNull.Value
End If
If Not String.IsNullOrEmpty(lastName) Then
cmd.Parameters.Add("#lastName", DbType.String).Value = lastName
Else
cmd.Parameters.Add("#lastName", DbType.String).Value = DBNull.Value
End If
'execute
Return cmd.ExecuteNonQuery()
End Using
End Using
End Function
End Module
Usage - Create database and table:
CreateDatabaseAndTable()
Usage - Insert data:
InsertData("Bob", "Smith")
InsertData("John", "Doe")
Usage - Select:
Dim results As String = GetDataAsString()
Debug.WriteLine(results)
Resources:
System.Data.SQLite
SQLite Data Types
SQLite Data Types (SQLite)
Parameters
Creating SQLite Database and Table in C# Console