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

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

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

Public Class mainForm

Dim da As New dsTableAdapters.Sensor_DataTableAdapter

我的数据库由简单称为Sensor_Data的表组成。我的数据集就是Ds，它是在我添加数据库作为数据源时创建的。每当新数据到达时，我调用updAccess（）子例程。请忽略开关箱。这是为了将来的功能

---

在构建或运行期间没有问题，但在程序运行后，我看不到对数据库的更改。非常感谢您的任何意见。此外，任何推荐的参考资料都是受欢迎的。

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

da.Fill（Ds.Sensor_数据，“tablename”）您能详细说明一下吗？该命令出现语法错误。我还验证了当前填充行是否使用相关数据填充数据集。您好，Casbar，

DS

是否有到access DB的连接字符串。从您显示的代码中可以看出，您正在创建一个未连接到任何内容的新数据行。连接字符串是在我运行设置Ds的向导时显示的，但在任何时候我都不能在代码中输入连接字符串。需要如何以及何时输入该信息？

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