运行两个实例时自动增量不正确

Question

我有 2 个运行以下代码的实例，它们连接到 system.data.sqlite 数据库。 当我使用任何一个实例将一行插入数据库时，从其他实例读取时自动递增的值（ID）不正确。 这背后的原因是什么？

Imports System.Data.SQLite
Public Class Form1
    Public cnn As SQLiteConnection
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cnn = New SQLiteConnection("Data Source=\\abc\xx\x_backup.db;Password=password;Connect Timeout=55;FailIfMissing=True")
        cnn.ParseViaFramework = True
        cnn.Open()
    End Sub
Public Function inserttoTable(ByVal sql As String) As DataTable

         Try
            sql = "SELECT max(ID) FROM joblog;"
            Dim mycommand As SQLiteCommand = New SQLiteCommand(cnn)
            mycommand.CommandText = sql
            MsgBox(mycommand.ExecuteScalar)
            sql = "INSERT INTO joblog (jobid) VALUES (123);"

            mycommand = New SQLiteCommand(cnn)
            mycommand.CommandText = sql
            MsgBox(mycommand.ExecuteNonQuery())
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

Answer 1

当我使用任何一个实例将一行插入数据库时，从其他实例读取时自动递增的值（ID）不正确

我怀疑这是因为您的连接和命令没有关闭/处置，所以它们保持打开状态。

连接的最佳建议是使用它，然后关闭/处理它。 命令也是如此，确保它们已被处理。

这是执行此操作的一种方法：

 Dim intReturn As Integer
 sql = "SELECT max(ID) FROM joblog;"

 ' First query to get your scalar return value
 Using cnn As New New SQLiteConnection("Data Source=\\abc\xx\x_backup.db;Password=password;Connect Timeout=55;FailIfMissing=True")
    Using mycommand As New SQLiteCommand(sql, cnn)
       cnn.ParseViaFramework = True
       cnn.Open()

       intReturn = mycommand.ExecuteScalar
       MessageBox.Show(intReturn)

    End Using
 End Using

 ' Second query to actually do the insert
 sql = "INSERT INTO joblog (jobid) VALUES (123);"
 Using cnn As New New SQLiteConnection("Data Source=\\abc\xx\x_backup.db;Password=password;Connect Timeout=55;FailIfMissing=True")
    Using mycommand As New SQLiteCommand(sql, cnn)
       cnn.ParseViaFramework = True
       cnn.Open()

       intReturn = mycommand.ExecuteNonQuery()
       MessageBox.Show("Records affected " & intReturn)

    End Using
 End Using

另一方面，请考虑使用SQL 参数，否则您可能容易受到 SQL 注入攻击。

Answer 2

我使用的 function 在某种程度上相当于 Sql Server 中的 Scope_Identity。 我没有 Sqlite 数据库，所以我无法测试。 我不确定您是否可以在 Sqlite 中链接命令，但如果不能仅进行 2 个单独的查询。 ExecuteScalar返回结果集中第一行的第一列，这是您想要的数字。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim NewID As Long
    Using cn As New SQLiteConnection("Your connection string")
        Using cmd As New SQLiteCommand("INSERT INTO joblog (jobid) VALUES (123); Select last_insert_rowid()")
            NewID = CLng(cmd.ExecuteScalar())
        End Using
    End Using
    MessageBox.Show($"The new ID is {NewID}")
End Sub