multiplicar rows en un dataset

[guillebomtrasmiti]

Hola amigoss¡000''¡¡¡

Llevo muchos meses de trabajo y me he atascado en una tontería, necesito hacer que, un datagridview dónde salen dos campos, uno con el nombre de un producto que sale de la base de datos en access que tengo y otro cantidad que está vacío a la espera de que el cliente escriba la cantidad, bien necesito que cuando ponen la cantidad las filas se multipliquen tantas veces como el usuario a escrito, imaginaros;

nombreProd Cantidad
QUESO 3

Bien, pues que ahora al guardar el datagrid contenga 3 filas del producto queso con unidades 1...ayudaaaaa''¡¡¡¡ así es como lo hago ahora;

'Declaraciones
Dim cmAlta As OleDbCommand
Dim i As Integer
Dim cn As OleDbConnection

'Construimos y abrimos la conexión con la base de datos
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\cb.mdb")
cn.Open()

'Preparamos el comando
cmAlta = New OleDbCommand("INSERT INTO ETCB(Producto,Cantidad) VALUES(@P,@C)")
cmAlta.Parameters.Add("@P", OleDbType.VarChar)
cmAlta.Parameters.Add("@C", OleDbType.Numeric)
cmAlta.Connection = cn
For i = 0 To undataset.Tables(0).Rows.Count - 1
'rellenamos el valor de los parámetros
cmAlta.Parameters("@P").Value = undataset.Tables(0).Rows(i)("Producto").ToString()
cmAlta.Parameters("@C").Value = undataset.Tables(0).Rows(i)("Cantidad").ToString()
'realizamos el alta
cmAlta.ExecuteNonQuery()
Next
MessageBox.Show("Se ha Guardado el contenido")
'Cerramos la conexion con la base de datos
cn.Close()

[devilinside]

Código Vb.Net:

...
 
Dim CantTmp as Integer
Dim j as Integer
For i = 0 To undataset.Tables(0).Rows.Count - 1
'rellenamos el valor de los parámetros
CantTmp=undataset.Tables(0).Rows(i)("Cantidad")
    For j=0 to CantTmp-1
       cmAlta.Parameters("@P").Value = undataset.Tables(0).Rows(i)("Producto").ToString()
       cmAlta.Parameters("@C").Value = 1
       'realizamos el alta
       cmAlta.ExecuteNonQuery()
    Next
Next
 
MessageBox.Show("Se ha Guardado el contenido")
'Cerramos la conexion con la base de datos
cn.Close()
 

[guillebomtrasmiti]

bueno, bueno, bueno...nunca sabré como agradecerte lo que me has mandado, solo tengo un pequeño problemilla más que es que no se me refresca el dataset, tengo que salir y volver a entrar en la aplicacíon para que se vea...del resto...joer gracias gracias gracias gracias....

[devilinside]

...
MessageBox.Show("Se ha Guardado el contenido")
'Cerramos la conexion con la base de datos
cn.Close()
actualizar_grid()

jeje

[Aquaventus]

jajaja devilinside que práctico eres!! jajaja hazle un select a tu tabla ETBC y llena el datagrid nuevamente. Saludos!