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