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

我正在一个简单的数据记录程序，我有几乎没有数据库的经验。我写了一个小小的VB窗体应用程序来将数据记录到ms访问，然后绘制数据图表，但我在向数据库添加记录时遇到了问题。添加到ms访问数据库的记录与vb 2010不保存

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

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

...

有编译或运行时期间没有问题，但我没有看到改变的数据库程序运行后。任何输入是不胜感激。此外，任何推荐的参考资料也欢迎。

来源

2012-03-18 Casbar77

da.Fill（Ds.Sensor_Data，“tablename”） – 2012-03-18 23:37:24

能否详细说明一下？该命令出现语法错误。另外，我已经验证了当前的填充行确实填充了相关数据的数据集。 – Casbar77 2012-03-19 00:17:49

Hi Casbar，'DS'是否有连接字符串到您的访问数据库。从你显示的代码看来，你正在创建一个没有连接任何东西的新数据行。 – Pynner 2012-03-19 01:36:19

因此经过几个星期拔出我的头发。数据库正在更新，但我没有在bin \ debug文件夹中查看数据库的副本。好吧。现在我明白了。

来源

2012-04-08 21:49:23 Casbar77

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

回答

相关问题