Update van bepaalde rij in een database

[krizzy]

Hallo,

Ik heb een probleem bij het updaten van een bepaalde rij van een database... verwijderen en aanmaken lukt, maar als ik een update wil doen van een bepaalde rij, dan word de 1e rij van de database geüpdated... bij welke rij dan ook...
Is er een bepaalde manier om de betreffende rij te selecteren ?
Dit is mijn code:

 Private Sub save()
        PersonenBindingSource.EndEdit()
        PersonenTableAdapter.Update(ContactenDataSet.Personen)
    End Sub

Bedankt voor de reacties !
Kriz De Logi

 

[krizzy]

weet er echt niemand een oplossing voor dit probleem ?
alvast bedankt

 

[krizzy]

dit is de code

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class frmLijst
    Dim telprev As String
    Private Sub frmLijst_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MsgBox("Zeker ?", MsgBoxStyle.YesNo, "Sluiten") = MsgBoxResult.Yes Then
            End
        Else
            e.Cancel = True
        End If
    End Sub
    Private Sub SluitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SluitenToolStripMenuItem.Click
        Me.Close()
    End Sub
    Private Sub frmLijst_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'ContactenDataSet.Personen' table. You can move, or remove it, as needed.
        Me.PersonenTableAdapter.Fill(Me.ContactenDataSet.Personen)
        Me.Text = "Contactenlijst - " + ContactenDataSet.Personen.Item(lstcontacts.SelectedIndex).Naam
        'orden()
    End Sub
    Private Sub lstcontacts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstcontacts.SelectedIndexChanged
        inptel.Text = ContactenDataSet.Personen.Item(lstcontacts.SelectedIndex).Telefoonnummer
        Me.Text = "Contactenlijst - " + ContactenDataSet.Personen.Item(lstcontacts.SelectedIndex).Naam
        telprev = inptel.Text

    End Sub
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        ContactenDataSet.Personen.Item(lstcontacts.SelectedIndex).BeginEdit()
        save()
    End Sub
    Private Sub ZoekenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZoekenToolStripMenuItem.Click
        zoeken.ShowDialog()
        If zoeken.DialogResult = Windows.Forms.DialogResult.OK Then

        Else
            Exit Sub
        End If
    End Sub
    Private Sub cmdnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnew.Click
        frmnieuw.ShowDialog()
        If frmnieuw.DialogResult = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        Else
            ContactenDataSet.Personen.AddPersonenRow(frmnieuw.TextBox1.Text, frmnieuw.TextBox2.Text)
            lstcontacts.Refresh()
            lstcontacts.SelectedItem = frmnieuw.TextBox1.Text
            PersonenBindingSource.EndEdit()
            PersonenTableAdapter.Update(ContactenDataSet.Personen)
        End If
    End Sub
    Private Sub save()
        Me.Validate()
        PersonenBindingSource.EndEdit()
        PersonenTableAdapter.Update(ContactenDataSet.Personen.Rows.Add)
    End Sub

    Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
        If lstcontacts.Items.Count = 1 Then
            MsgBox("Er moet minstens 1 waarde aanwezig zijn !")
            Exit Sub
        End If
        Dim delete(2) As Object
        delete(0) = lstcontacts.SelectedIndex
        delete(1) = lstcontacts.Text
        delete(2) = telprev
        ContactenDataSet.Personen.RemovePersonenRow(delete(2))
        lstcontacts.Refresh()
        Me.Validate()
        PersonenBindingSource.EndEdit()
        PersonenTableAdapter.Update(ContactenDataSet.Personen)
    End Sub
    Private Sub orden()
        lstcontacts.Sorted = True

    End Sub


End Class

 

[old Hippy]

Ik weet niet wat je bedoeld met update. dit comando word gebruikt om de data aantepassen als je hem veranderd.
Fill word gebruikt om de dataset tevullen.
Met een query Update kan je Kan je vanuit een dataset een andere dataset aanpassen.
En wat voor database gebruik je
Dus wat is je probleem????