Error en actualizacion de datos

[Karil]

Hola!!!

Tengo un código para actualización de datos y funciona bien cuando es con pocos datos, pero al ingresar mas de 10 filas de datos, da un error que dice: "Error '6148' en tiempo de ejecución, Numero de filas incorrecto "

El código es el siguiente:

Dim CantidadComprada As Double, i As Integer

For i = 0 To dbgridCompras.ApproxCount - 1
dbgridCompras.Row = i
CantidadComprada = dbgridCompras.Columns(6)
Base.Execute "UPDATE Inventario SET Cantidad=Cantidad +" & CantidadComprada & _
" WHERE Cod_Producto=" & dbgridCompras.Columns(2)
Next i

En la fila en rojo es donde marca el error al depurar.

Agradecería mucho su ayuda.

Gracias.

[csdk_8346]

For i = 1 To dbgridCompras.ApproxCount
dbgridCompras.Row = i
CantidadComprada = dbgridCompras.Columns(6)
Base.Execute "UPDATE Inventario SET Cantidad=Cantidad +" & CantidadComprada & _
" WHERE Cod_Producto=" & dbgridCompras.Columns(2)
Next i

[Karil]

Gracias por la respuesta.

Voy a probar las modificaciones en el código.

Gracias y adiós.

[Karil]

Hola otra vez.

Probé con lo que sugirieron, pero siempre me marca el mismo error en el mismo sitio y no ejecuta la acción de actualizar.

Por favor si me pueden dar otra ayudadita se los agradecería. He probado unas cuantas cosas y con ninguna funciona, siempre al ingresar mas de 10 registros me da el error.

Gracias por la ayuda.

[seba123neo]

Hola, he comprobado probando que ese error solo sale si el nuemro de filas obviamente no existe...por ejemplo si yo tengo en el datagrid tengo 10 registros y en el For recorres 11 va a tirar error...como lo estas haciendo es valido...la verdad es raro lo que te pasa...pregunta ¿ cuantas filas tenes en el datagrid ? si por ejemplo tenes 30 proba cambiar el for por algo asi:

Código vb:

For i = 1 To 30
 

solo para probar...la otra que se me ocurre es que mientras estes recorriendo el datagrid y haces el UPDATE algo este pasando en la grilla y se esten desapareciendo registros y cambiando constantemente el valor de las filas y por lo tanto llega un momento que te tira error...pero como haces solo un UPDATE no creo que este pasando tal cosa...recorre el codigo linea por linea..pone un punto de interrupcion en el codigo y seguilo linea a linea seguro vas a encontrar el error...

saludos.

[Karil]

Hola Seba123neo!!!
Gracias por la ayuda y respuesta!!!

La verdad no tengo ningún número de filas predeterminado, el datagrid se va poniendo filas automaticamente al agregar cada registro.

Estuve revisando bien y al parecer se actualizan 10 registros que es lo que supuestamente soporta y los registros extras no cambian, verifique bien y toma los registros para actualizar de abajo hacia arriba, o sea que toma 10 registros empezando por el último y los actualiza.

Ya le he probado todo y no me funciona de ninguna manera, siempre da el mismo error.
Definitivamente ya no sé que hacer... pero si me pueden seguir echando una manita estaría muy agradecida.

Gracias y Adiós...