Question

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

首先，我在访问中创建了一个简单的表数据库。然后，我将数据库作为数据源添加到项目中，并使用向导为其提供了数据集。现在我的代码看起来像这样：

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文件夹中查看数据库的副本。那好吧。现在我知道了。

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

1 个答案: