CREATE PROCEDURE modificar @NumeroIP nvarchar(255), @Usuario nvarchar(255),@DirecciónMAC nvarchar(255), @MACRestricciones nvarchar(255), @MACSinRestricciones nvarchar(255), @Enmascarada nvarchar(255), @SistemaOperativo nvarchar(255), @DirecciónArea nvarchar(255), @TipoEquipo nvarchar(255),@Observación nvarchar(255)
as update dbo.IP
set  Usuario = @Usuario, DirecciónMAC = @DirecciónMAC, MACRestricciones = @MACRestricciones, MACSinRestricciones = @MACSinRestricciones, Enmascarada = @Enmascarada,SistemaOperativo = @SistemaOperativo,DirecciónArea = @DirecciónArea, TipoEquipo = @TipoEquipo,Observación = @Observación
where NumeroIP = @NumeroIP
raiserror ('Valor modificado',16,1)

Dim conex As New SqlConnection("Data Source=GABRIELA;Initial Catalog=IPS_Database;Integrated Security=True")
        Dim cmd As New SqlCommand("editar", conex)
        cmd.CommandType = CommandType.StoredProcedure
        conex.Open()

        Dim para As New SqlParameter("@NumeroIP", SqlDbType.NVarChar)
        para.Size = 255
        para.Value = TextBoxDireccionIP.Text
        cmd.Parameters.Add(para)

        Dim da As New SqlDataAdapter
        da.SelectCommand = cmd
        da.SelectCommand.Connection = conex

        Dim ds As New DataSet
        da.Fill(ds, "IPS_DatabaseDataSet1")

        DataGridView2.DataSource = ds.Tables("TablaIPS")


       NumeroIPPTextBox.Clear()
        UsuarioTextBox.Clear()
        DireccionMACTextBox.Clear()
        DireccionAreaTextBox.Clear()
        ObservacionTextBox.Clear()
        DireccionAreaTextBox.Clear()
        ObservacionTextBox.Clear()
        conex.Open()
        cmd.ExecuteNonQuery()