none
Como modificar datos por un rango en un datagridview RRS feed

  • Pregunta

  • Tengan muy buenas noches mi problema es el siguiente cargo un datagridview por medio de un filtro ejemplo de mi filtro es de 10 a 20 pero no se como actualizar la fecha de esos registro filtrados tengo este código pero no me funciona si alguien pudiera ayudarme se los agradecería.

     Dim dat As String
            dat = DateTimePicker1.Text

            sql = " UPDATE Captura SET"

            sql += " FecAnalisis = " & dat & ""
            sql += " WHERE Idregistro = " & txtid.Text & " And Idregistro =" & txtid2.Text & ""
         
            MsgBox("Datos Guardados Correctamente")

    • Cambiado Enrique M. Montejo sábado, 2 de mayo de 2015 15:35 Pregunta relacionada con controles de Windows Forms.
    miércoles, 29 de abril de 2015 3:32

Todas las respuestas

  • Saludos:

    Debes recorrer las filas del DGV, tomar los datos e ir creando el UPDATE. Algo asi:

    Dim Dt_Item As Integer
    Dim Dt_Valor As Double
    Dim Dt_Nombre, _Update As String
    Dim Dt_Fecha As Date
    
    For Each Dt_Row As DataGridViewRow In DataGRidView1.Rows
    Dt_Item = CInt(Dt_Row.Cells("Item").Value)
    Dt_Valor = CDbl(Dt_Row.Cells("Pago").Value)
    Dt_Nombre = Dt_Row.Cells("Nombre").Value.ToString
    Dt_Fecha = CDate(Dt_Row.Cells("Fecha").Value)
    
    _Update = "UPDATE myTable SET "
    _ Update += "Valor = " & Dt_Valor & " "
    _ Update += "Nombre = '" & Dt_Nombre & "' "
    _ Update += "Fecha = '" & Dt_Fecha & "' "
    _ Update += "WHERE Item = " & Dt_Item & ";"
    Next

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    jueves, 7 de mayo de 2015 20:25
  • Muy amable en contestar mi pregunta pero de tanto intentar encontré la solución lo que tu me dices es correcto de nuevamente muchas gracias

    así es como quedo :)

     cmd.CommandType = CommandType.Text
            cmd.Connection = con
            sql = " UPDATE Captura SET"

            sql += " R1 = '" & an1 & "',"
            sql += " R2 = '" & an2 & "',"
            sql += " R3 = '" & an3 & "',"
            sql += " R4 = '" & an4 & "',"
            sql += " R5 = '" & an5 & "',"
            sql += " R6 = '" & an6 & "',"
            sql += " R7 = '" & an7 & "',"
            sql += " R8 = '" & an8 & "',"
            sql += " R9 = '" & an9 & "',"
            sql += " FecAnalisis = '" & dat & "'"
            sql += " WHERE Idregistro >= " & txtid.Text & " And Idregistro <=" & txtid2.Text & ""



            cmd.CommandText = sql


            Try
                cmd.ExecuteNonQuery()

            Catch ex As Exception
                MsgBox(ex.ToString)


            End Try

    Saludos...

      
    jueves, 7 de mayo de 2015 22:28