none
com comparo los datos de mi datagridview con los datos de mi base de datos RRS feed

  • Pregunta

  • HOLA
     lo que pretendo hacer es en mi tabla existencia_pta que contiene los campos (planta,codificacion,cant_existente) verificar si los datos planta y codificacion son iguales a los datos planta codificacion del grid entoncessss sumar sus solamente lo que ay en el grid en la columna cant_proporcinada mas lo que ay en la tabla en el campo cant_existente....si mi dato del grid es diferente a lo que esta en la tabla entonces que lo inserte como un nuevo dato y sino que actulize el campo cant_existente con la sumatoriaaaa

    asi tengo mi codigo pero el detalle es que en mi grid tengo datossss iguales a lo de la tabla y pues no me hace la suma actulizando el campo cant_existente solo me inserta el registro y nada massss....

    nota: los datos que tiene que ser iguales para poder actulizar el campo cant_existente son planta y codificacion

    For j As Integer = 0 To DGV_Desp.Rows.Count - 1
              Dim cmd1 As New SqlCommand("select *from existencia_pta", cadena)
              Dim dr As SqlDataReader = cmd1.ExecuteReader
              If dr.Read Then
                Dim can_p, suma As Double
                Dim can_r As Double = 0
                If dr(0) = DGV_Desp.Rows(j).Cells(0).Value And dr(1) = DGV_Desp.Rows(j).Cells(1).Value Then
                  can_r = dr.Item("Cant_Recib")
                  can_p = DGV_Desp.Rows(j).Cells(5).Value
                  suma = can_r + can_p
                  Dim cmd2 As New SqlCommand("update existencia_pta set cant_exist = " & suma & " where cve_pta ='" & DGV_Desp.Rows(j).Cells(0).Value & "' and codificacion = '" & DGV_Desp.Rows(j).Cells(1).Value & "'", cadena)
                  cmd2.ExecuteNonQuery()
                Else
                  dr.Close()
                  Dim cmd3 As New SqlCommand("insert into existencia_pta values('" & DGV_Desp.Rows(j).Cells(0).Value & "','" & DGV_Desp.Rows(j).Cells(1).Value & "'," & DGV_Desp.Rows(j).Cells(5).Value & ")", cadena)
                  cmd3.ExecuteNonQuery()
                End If
              Else
                dr.Close()
                Dim cmd4 As New SqlCommand("insert into existencia_pta values('" & DGV_Desp.Rows(j).Cells(0).Value & "','" & DGV_Desp.Rows(j).Cells(1).Value & "'," & DGV_Desp.Rows(j).Cells(5).Value & ")", cadena)
                cmd4.ExecuteNonQuery()
              End If
    
            Next

    DORI
    jueves, 4 de noviembre de 2010 19:40

Todas las respuestas