Imports System.Data.SqlClient
Imports System.Data.Sql
Imports CE = entidad
Public Class Fusuario
Inherits conexion
Dim cmd As New SqlCommand
Dim cnn As New SqlConnection
Public Function validarusuario(ByVal dts As CE.Eusuario) As DataTable
conectado()
cmd = New SqlCommand("iniciosesion") cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
cmd.Parameters.AddWithValue("@DNI_USUARIO", dts._DNI_USUARIO) cmd.Parameters.AddWithValue("@PASSWOR", dts._PASSWOR)
If cmd.ExecuteNonQuery Then
Using dt As New DataTable
Using da As New SqlDataAdapter(cmd)
da.Fill(dt)
Return dt
End Using
End Using
Else
Return Nothing
End If
End Function
End Class
Crear cuenta
