none
Cargar archivos de datos RRS feed

  • Pregunta

  • Bien

    haciendo una aplicacion en WPF y Visual Basic 2010, he logrado cargar los datos cuando estan pre-editados, es decir cuando en la tabla esta en modo inserción de datos, los archivos en ese momento me cargan y todo al parecer funciona bien; pero al momento de editar los datos desde la aplicacion WPF no me guarda los datos en la BD de la aplicacion

    ¿Alguna sugerencia para corregir esto?

    viernes, 18 de junio de 2010 10:30

Todas las respuestas

  • hola

    pero al momento de editar los datos desde la aplicacion WPF no me guarda los datos en la BD de la aplicacion

    pero realizas alguna operacion en especial para persistir la informacion ?

    o sea magicamente seguro no se guardan, algo debes ejecutar para que esto sea asi

    en ese caso como estas persistiendo los datos, usas dataset tipado con tableadapter, o los objetos de ado.net y creas tu mismo las queries que insertan los registros

    por ahi si pones algo del codigo que usas para actualziar se pueda ver el problema

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    viernes, 18 de junio de 2010 12:31

  • OK Leandro

    Hice 2 aplicaciones una es en access que la agrego a la aplicacion por medio de asistente y otra que la hice con los datos editandolos desde el VS. El problema es que solo me van a aparecer los datos que agrego en las tablas pero cuando los añado por medio de la aplcacion en WPF no me deja guardar los datos agregados

    Cuando veo en el diseñador de VS y trato de ver los datos del dataset.xsd no me muestra los datos que he introducido en la aplicacion cuando estuvo en ejecución es decir:

    • PARA VER QUE LOS DATOS SE CARGAN EN LA APLICACION TENGO COMO EJEMPLO:

    NOMBRE EMPRESA: (Dato de Prueba)

    REPRESENTANTE LEGAL: (Dato de Prueba)

    NIT: (Dato de Prueba)

    REGISTRO: (Dato de Prueba)

    DIRECCIÓN: (Dato de Prueba)

                ′Ahi en la aplicación carga normal el dato de prueba, uso éste código

    Public Class Window3
        Private Empresadata As New MiEmpresaDataSet
        Private taEmpresa As New MiEmpresaDataSetTableAdapters.EmpresaTableAdapter
        Private tamanager As New MiEmpresaDataSetTableAdapters.TableAdapterManager
        Private view As CollectionView
        Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
            Me.taEmpresa.Fill(Me.Empresadata.Empresa)
            Me.tamanager.EmpresaTableAdapter = taEmpresa
            Me.DataContext = Me.Empresadata.Empresa
            Me.view = CollectionViewSource.GetDefaultView(Empresadata.Empresa)
            Dim MiEmpresaDataSet As Contabilidad.MiEmpresaDataSet = CType(Me.FindResource("MiEmpresaDataSet"), Contabilidad.MiEmpresaDataSet)
            'Cargar datos en la tabla Empresa. Puede modificar este código según sea necesario.
            Dim MiEmpresaDataSetEmpresaTableAdapter As Contabilidad.MiEmpresaDataSetTableAdapters.EmpresaTableAdapter = New Contabilidad.MieEmpresaDataSetTableAdapters.EmpresaTableAdapter()
            MiEmpresaDataSetEmpresaTableAdapter.Fill(MiEmpresaDataSet.Empresa)
            Dim EmpresaViewSource As System.Windows.Data.CollectionViewSource = CType(Me.FindResource("EmpresaViewSource"), System.Windows.Data.CollectionViewSource)
            EmpresaViewSource.View.MoveCurrentToFirst()
        End Sub

          Private Sub BtnFirst_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnFirst.Click
            Me.view.MoveCurrentToFirst()
        End Sub

        Private Sub BtnPrevious_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnPrevious.Click
            If Me.view.CurrentPosition > 0 Then
                Me.view.MoveCurrentToPrevious()
            End If
        End Sub

        Private Sub BtnNext_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnNext.Click
            If Me.view.CurrentPosition < Me.view.Count - 1 Then
                Me.view.MoveCurrentToNext()
            End If
        End Sub

        Private Sub BtnLast_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnLast.Click
            Me.view.MoveCurrentToLast()
        End Sub

        Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnDelete.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 BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnAdd.Click
            Dim row = Me.Empresadata.Empresa.NewEmpresaRow
            row._CódigoPostal_ = "[New]"
            Me.Empresadata.Empresa.AddEmpresaRow(row)
            Me.view.MoveCurrentToLast()
        End Sub

        Private Sub BtnRevert_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnRevert.Click
            If Me.Empresadata.HasChanges Then
                If MessageBox.Show("Seguro que desea eliminar la información suministrada", Me.Title, MessageBoxButton.YesNo) = MessageBoxResult.Yes Then
                    Me.Empresadata.RejectChanges()
                End If
            End If
        End Sub

        Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BtnSave.Click
            Try
                If Me.Empresadata.HasChanges Then
                    If Me.tamanager.UpdateAll(Me.Empresadata) > 0 Then
                        MsgBox("Guardado con éxito")
                    End If

                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub
    End Class

    •QUIERO INTRODUCIR EL SIGUIENTE DATO (DESDE LA APLICACION WPF EN EJECUCIÓN)

    NOMBRE EMPRESA: Inversiones Campo Alegre

    REPRESENTANTE LEGAL: Juan Tabares

    NIT: 1234567

    REGISTRO: 1234567

    DIRECCIÓN: Av. NQS #76 - 44

                       ′Introdusco estos datos y aparentemente al darle guardar sale el msgbox, pero al mirar en MiEmpresaDataSet.xsd sólo está el dato de prueba y no el dato que introduje cuando la aplicacion estaba en ejecución.

     

    PDTA: Dado a que la base de datos se encuentra con el nombre de la empresa, se ha cambiado el nombre del DataSet a MiEmpresa y a Empresadata; y el nombre del archivo a Contabilidad

     

     

     

     

     

     

    sábado, 19 de junio de 2010 1:54