Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/03/2011, 13:51
darco1103
 
Fecha de Ingreso: marzo-2011
Ubicación: Colombia
Mensajes: 17
Antigüedad: 13 años, 1 mes
Puntos: 0
Pregunta Modificar base de datos desde datagrid (vb.net)

BUENOS DIAS...NECESITO MODIFICAR UNA TABLA DE MI BASE DE DATOS DESDE UN DATAGRID DESPUÉS DE PULSAR UN BOTÓN QUE SE LLAMA ACTUALIZAR. LO QUE PASA ES QUE EL CÓDIGO ME ESTÁ MODIFICANDO TODA LA TABLA CON LOS MISMOS DATOS, EJEMPLO:
CUANDO CARGO LOS DATOS DE UNA TABLA DE NOMBRE 'detalle_productos' A MI DATAGRID,QUE TIENE LAS COLUMNAS: CODIGO COMPONENTE, INGREDIENTE, MEDIDA,CANTIDADY PRECIO, ÉSTE QUEDARÍA ASÍ:
EN LA PRIMERA FILA: 01---ARROZ---LIBRA---2---$1000
SI EN ÉSTA FILA CAMBIO EL PRECIO DE $1000 A $1200, ENTONCES CUANDO LE DOY MODIFICAR, ME LLENA TODA LA TABLA CON LOS DATOS DE LA FILA QUE MODIFIQUÉ DE TAL MANERA QUE SI EN LA TABLA HAY 5 REGISTROS TODOS QUEDAN ASÍ:
01---ARROZ---LIBRA---2---$1200
01---ARROZ---LIBRA---2---$1200
01---ARROZ---LIBRA---2---$1200
01---ARROZ---LIBRA---2---$1200
01---ARROZ---LIBRA---2---$1200

NECESITO QUE SE MODIFIQUEN SÓLAMENTE LOS DATOS QUE ALTERÉ EN EL DATAGRID Y LOS DEMÁS QUE LOS DEJE IGUAL

AQUÍ LES PASO EL CÓDIGO QUE ESTOY UTILIZANDO...SI TIENEN OTRA FORMA DE HACER ÉSTE PROCESO, LES AGRADEZCO QUE ME LA DIGAN, GRACIAS!
MI BASE DE DATOS ESTÁ HECHA EN MySql

Código vb:
Ver original
  1. Private Sub btnActualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnActualizar.Click
  2.         Dim aux As String
  3.         Dim comp, ingr, medi, cant, prec As String
  4.  
  5.         For i As Integer = 0 To grilla_productos.Rows.Count - 1
  6.             comp = Trim(grilla_productos.Rows(i).Cells(0).Value)
  7.             ingr = Trim(grilla_productos.Rows(i).Cells(1).Value)
  8.             medi = Trim(grilla_productos.Rows(i).Cells(2).Value)
  9.             cant = Trim(grilla_productos.Rows(i).Cells(3).Value)
  10.             prec = Trim(grilla_productos.Rows(i).Cells(4).Value)
  11.  
  12.  
  13.             aux = MsgBox("¿ESTA SEGURO DE ACTUALIZAR ESTE REGISTRO?", MsgBoxStyle.YesNo, "ACTUALIZAR")
  14.  
  15.             If aux = 6 Then
  16.                 Dim guardar As New MySQLDriverCS.MySQLCommand
  17.                 guardar.Connection = cnn
  18.                 guardar.CommandType = CommandType.StoredProcedure
  19.                 guardar.CommandText = "UPDATE detalle_menu SET cod_comp='" & comp & "',ingredientes = '" & ingr & "', medida = '" & medi & "',cantidad='" & cant & "',precio = '" & prec & "' WHERE cod_comp='" & comp & "'"
  20.                 guardar.ExecuteNonQuery()
  21.  
  22.                 MsgBox("DATOS ACTUALIZADOS CORRECTAMENTE", MsgBoxStyle.Information, "ACTUALIZACION")
  23.  
  24.             Else
  25.  
  26.             End If
  27.         Next
  28.     End Sub