2012-03-18 42 views
0

我正在一個簡單的數據記錄程序,我有幾乎沒有數據庫的經驗。我寫了一個小小的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 

...

有編譯或運行時期間沒有問題,但我沒有看到改變的數據庫程序運行後。任何輸入是不勝感激。此外,任何推薦的參考資料也歡迎。

+0

da.Fill(Ds.Sensor_Data,「tablename」) – 2012-03-18 23:37:24

+0

能否詳細說明一下?該命令出現語法錯誤。另外,我已經驗證了當前的填充行確實填充了相關數據的數據集。 – Casbar77 2012-03-19 00:17:49

+0

Hi Casbar,'DS'是否有連接字符串到您的訪問數據庫。從你顯示的代碼看來,你正在創建一個沒有連接任何東西的新數據行。 – Pynner 2012-03-19 01:36:19

回答

0

因此經過幾個星期拔出我的頭髮。數據庫正在更新,但我沒有在bin \ debug文件夾中查看數據庫的副本。好吧。現在我明白了。

相關問題