Da premettere che la Function CheckCredentials deve andare nella Private Sub Login_Click(...)End Sub
Invece la Sub CheckCredentials_Click mi entra sempre in "Errore!"
Questo a me serve per testare le credenziali di accesso per gli utenti. Se avete esempi di Log-In postateli oppure un Link da dove prendere esempi ed impararli. Grazie in anticipo a tutti :-)
<script runat="server">
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
End Sub
Function CheckCredentials(ByVal User As String, ByVal Pass As String) As Boolean
Dim ConnectionString As New OleDb.OleDbConnection("Provider=System.Data.SqlCli ent;Data Source=xx.xxx.xxx.xx;Network Library=;database=MSSqlxxxxx;Connection Timeout=0;Packet Size=4096;Integrated Security=no;User ID=MSSqlxxxxx;Encrypt=no;pwd=xxxxxxxx;")
Dim Query As String
Query = "SELECT NOME_UTENTE, PASSWORD WHERE NOME_UTENTE='" & MYNOME.Text & "' AND PASSWORD='" & MYPASSWORD.Text & "'"
Dim objCmd As OleDb.OleDbCommand
Dim Reader As OleDb.OleDbDataReader
Try
ConnectionString.Open()
objCmd = New OleDb.OleDbCommand("SELECT NOME_UTENTE, PASSWORD FROM PROFILO WHERE NOME_UTENTE='" & MYNOME.Text & "' AND PASSWORD='" & MYPASSWORD.Text & "'", ConnectionString)
objCmd.Parameters.Add(User).ToString()
Reader = objCmd.ExecuteReader()
If Not Reader.Read() Then
Return False
Else
Dim strSalt As String = Reader("NOME_UTENTE").ToString
Dim strStoredPassword As String = Reader("PASSWORD").ToString
End If
Catch ex As Exception
' Errore
Finally
' Chiudo la connessione se è rimasta aperta
If Not ConnectionString Is Nothing Then
ConnectionString.Close()
End If
End Try
End Function
Sub CheckCredentials_Click(ByVal s As Object, ByVal e As EventArgs)
If (CheckCredentials(MYNOME.Text, MYPASSWORD.Text) = True) Then
MYNOME.Text = "Esatto!"
Else
MYNOME.Text = "Errore!"
End If
End Sub
</script>
Rispondi quotando
