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