none
No me guarda cambios en DATASET RRS feed

  • Pregunta

  • Hola,

    he hecho una ventana de Wpf que me muestra los datos de una base  de datos access a través de un DATASET.

    el caso es que si des de la ventana  modifico un valor me lo guarda (en la ventana) pero si la reinicio me pierde la modificación.

    He mirado y la modificación no me llega al DATASET.

    Mi codigo es:

     Private Sub Bt_desa_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_desa.Click
    Try
    If Me.amistatsData.HasChanges Then
    If Me.taManager.UpdateAll(Me.amistatsData) > 0 Then
    MsgBox("Guardado")
    End If
    End If
    Catch ex As Exception
    MsgBox(ex.ToString)
    End Try
    End Sub

    El caso es que me confirma que esta guardado y se comporta como tal...pero no me llega al dataset... Le falta algo al código?

    Gracias

    viernes, 4 de junio de 2010 11:20

Todas las respuestas

  • alguien me puede echar un cable??

    estoy un poco perdido.... he bajado este ejemplo que me recorre los campos, parece que añade pero no me guarda en DATASET.

    os paso todo mi codigo, la funcion del boton  que tiene que guardar esta en negrita,

    y en este caso como implemnto el codigo de la ultima funcion que es un combobox: Cbox_Cerca para que me cargue el campo seleccionados en el View.

    Gracias

     

    Public Class Window2
    Private amistatsData As New DataSet1
    Private taamistat As New DataSet1TableAdapters.amistatsTableAdapter
    Private taManager As New DataSet1TableAdapters.TableAdapterManager
    Private View As CollectionView


    Private Sub Window2_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
    Me.taamistat.Fill(Me.amistatsData.amistats)
    Me.taManager.amistatsTableAdapter = taamistat
    Me.DataContext = Me.amistatsData.amistats
    Me.View = CollectionViewSource.GetDefaultView(Me.amistatsData.amistats)

    End Sub

    Private Sub btdarrer_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btdarrer.Click
    Me.View.MoveCurrentToFirst() 'anem a la primera posició
    End Sub

    Private Sub bt_enrera_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles bt_enrera.Click
    If Me.View.CurrentPosition > 0 Then
    Me.View.MoveCurrentToPrevious() 'anem a la anterior
    End If
    End Sub

    Private Sub Bt_endavant_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_endavant.Click
    If Me.View.CurrentPosition < Me.View.Count - 1 Then
    Me.View.MoveCurrentToNext() 'anem al seguent
    End If
    End Sub

    Private Sub Bt_darrer_recent_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_darrer_recent.Click
    Me.View.MoveCurrentToLast()
    End Sub

    Private Sub Bt_elimina_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_elimina.Click
    If Me.View.CurrentPosition > -1 Then
    Dim row = CType(Me.View.CurrentItem, System.Data.DataRowView).Row
    row.Delete()
    End If
    End Sub

    Private Sub Bt_desfes_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_desfes.Click
    If Me.amistatsData.HasChanges Then
    If MessageBox.Show("Esteu segurs de fer aquests canvis?", Me.Title, MessageBoxButton.YesNo) = MessageBoxResult.Yes Then
    Me.amistatsData.RejectChanges()
    End If
    End If
    End Sub

    Private Sub Bt_desa_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_desa.Click
    Try
    If Me.amistatsData.HasChanges Then
    If Me.taManager.UpdateAll(Me.amistatsData) > 0 Then
    MsgBox("Guardat")
    End If
    End If
    Catch ex As Exception
    MsgBox(ex.ToString)
    End Try
    End Sub

    Private Sub Bt_nou_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Bt_nou.Click
    Dim row = Me.amistatsData.amistats.NewamistatsRow
    row.cognom = "[ entreu la nova amistat ]"
    Me.amistatsData.amistats.AddamistatsRow(row)
    Me.View.MoveCurrentToLast()
    End Sub

    Private Sub Cbox_cerca_SelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles Cbox_cerca.SelectionChanged
    Dim ind As Integer = Cbox_cerca.SelectedIndex
    MsgBox("el id es " & ind)


    End Sub
    End Class

     

    lunes, 7 de junio de 2010 23:08