vb.net数据未插入ms访问数据库

Question

这是我的表格快照

这是我将数据插入数据库的代码

Imports System.Data.OleDb

Public Class Test
    Dim cnn As New OleDb.OleDbConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmd As New OleDb.OleDbCommand
        If Not cnn.State = ConnectionState.Open Then
            cnn.Open()
        End If
        cmd.Connection = cnn
        cmd.CommandText = "INSERT INTO Test(ID, Test) " & _
                        " VALUES(" & Me.TextBox1.Text & ",'" & Me.TextBox2.Text & "')"
        cmd.ExecuteNonQuery()
        cnn.Close()
    End Sub

    Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn = New OleDb.OleDbConnection
        cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\OfficeAutomationSystem.accdb; Persist Security Info=False"
    End Sub
End Class

我的数据库名称是：OfficeAutomationSystem.accdb， 表名是：测试， 表结构如下：

FieldName        DataType
ID               Number
Test             Text

代码运行成功，没有错误。 当我在数据库中看到时，在该

中找不到记录

错误是什么？我找不到了。所以，请帮助我。 提前致谢

Answer 1

有时Data Source=|DataDirectory|\...在调试时会出现问题。请记住，在调试代码时，项目文件夹中的\bin\debug会有另一个数据库。您可能正在更新此数据库中的记录而不是原始记录。

尝试设置绝对路径并检查记录是否正在更新。

Answer 2

Dim cnn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\OfficeAutomationSystem.accdb"