none
Porque no se actualiza la base de datos cuando pulso un boton RRS feed

  • Pregunta

  • Hola a todos estoy realizando UN CMMS y funciona pero cuando quiero eliminar el botón de eliminar si borra pero cuando lo vuelves a abrir sigue apareciendo los valores agregados

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: This line of code loads data into the 'CMMS_Hospital_General_SilaoDataSet4.Mantenimiento' table. You can move, or remove it, as needed.
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
            'TODO: This line of code loads data into the 'CMMS_Hospital_General_SilaoDataSet3.Mantenimiento' table. You can move, or remove it, as needed.
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
            'TODO: This line of code loads data into the 'CMMS_Hospital_General_SilaoDataSet2.Mantenimiento' table. You can move, or remove it, as needed.
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
            'TODO: This line of code loads data into the 'CMMS_Hospital_General_SilaoDataSet1.Mantenimiento' table. You can move, or remove it, as needed.
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
            'TODO: This line of code loads data into the 'CMMS_Hospital_General_SilaoDataSet.Mantenimiento' table. You can move, or remove it, as needed.
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
    
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Me.MantenimientoTableAdapter.Insert(DESCRIPCIONTextBox.Text, MARCAComboBox.Text, MODELOTextBox.Text, NO_SERIETextBox.Text, INVENTARIOTextBox.Text, AREAComboBox.Text, ENCARGADOTextBox.Text, MANTENIMIENTO_CORRECTIVOTextBox.Text, MANTENIMIENTO_PREVENTIVOTextBox.Text, PRG_RComboBox.Text, MESMaskedTextBox.Text, MES_MaskedTextBox.Text)
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
        End Sub
    
        Private Sub TextBox1_textchanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
            Me.MantenimientoBindingSource.Filter = "DESCRIPCION like '%" & TextBox1.Text & "%'"
        End Sub
    
        Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
            Me.MantenimientoBindingSource.Filter = "MARCA like '%" & TextBox2.Text & "%'"
        End Sub
    
        Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
            Me.MantenimientoBindingSource.Filter = "MODELO like '%" & TextBox3.Text & "%'"
        End Sub
    
        Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
            Me.MantenimientoBindingSource.Filter = "INVENTARIO like'%" & TextBox4.Text & "%'"
        End Sub
    
        Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
            Me.MantenimientoBindingSource.Filter = "AREA like '%" & TextBox5.Text & "%'"
        End Sub
    
        Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
            Me.MantenimientoBindingSource.Filter = "ENCARGADO like '%" & TextBox6.Text & "%'"
        End Sub
    
        Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
            MessageBox.Show("CMMS:Es una herramienta que puede mejorar la gestión general de los equipos médicos en el ámbito de los centros sanitarios. La información que se recoge en un CMMS. Contiene una base de datos informática sobre las operaciones de mantenimiento de una organización.")
        End Sub
    
        Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
            MantenimientoTableAdapter.eliminar(DESCRIPCIONTextBox.Text, MARCAComboBox.Text, MODELOTextBox.Text, NO_SERIETextBox.Text, INVENTARIOTextBox.Text, AREAComboBox.Text, ENCARGADOTextBox.Text, MANTENIMIENTO_CORRECTIVOTextBox.Text, MANTENIMIENTO_PREVENTIVOTextBox.Text, PRG_RComboBox.Text, MESMaskedTextBox.Text, MES_MaskedTextBox.Text)
            Me.MantenimientoTableAdapter.Fill(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)
        End Sub
    End Class

    por favor ayudenme

    lunes, 25 de julio de 2016 2:26

Todas las respuestas

  • No se ve cómo está implementador "eliminar", pero por los síntomas que describes es posible que sólo estés eliminando los datos en el DataSet y no estés salvando los cambios en la base de datos (falta la llamada al .Update). Por eso al hacer el Fill se volverían a cargar los datos originales y se perdería la eliminación.
    lunes, 25 de julio de 2016 6:23
  • pero como hago eso con un query o como?
    lunes, 25 de julio de 2016 16:46
  • No, es un método más del tableadapter, igual que el Fill. El método Fill trae datos de la base de datos al datatable en memoria, y el Update los pasa desde el datatable en memoria hacia la base de datos:

     Me.MantenimientoTableAdapter.Update(Me.CMMS_Hospital_General_SilaoDataSet4.Mantenimiento)

    Como ves, solo se cambia el Fill por Update.

    lunes, 25 de julio de 2016 17:56