Сбой чтения из БД SQLite в vb.net - PullRequest
Новая
       17

Сбой чтения из БД SQLite в vb.net

0 голосов
/ 04 мая 2018

Так что я довольно новичок в .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: я также установил пакет SQLite NuGet, используя опцию «Управление пакетами NuGet для решения ...».

Заранее спасибо!

Michael

...