02/04/2009, 06:59
|
| | | Fecha de Ingreso: mayo-2008
Mensajes: 32
Antigüedad: 16 años Puntos: 0 | |
| Respuesta: Ayuda con el LogIn a mi pagina
Te comparto la siguiente funcion para que puedas buscar valores en una Base de datos.
Public Shared Function CCDLookUp(ByVal SQLSelect As String, ByVal SQLFrom As String, ByVal SQLWhere As String, ByVal Conn As SqlConnection) As String
Dim cmd As New SqlCommand
Dim val As String
cmd.CommandText = "SELECT " & SQLSelect & " FROM " & SQLFrom & " WHERE " & SQLWhere
cmd.Connection = Conn
val = cmd.ExecuteScalar()
Return val
End Function
Aqui un ejemplo para utilizarla:
CCDLookUp("PWDCOMPARE('" & .Password & "',ACC_PASSWORD)", "ACCESO", "ACC_USERNAME= '" & .UserName & "'", Conn) = 1 |