Problema con Eliminar 1 registro de la base de datos

[kannalla]

bueno mi problema es el siguiente... este codigo que hize funciona 100% pero hay un detalle que no me gusta y no cacho como sacarlo.. tengo una clase persona y lo llamo desde mi frmEliminar .

el problema es el siguiente.. yo para eliminar, mi sistema me exige que tenga un txtclave.text y txttipo.text (texbox1) en el formulario.

y todos sabemos que para eliminar un registro no es necesario colocar su clave y tipo , basta con el nombre o rut y listo. pero en mi caso si le saco los txtclave.text y txttipo.text no me corre y me tira errores...
alguien me puede decir donde esta el detalle para poder sacar de mi formulario los textbox

CODIGO DE LA CLASE

Código:

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data.SqlClient
Imports System.Data
Imports Auditoria_de_impresion

Public Class clasePersona

    Public Sub New(ByVal perNombre As String, ByVal perContraseña As String, ByVal perTipo As Integer)
        Dim usuNombre As String
        Dim usuClave As String
        Dim usuTipo As Integer
        usuNombre = perNombre
        usuClave = perContraseña
        usuTipo = perTipo

    End Sub

Dim conexion As String = "Data Source=localhost\SQLExpress;Initial Catalog=BDIMPRESION;database = usuario; trusted_connection = yes;Integrated Security = True; User Instance=True"

 Public Function eliminarUsuario(ByVal usuario As String, ByVal clave As String, ByVal tipo As Integer) As Boolean
        Dim cn As New SqlClient.SqlConnection(conexion)
        Dim cmd As New SqlClient.SqlCommand("Delete from usuarios Where perNombre = '" & usuario & "' ", cn)
        Dim valor As Integer
        Try
            If cn.State = ConnectionState.Closed Then
                cn.Open()
            End If
            valor = cmd.ExecuteNonQuery()
            MsgBox("Usuario Eliminado del Sistema ", MsgBoxStyle.Information)
        Finally
            cn.Close()
        End Try
        Return valor
    End Function

CODIGO DEL FORM

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim clasePersona As clasePersona = New clasePersona(txtEliminar.Text, txtclave.Text, txttipo.Text)
        clasePersona.eliminarUsuario(txtEliminar.Text, txtclave.Text, txttipo.Text)


        'If MsgBox("Desea Eliminar al Usuario", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Eliminar") = MsgBoxResult.Yes Then

        ' End If
    End Sub

[eperedo]

Creo que te hace falta un descanso :P

Te explico tienes tu función Eliminar Usuario a la que le asignas 3 Parámetros!! usuario, clave y tipo, pero si te das cuenta clave y tipo nunca lo usas dentro de esa función simplemente los pones como parámetros.

Entonces luego al llamar a tu método obviamente te va a pedir el usuario, TIPO y CLAVE porque así lo construiste en tu clase.

La solución es simple quita los 2 parámetros y listo:

Código vb.net:

Public Function eliminarUsuario(ByVal usuario As String) As Boolean
        Dim cn As New SqlClient.SqlConnection(conexion)
        Dim cmd As New SqlClient.SqlCommand("Delete from usuarios Where perNombre = '" & usuario & "' ", cn)
        Dim valor As Integer
        Try
            If cn.State = ConnectionState.Closed Then
                cn.Open()
            End If
            valor = cmd.ExecuteNonQuery()
            MsgBox("Usuario Eliminado del Sistema ", MsgBoxStyle.Information)
        Finally
            cn.Close()
        End Try
        Return valor
    End Function
 

Y al llamar hazlo así:

Código vb.net:

clasePersona.eliminarUsuario(txtEliminar.Text)
 

[Peterpay]

pensando en el futuro otra opcion seria que esos parametros fueran opcionales asi quienes consumen tu metodo de tu clase no tendrian q reescribir todo , y solo adaptarias tu codigo de ese metodo (1 solo cambio contra N) claro pensando que fuera el escenario q planteo este.


Public Function eliminarUsuario(ByVal usuario As String,Optional ByVal clave As String,Optional ByVal tipo As Integer) As Boolean
Dim cn As New SqlClient.SqlConnection(conexion)
Dim cmd As New SqlClient.SqlCommand("Delete from usuarios Where perNombre = '" & usuario & "' ", cn) <==================== yo cambiaria esto por parametro del propio sqlcommand
Dim valor As Integer
Try
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
valor = cmd.ExecuteNonQuery()
MsgBox("Usuario Eliminado del Sistema ", MsgBoxStyle.Information)
Finally
cn.Close()
End Try
Return valor
End Function

[eperedo]

Bueno puede ser, pero no creo xq no usa esos parámetros en ningún momento.

Como dice PeterPay deberías cambiar lo del parámetro

Código vb.net:

Dim cmd As New SqlClient.SqlCommand("Delete from usuarios Where perNombre = @usuario", cn)
cmd.parameters.Add("@usuario",SqlDbType.VarChar,20).value = usuario
 

Y también investiga sobre la instrucción using.

[kannalla]

ahora puedo eliminar sin que tenga que agregar los textbox de contraseña y de tipo... ahora solo con el nombre y listo.

Gracias amigos aca el codigo 100% operativo


SOLUCION PARA LOS QUE LO QUIERAN:

Código:

Public Class clasePersona

    Public Sub New(ByVal perNombre As String, ByVal perContraseña As String, ByVal perTipo As Integer)
        Dim Nombre As String
        Dim Clave As String
        Dim Tipo As Integer
        Nombre = perNombre
        Clave = perContraseña
        Tipo = perTipo

    End Sub


 Public Function eliminarUsuario(ByVal usuario As String) As Boolean
        Dim cn As New SqlClient.SqlConnection(conexion)
        Dim cmd As New SqlClient.SqlCommand("Delete from usuarios Where perNombre = '" & usuario & "' ", cn)
        Dim valor As Integer
        Try
            If cn.State = ConnectionState.Closed Then
                cn.Open()
            End If
            valor = cmd.ExecuteNonQuery()
            MsgBox("Usuario Eliminado del Sistema ", MsgBoxStyle.Information)
        Finally
            cn.Close()
        End Try
        Return valor
    End Function

Código:

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim clasePersona As clasePersona = New clasePersona("usuario", "clave", tipo)

        clasePersona.eliminarUsuario(txtNombre.Text)

    End Sub