vb.net - 从 SQLite DB 读取在 vb.net 中失败

Question

所以我对 .NET 还是很陌生，但我已经编码多年了。我正在尝试完成一个相对简单的任务：读取 SQLite 数据库中的表，并填充几个文本框

我已经阅读了此处相关的所有内容，甚至使用了代码示例。无论出于何种原因，我的代码都不会按预期运行。

事实上，在下面我发布的代码中，在 conn.Open 语句之后，甚至没有执行任何其他操作，它只是直接打开表单。我知道这一点是因为我设置了断点，并且我试图一步通过代码，但它永远不会到达 cmd = conn.CreateCommand。

也就是说，任何洞察力都会令人惊叹！这是项目中的每一行代码：

Imports System.Data
Imports System.Data.SQLite

Public Class frmAdmin

Public conn As SQLiteConnection
Public dr As SQLiteDataReader

Private Sub frmAdmin_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim connString As String = "C:\Users\collensm\Documents\Development\BioDataProject\BioData\biodata.db"
    conn = New SQLiteConnection(connString)
    conn.Open()

    Dim cmd As SQLiteCommand

    cmd = conn.CreateCommand()
    cmd.CommandText = "SELECT [_AppConfig].* FROM [_AppConfig];"

    dr = cmd.ExecuteReader

    While dr.Read
        Select Case dr("KeyName")
            Case = "DBPath" : txtDBPath.Text = dr("KeyValue")
            Case = "OraService" : txtOraService.Text = dr("KeyValue")
            Case = "OraSID" : txtOraSID.Text = dr("KeyValue")
            Case = "OraPort" : txtOraPort.Text = dr("KeyValue")
            Case = "OraHost" : txtOraHost.Text = dr("KeyValue")
            Case = "FTPAddress" : txtFTPAddress.Text = dr("KeyValue")
            Case = "FTPUser" : txtFTPUser.Text = dr("KeyValue")
                'Case = "FTPPassword"
        End Select

    End While
End Sub

PS：我还使用解决方案“Manage NuGet Packages for Solution...”选项安装了 SQLite NuGet 包。

提前致谢！

迈克尔

标签： vb.netsystem.data.sqlite