Si claro aqui esta el codigo, aunque como lo mencioné anteriormente, si elimina el elemento del archivo, nomas no actualiza el datagrid =(
Código:
Public Sub elimina_Articulo(ByVal toma As String)
Dim strSQL, _
lcToma As String
Dim loConexion As SqlCeConnection
Dim cmd As SqlCeCommand
lcToma = toma
Configura_Conexion()
strSQL = "DELETE FROM Tomas_Inventarios " + _
"WHERE toma = '" + lcToma + "'"
Try
loConexion = New SqlCeConnection(ConexionesDatos.regresaConexion())
cmd = New SqlCeCommand(strSQL, loConexion)
cmd.Connection.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("Artículo Eliminado")
Catch ex As Exception
MessageBox.Show("No se pudo eliminar el artículo...")
ManejoSonidos.PlaySoundFile("\My documents\no_encontrado.wav")
End Try
End Sub
Gracias!