使用 vb 2010 添加到 ms 访问数据库的记录未保存

Question

我正在开发一个简单的数据记录程序，但我几乎没有数据库经验。我编写了一个小的 VB 表单应用程序来将数据记录到 ms 访问然后绘制数据，但是我在向数据库添加记录时遇到了问题。

首先，我在 access 中创建了一个简单的单表数据库。然后，我将数据库作为数据源添加到项目中，并使用向导为其提供数据集。现在我的代码如下所示：

Public Class mainForm

Dim da As New dsTableAdapters.Sensor_DataTableAdapter

...

我的数据库由简单称为 Sensor_Data 的表组成。我的数据集只是当我将数据库添加为数据源时创建的 Ds。每当有新数据到达时，我都会调用 updAccess() 子例程。请忽略开关盒。这是为了未来的功能。

...

Private Sub updAccess(ByVal data() As String)
    Select Case data(0)
        Case "001"
            Ds.Sensor_Data.Clear()
            da.Fill(Ds.Sensor_Data)

            Dim dsNewRow As DataRow = Ds.Sensor_Data.NewSensor_DataRow

            dsNewRow.Item("Sensor 1") = data(1)
            dsNewRow.Item("Sensor 2") = data(2)
            dsNewRow.Item("Sensor 3") = data(3)
            dsNewRow.Item("Sensor 4") = data(4)
            dsNewRow.Item("Sensor 5") = data(5)
            dsNewRow.Item("Sensor 6") = data(6)
            dsNewRow.Item("Sensor 7") = data(7)
            dsNewRow.Item("Sensor 8") = data(8)
            dsNewRow.Item("Sensor 9") = data(9)
            dsNewRow.Item("Sensor 10") = data(10)

            Ds.Sensor_Data.AddSensor_DataRow(dsNewRow)
            da.Update(Ds.Sensor_Data)

        Case "002"
            'TODO: update settings panel
    End Select
End Sub

...

在构建或运行时没有问题，但在程序运行后我看不到数据库的变化。非常感谢任何输入。此外，也欢迎任何推荐的参考资料。

Answer 1

所以在拔掉我的头发几个星期之后。数据库更新得很好，但我没有查看 bin\debug 文件夹中的数据库副本。那好吧。现在我知道了。