vbaccesing sqlite database using vb .net

Question

我是VB .net的新手，正在使用SQLite。 我无法访问Test1.db3，下面的代码只是创建一个新文件Test1.db3，因此当我去读取文件时，我收到一个响应，说表"用户"不存在。 我正在使用VS Express 2013。

Sub Main()
    Dim Path As String = "J:LocationSQLITE"
    Dim dataBase As String = "test1.db"
    Dim cs As String = Path & dataBase
    Dim myConnection As New SQLiteConnection()
    Dim cadeomSQL As String = "Data Source=" & cs & ";"
    myConnection.ConnectionString = cadeomSQL
    myConnection.Open()
    Dim sSQL As String = "SELECT * FROM Users"
    Using cmd As New SQLiteCommand(sSQL, myConnection)
        Dim rdr As SQLiteDataReader = cmd.ExecuteReader()
        Using rdr
            While (rdr.Read())
                Console.WriteLine(rdr.GetString(0) & rdr.GetString(1) & rdr.GetString(2))
            End While
        End Using
    End Using
    myConnection.Close()
End Sub

任何建议将不胜感激

Answer 1

试试这个！

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim dataBase As String = "test1.db"
    Dim Path As String = $"J:LocationSQLITE{dataBase}"
    Dim cadeomSQL As String = $"Data Source={Path};Version=3;New=False;Compress=True;"
    Dim myConnection As New SQLiteConnection()
    myConnection.ConnectionString = cadeomSQL
    myConnection.Open()
    Dim sSQL As String = "SELECT * FROM Users"
    Using cmd As New SQLiteCommand(sSQL, myConnection)
        Dim rdr As SQLiteDataReader = cmd.ExecuteReader()
        Using rdr
            While (rdr.Read())
                Console.WriteLine($"{rdr.Item(0)} {rdr.Item(1)} {rdr.Item(2)} {vbNewLine}")
            End While
        End Using
    End Using
    myConnection.Close()
End Sub