无法更新当前锁定的vb。净误差

我认为关闭连接可以解决问题,最好使用 Using -声明:

try
    Using con As OleDbConnection = GetConnection() ' or New OlebConnection(...)
        Using cmd = con.CreateCommand()
            cmd.CommandText = "INSERT INTO table1(something)VALUES(@something)"
            cmd.Parameters.AddWithValue("@something", something)
            con.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using 

    Using con As OleDbConnection = GetConnection()
        Using cmd = con.CreateCommand()
            cmd.CommandText = "INSERT INTO table2(something)VALUES(@something)"
            cmd.Parameters.AddWithValue("@something", something)
            con.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using 
Catch ex As Exception
    msgbox(ex.tostring())
End Try 

这是一个并发问题。因为代码的其他部分或MS Access本身会同时访问数据库。 事实上,在使用连接后,您不会关闭它。因此,第二次调用应该会失败,并出现该异常。相反,您应该将一次性用品(例如OleDbConnection、命令等)包装在using语句中。这样,即使发生异常,连接也将关闭:

    Using con As New OleDbConnection, cmd1 As OleDbCommand = con.CreateCommand, cmd2 As OleDbCommand = con.CreateCommand()
        cmd1.CommandText = "INSERT INTO table1(something)VALUES(something)"
        cmd1.ExecuteNonQuery()

        cmd2.CommandText = "INSERT INTO table2(something)VALUES(something)"
        cmd2.ExecuteNonQuery()
    End Using