Códigos
'=====================================…
Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
Try
Dim sql As String ="Insert Into ALBUM values(@CODIGO,@NOMBRE,@Telefono)"
Dim cmd As New SqlCommand(sql, Cone)
cmd.Parameters.Add("@CODIGO", SqlDbType.Char, 15).Value = Me.TxtCodigo.Text()cmd.Parameters.Add("@NOMBRE", SqlDbType.VarChar, 30).Value = Me.TxtNomb.Text
cmd.Parameters.Add("@Telefono", SqlDbType.Int).Value = CInt(TxtTelefono.Text)
Cone.Open()
Dim i As Integer = cmd.ExecuteNonQuery
If i = 1 ThenLabel4.Visible = False
MsgBox("---------- registrado", MsgBoxStyle.Exclamation, "Insercion")
Else
Label4.Visible = True
End If
Catch ex As Exception
Finally
Cone.Close()
End Try
End Sub'Boton para Modificar
'=====================================…
Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
Try
Dim sql AsString = "UPDATE ALBUM SET NOMBRE=@NOMBRE, Telefono=@Telefono WHERE CODIGO=@CODIGO"
Dim cmd As New SqlCommand(sql, Cone)
cmd.Parameters.Add("@CODIGO", SqlDbType.Char, 15).Value =Me.TxtCodigo.Text()
cmd.Parameters.Add("@NOMBRE", SqlDbType.VarChar, 30).Value = Me.TxtNomb.Text
cmd.Parameters.Add("@Telefono", SqlDbType.Int).Value = CInt(TxtTelefono.Text)
Cone.Open()
Dim i As Integer =cmd.ExecuteNonQuery
If i = 1 Then
Label4.Visible = False
MsgBox("---------- Modifcado ", MsgBoxStyle.Exclamation, "Insercion")
Else
Label4.Visible = True
End If
Catch ex As Exception
FinallyCone.Close()
End Try
End Sub
'Boton para Eliminar
'=====================================…
Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnEliminar.Click
Try
Dim sql As String = "DELETE FROM ALBUM WHERE CODIGO=@CODIGO"
Dim cmd As New SqlCommand(sql, Cone)
cmd.Parameters.Add("@CODIGO", SqlDbType.Char, 15).Value = Me.TxtCodigo.Text()...
Regístrate para leer el documento completo.