En Jawel ... Alweer problemen met DataSet

[WarnedGraph]

Beste,

Nu de deadline van mijn project nadert en ik mijn DataSet niet kan opslaan naar
mijn access Database, heb ik na lang zoeken de handdoek in de ring gegooid en
al mijn hoop naar dit forum gericht! Kan er mij iemand helpen om toch mijn database
geüpdatet te krijgen?

Public Class frmMain

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AppointmentCategoriesTableAdapter.Fill(Me.SBDS.AppointmentCategories)                 'SBDS = DataSet
    End Sub


    Private Sub btnOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpslaan.Click
        Try
            Me.Validate()
            Me.AppointmentCategoriesBindingSource.EndEdit()
            Me.AppointmentCategoriesTableAdapter.Update(Me.SBDS.AppointmentCategories)
            SBDS.AppointmentCategories.AcceptChanges() 
            SBDS.AcceptChanges()
            MessageBox.Show("Update successful")
        Catch ex As Exception
            MessageBox.Show("Update failed")
        End Try


    End Sub

    Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
        If GridAlgemeen.CurrentRow IsNot Nothing Then
            OpenFileDialog.FileName = ""
            OpenFileDialog.InitialDirectory = "C:\Program Files\Microsoft Visual Studio 8\Icon Experience\Collection 2 - Objects and People\16x16\shadow"

            If OpenFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                Try
                    'Open bestand binair en lees het in de grid.
                    Dim bData() As Byte
                    bData = My.Computer.FileSystem.ReadAllBytes(OpenFileDialog.FileName)
                    GridAlgemeen.CurrentRow.Cells(1).Value = bData                                         'GridAlgemeen = DataGridView
                    GridAlgemeen.EndEdit()
                Catch ex As Exception
                    MessageBox.Show("Het bestand kon niet ingelezen worden." & vbCrLf & ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End Try
            End If
        End If

    End Sub

Dank bij voorbaat!

 

[Spiderman]

Probeer i.p.v.

Me.AppointmentCategoriesBindingSource.EndEdit()
            Me.AppointmentCategoriesTableAdapter.Update(Me.SBDS.AppointmentCategories)

eens

Me.BindingContext(SBDS.AppointmentCategories).EndCurrentEdit()
Me.AppointmentCategoriesTableAdapter.Update(Me.SBDS.AppointmentCategories)

Als dat ook niet werkt, kun je dan je hele project ff zippen, en hier plaatsen.

 

[WarnedGraph]

Jammerlijk genoeg heeft uw oplossing mij geen beterschap verschaft. Het werkt nog
steeds niet.

Mijn hele project kan ik niet uploaden, maar dat is ook niet belangrijk.
Wat wel belangrijk is is mijn kleine project (waarvan de sourcecode bovenaan staat).

Mijn kleine project bestaat uit:
Form: frmMain
Buttons: btnToevoegen, btnOpslaan
DataGridView: GridAlgemeen
OpenFileDialog: OpenFileDialog
Database: zie bijlage!

Wat is de bedoeling van het programma:
De icons die je inleest via een ofd moeten worden opgeslagen in de database, meer niet.
Bij het toevoegen komt het icon in de grid en bij opslaan wordt het weggeschreven naar de
database ("Lange Binaire Gegevens").

Dank bij voorbaat!

 

[WarnedGraph]

Alles is ondertussen opgelost ... Toch bedankt voor het werk dat jullie er
aan verricht hebben!