Я работаю над простой программой регистрации данных, и у меня практически нет опыта работы с базой данных.Я написал небольшое приложение на 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
...
Нет проблем во время сборки или выполнения, но я не вижу изменений вбаза данных после запуска программы.Любой вклад с благодарностью.Также приветствуется любой рекомендуемый справочный материал.