
'Declaraciones
Dim cmBorra 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")
conexion.Open()
'Preparamos el comando
cmBorra = New OleDbCommand("DELETE FROM ETCB Where Producto=@P")
cmBorra.Parameters.Add("@P", OleDbType.VarChar)
'cmBorra.Parameters.Add("@C", OleDbType.Numeric)
cmBorra.Connection = conexion
For i = 0 To undataset.Tables(0).Rows.Count - 1
'rellenamos el valor de los parámetros
cmBorra.Parameters("@P").Value = undataset.Tables(0).Rows(i)("Producto").ToString()
'cmBorra.Parameters("@C").Value = undataset.Tables(0).Rows(i)("Cantidad").ToString()
' 'realizamos el alta
cmBorra.ExecuteNonQuery()
Next
MessageBox.Show("Se ha borrado todo el contenido")
'Cerramos la conexion con la base de datos
conexion.Close()
actualizar_grid()