necesito eliminar datos de una base de datos sqlserver
para lo cual paso los datos por medio de un formulario
en el campo TxtCodProd para ello tengo mi siguiente clase de VB
la cual tiene sus respectivos metodos get y set.
Clase Producto
Public Class Producto
'variables de instancia
Private codigoproducto As Integer
'constructor vacio
Public Sub New()
codigoproducto = ""
End Sub
'sobrecarga constructor
Public Sub New(ByVal codigoproducto As Integer)
Me.codigoproducto = codigoproducto
End Sub
'metodos accesadores
Public Function getCodigoproducto() As Integer
Return codigoproducto
End Function
'metodos mutadores
Public Sub setCodigoproducto(ByVal codigoproducto As Integer)
Me.codigoproducto = codigoproducto
End Sub
End Class
Ahora mi ASPX.VB
Imports System.Data
Imports System.Data.SqlClient
Public Class WebElimina
Inherits System.Web.UI.Page
Dim objproducto As Producto
Dim conexion As System.Data.SqlClient.SqlConnection
Dim StrSql As System.Data.SqlClient.SqlCommand
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
End Sub
Private Sub btnElmima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
‘Me conecto a la base de datos
Dim conexion As System.Data.SqlClient.SqlConnection
conexion = New System.Data.SqlClient.SqlConnection("Server=localh ost;uid=sa;pwd=;Database=TiendaMascotas")
‘realiza la consulta
Dim sql As New String("delete from producto where codigo_prod = @codigo_prod")
Dim ocmd As New SqlCommand
ocmd.Parameters.Add(New SqlParameter("@codigo_prod", SqlDbType.Int))
conexion.Open()
ocmd.CommandText = sql
ocmd.Connection = conexion
ocmd.ExecuteNonQuery()
conexion.Close()
End Sub
End Class
Mi pregunta es como recupero el dato que paso por el formulario y elimino lo que deseo.
por fa necesito la ayuda de manera urgente
se agradece...
