Seguridad Usuarios

[asastrem]

Fijate que tengo una pequeña pantalla de acceso, en la cual manejo dos combobox, una de empresa y otra de area, el usuario selecciona que es lo que quiere consultar, 1 que empresa 2 que area, manejo una tabla en sql de usuario y eso es todo...

Private Function CompUsu(ByVal Emp As String, ByVal Are As String, ByVal Acceso As String, ByVal clave As String) As Boolean

Dim cnn As SqlConnection = Nothing
Try
cnn = New SqlConnection(CadenaCnn)
cnn.Open()
Dim sel As New System.Text.StringBuilder
sel.Append("SELECT COUNT(*) FROM AsigUsu ")
sel.Append("WHERE IdEmp=@Emp and IdAre=@Are and Acceso=@Acceso and Clave=@Clave")
Dim cmd As New SqlCommand(sel.ToString, cnn)
cmd.Parameters.Add("@Emp", SqlDbType.Int)
cmd.Parameters.Add("@Are", SqlDbType.Int)
cmd.Parameters.Add("@Acceso", SqlDbType.NChar, 10)
cmd.Parameters.Add("@Clave", SqlDbType.NChar, 10)
cmd.Parameters("@Emp").Value = Emp
cmd.Parameters("@Are").Value = Are
cmd.Parameters("@Acceso").Value = Acceso
cmd.Parameters("@Clave").Value = clave

Dim t As Integer = CInt(cmd.ExecuteScalar())
cnn.Close()
If t = 0 Then
Return False
End If

Catch ex As Exception
MessageBox.Show("ERROR al conectar a la base de datos: " & vbCrLf & _
ex.Message, "Comprobar usuario", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
Return False
Finally
If Not cnn Is Nothing Then
cnn.Dispose()
End If
End Try
Return True
End Function


esta función me la paso el GRAN GUILLE...
solo la adapte a mis necesidades