Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement