vb.net创建sqlite数据库

debugcn 发表于 Dev

向量

到目前为止，我所做的一切，我认为的缺失或我有限的知识所错的内容
首先，最重要的是，在我编写任何代码之前，我已经花了一个星期的时间阅读我
在JavaFX和VB 6中创建的数据库，但这是一个VB .Net项目

我下载了System.Data.SQLite.Core 1.0.113.1并安装了扩展程序，但我在Debug文件夹中看到了dll文件，但在安装的扩展程序中却看不到SQLite.Core。

我们正在使用VS 2019 v 16.6.3开发W 7 64位

我的代码包含我尝试过的两个概念，一个是活动的，另一个是被注释掉的

我试图将数据库命名为“ Word.db”，而无论使用哪种概念，我在Debug文件夹中获得的名称均为“ dbName”。
我假设数据库的此位置将允许我创建和EXE文件，将包括数据库

当应用程序在创建数据库后第二次运行时，我的makeDB Sub应该执行Else语句下的代码，该代码不会执行。
由于此帖子有多个问题，没有一个问题可以解决此创建和命名数据库的问题

Public Class frmStart

'Dim dbName As String = "Word.db"
Dim connStr As String = "Data Source={0};Version=3;"
Dim conn As SQLiteConnection
Dim cmd As SQLiteCommand
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'connectionString = String.Format(connectionString, configDb)
    'connStr = String.Format(connStr, dbName)
    connStr = String.Format(connStr, "Word.db")
    makeDB()
End Sub

Public Sub makeDB()
    'If Not My.Computer.FileSystem.FileExists(dbName) Then
    If Not My.Computer.FileSystem.FileExists("Word.db") Then
        Try
            conn = New SQLiteConnection("Data Source=dbName;Version=3;")
            conn.Open()
            tbMessage.Text = "Database Created"
        Catch ex As Exception
            tbMessage.Text = "Database NOT Created"
        End Try
        conn.Close()
    Else
        btnCreate.Visible = False
        btnToFormTwo.Visible = True
        tbMessage.Text = "Make Table"
    End If
End Sub<br/>

是的，我已经Imports System.Data.SQLite
注意到数据库位于x86文件夹下，而不位于x64文件夹下

残酷

那是因为

conn = New SQLiteConnection("Data Source=dbName;Version=3;")

dbName是一个字符串，而不是您声明的字符串（名称）。

您应该"Data Source=" & dbName & ";Version=3;"改用或以前制作的东西。

Public Class frmStart
Dim dbName As String = "Word.db"
Dim connStr As String = "Data Source={0};Version=3;"
Dim conn As SQLiteConnection
Dim cmd As SQLiteCommand

Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    connStr = String.Format(connStr, dbName)
    makeDB()
End Sub

Public Sub makeDB()
    If Not My.Computer.FileSystem.FileExists(dbName) Then
        Try
            conn = New SQLiteConnection(connStr)
            conn.Open()
            'tbMessage.Text = "Database Created"
        Catch ex As Exception
            'tbMessage.Text = "Database NOT Created"
        End Try
        conn.Close()
    Else
        'btnCreate.Visible = False
        'btnToFormTwo.Visible = True
        'tbMessage.Text = "Make Table"
    End If
End Sub
End Class

此外，项目包和Visual Studio扩展是两件事，您向项目添加了sqlite包，而不是vs.的扩展。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。