none
AYUDA BOTON UPDATE "MODIFICAR" RRS feed

  • Pregunta

  •  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Me.LISTATableAdapter.MODIFICAR(IDTextBox.Text, NOMTextBox.Text, DIMTextBox.Text, PESTextBox.Text, LONTextBox.Text, SUPTextBox.Text, CORTextBox.Text, KAMTextBox.Text, PROTextBox.Text, MANTextBox.Text, BAUTextBox.Text, MADTextBox.Text, PERISTextBox.Text, FECHADateTimePicker.Text, NOMTextBox.Text)
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
        End Sub

    tengo este error al modificar la tabla  .... no deberia verdad??

    • Cambiado Enrique M. Montejo martes, 10 de enero de 2017 6:54 Pregunta relacionada con el acceso a datos
    jueves, 5 de enero de 2017 9:37

Todas las respuestas

  • Hola:

    Deberías ampliar el problema que tienes, por ejemplo: como estás actualizando, desde donde obtienes los datos, cuál es el error que te está dando, etc.  Las imágenes está bien que las pongas, pero para detectar el error se necesita el código.

    Un cordial saludo.

    Gemma


    jueves, 5 de enero de 2017 13:41
  • estoy actualizando por medio de listatableadapter en base1dataset el código que pegue arriba es el del botón de la ejecución de dicha instrucción update (MODIFICAR)....

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Me.LISTATableAdapter.MODIFICAR(IDTextBox.Text, NOMTextBox.Text, DIMTextBox.Text, PESTextBox.Text, LONTextBox.Text, SUPTextBox.Text, CORTextBox.Text, KAMTextBox.Text, PROTextBox.Text, MANTextBox.Text, BAUTextBox.Text, MADTextBox.Text, PERISTextBox.Text, FECHADateTimePicker.Text, NOMTextBox.Text)
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
        End Sub

    no tira ningun error nada de nada... solo ejecuto y guarda como mostre arriba....


    codigo completo:

    Public Class Form1
    
        Private Sub LISTABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles LISTABindingNavigatorSaveItem.Click
            Me.Validate()
            Me.LISTABindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.Base1DataSet)
    
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: esta línea de código carga datos en la tabla 'Base1DataSet.LISTA' Puede moverla o quitarla según sea necesario.
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
    
        End Sub
    
        Private Sub PROTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub MANTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub BAUTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub MADTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub PERISTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub FECHADateTimePicker_ValueChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub IDTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub NOMTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub DIMTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub PESTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub LONTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub SUPTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CORTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub KAMTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            Form2.Show()
        End Sub
    
        Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
            Me.Close()
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Me.LISTATableAdapter.INSERTAR(IDTextBox.Text, NOMTextBox.Text, DIMTextBox.Text, PESTextBox.Text, LONTextBox.Text, SUPTextBox.Text, CORTextBox.Text, KAMTextBox.Text, PROTextBox.Text, MANTextBox.Text, BAUTextBox.Text, MADTextBox.Text, PERISTextBox.Text, FECHADateTimePicker.Text)
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
        End Sub
    
        Private Sub LISTADataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
    
        End Sub
    
        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim loFila As DataGridViewRow = Me.LISTADataGridView.CurrentRow()
            LISTADataGridView.Rows.Remove(loFila)
        End Sub
    
        Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
            Me.LISTATableAdapter.FillBy(Me.Base1DataSet.LISTA, NOMTextBox.Text)
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Me.LISTATableAdapter.MODIFICAR(IDTextBox.Text, NOMTextBox.Text, DIMTextBox.Text, PESTextBox.Text, LONTextBox.Text, SUPTextBox.Text, CORTextBox.Text, KAMTextBox.Text, PROTextBox.Text, MANTextBox.Text, BAUTextBox.Text, MADTextBox.Text, PERISTextBox.Text, FECHADateTimePicker.Text, NOMTextBox.Text)
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
        End Sub
    End Class

    jueves, 5 de enero de 2017 14:33
  • Según puedo ver a simple vista, es que estas haciendo un update a todo el ID, es decir no estas actualizando un único registro, sino estas actualizando varios. te recomiendo que en tu base de datos tengas en las tables un campo unico (es decir que cada registro tengo un ID único o un campo que no se repita, así a la hora de modificar puedas actualizar ese único registro).

    verifica eso y me dejas saber.


    Alexander Jimenez

    jueves, 5 de enero de 2017 18:52
  • no te entiendo
    • Propuesto como respuesta JORGE LTC viernes, 6 de enero de 2017 17:52
    • Votado como útil Enrique M. Montejo domingo, 8 de enero de 2017 18:58
    viernes, 6 de enero de 2017 8:58
  • buenos dias mi consulta es la siguiente desde tableadapters dataset....  inserte un update... 

    quiero modificar ciertas celdas del datagridview ....pero solo una celda ejemplo.... la celdas correspondiente a la columna COR... pero en vez de ello modifica toda la columna en donde figuran valores iguales o similares

    Public Class Form1
    
        Private Sub LISTABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles LISTABindingNavigatorSaveItem.Click
            Me.Validate()
            Me.LISTABindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.Base1DataSet)
    
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: esta línea de código carga datos en la tabla 'Base1DataSet.LISTA' Puede moverla o quitarla según sea necesario.
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
    
        End Sub
    
        Private Sub PROTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub MANTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub BAUTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub MADTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub PERISTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub FECHADateTimePicker_ValueChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub IDTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub NOMTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub DIMTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub PESTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub LONTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub SUPTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CORTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub KAMTextBox_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            Form2.Show()
        End Sub
    
        Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
            Me.Close()
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Me.LISTATableAdapter.INSERTAR(IDTextBox.Text, NOMTextBox.Text, DIMTextBox.Text, PESTextBox.Text, LONTextBox.Text, SUPTextBox.Text, CORTextBox.Text, KAMTextBox.Text, PROTextBox.Text, MANTextBox.Text, BAUTextBox.Text, MADTextBox.Text, PERISTextBox.Text, FECHADateTimePicker.Text)
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
        End Sub
    
        Private Sub LISTADataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
    
        End Sub
    
        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim loFila As DataGridViewRow = Me.LISTADataGridView.CurrentRow()
            LISTADataGridView.Rows.Remove(loFila)
        End Sub
    
        Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
            Me.LISTATableAdapter.FillBy(Me.Base1DataSet.LISTA, NOMTextBox.Text)
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Me.LISTATableAdapter.MODIFICAR(IDTextBox.Text, NOMTextBox.Text, DIMTextBox.Text, PESTextBox.Text, LONTextBox.Text, SUPTextBox.Text, CORTextBox.Text, KAMTextBox.Text, PROTextBox.Text, MANTextBox.Text, BAUTextBox.Text, MADTextBox.Text, PERISTextBox.Text, FECHADateTimePicker.Text, NOMTextBox.Text)
            Me.LISTATableAdapter.Fill(Me.Base1DataSet.LISTA)
        End Sub
    End Class

    NO SE COMO HACERLO... ACLARO SOY NUEVO EN PROGRAMACION JEJEJE!!

    ESTUVE MIRANDO EN GOOGLE....

    QUE SE USA 

    dataGridView1.Columns("CompanyName").ReadOnly = True

    tuDGV.Rows(0).Cells(0).ReadOnly=True...

    ES QUE NO LO ENTIENDO BIEN PODRIAN EXPLICARME...


    sábado, 7 de enero de 2017 13:53
  • Hola:

    En el ejemplo: tuDGV.Rows(0).Cells(0).ReadOnly=True

    te esta indicado el nombre del datagridview: TuDGV

    la línea: rows(0) te indica en este caso que la línea es la primera o sea la línea "0", recuerda que las numeraciones  tanto de columnas como de líneas empiezan por 0.

    la columna: cells(0), te esta indicando la columna 0

    y por último la propiedad .ReadOnly te dice que si el registro de la línea 0 y columna 0, es editable o no.

    Un saludo.

    Gemma

    sábado, 7 de enero de 2017 14:18
  • me podrias dar un ejemplo mas concreto??
    sábado, 7 de enero de 2017 23:30
  • Tienes que filtrar por la fila seleccionada y modificar solo esa fila, si la clave por la que filtras no es unica entonces modificara todos los registros de esa clave, intenta filtrar por numero de linea.

    jueves, 26 de enero de 2017 15:10