windows - Records tilføjet til ms adgang database med vb 2010 ikke gemme

Indlæg af Hanne Mølgaard Plasc

Problem



Jeg arbejder med et simpelt datalogningsprogram, og jeg har lidt eller ingen databaseoplevelse. Jeg skrev en lille VB-formularapp for at logge dataene til ms-adgang og derefter grave dataene, men jeg har problemer med at tilføje poster til databasen.


For det første oprettede jeg en simpel en borddatabase i adgang. Derefter tilføjede jeg databasen til projektet som en datakilde og gav det et datasæt ved hjælp af guiden. Lige nu ser min kode sådan ud:


Public Class mainForm

Dim da As New dsTableAdapters.Sensor\_DataTableAdapter


...


Min database består af tabel, der blot hedder Sensor\_Data. Mit datasæt er simpelthen Ds, som blev oprettet, da jeg tilføjede databasen som en datakilde. Jeg kalder updAccess () subrutinen, når der kommer nye data. Venligst ignorér kontakttasken. Det er til fremtidig funktionalitet.


...


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


...


Der er ingen problemer under opbygning eller kørselstid, men jeg kan ikke se ændringer i databasen, efter at programmet kører. Enhver input er meget værdsat. Eventuelt er det også anbefalet referencemateriale velkommen.

Bedste reference


Så efter flere uger trækker mit hår ud. Databasen blev opdateret fint, men jeg kigger ikke på kopien af ​​databasen i mappen bin \ debug. Åh ja. Nu ved jeg det.