Goedemorgen allemaal!
Naar aanleiding van gister: http://gathering.tweakers.net/forum/list_messages/701707
Heb ik nog steeds het probleem dat ik geen Id kan meesturen. De gebruiker voert een gebruikersnaam en een wachtwoord in, is het mogelijk om in hetzelfde bestand (inlog.aspx) een Id op te vragen en mee te sturen? Zo ja, wat moet ik toevoegen aan de code?
Alvast bedankt!
Naar aanleiding van gister: http://gathering.tweakers.net/forum/list_messages/701707
Heb ik nog steeds het probleem dat ik geen Id kan meesturen. De gebruiker voert een gebruikersnaam en een wachtwoord in, is het mogelijk om in hetzelfde bestand (inlog.aspx) een Id op te vragen en mee te sturen? Zo ja, wat moet ik toevoegen aan de code?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Function GetUser(ByVal naam As String, ByVal pass As String) As DataSet
Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionString")
Dim sqlConnection = New SqlConnection(connectionString)
Dim queryString As String = "SELECT * FROM InkoopGebruikers WHERE (([InkoopGebruikers].[Naam] = @Naam) AND ([InkoopGebruikers].[Pass] = @Pass))"
Dim sqlCommand = New SqlCommand(queryString, sqlConnection)
sqlCommand.Parameters.Add("@Naam", SqlDbType.Char).Value = naam
sqlCommand.Parameters.Add("@Pass", SqlDbType.Char).Value = pass
Dim dataAdapter = New SqlDataAdapter(sqlCommand)
Dim dataSet = New DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Sub Inloggen(Sender As Object, E As EventArgs)
If Page.IsValid Then
Dim userDS As New DataSet
userDS = GetUser(UserName.Text, UserPass.Text)
If userDS.Tables(0).Rows.Count = 1 Then
FormsAuthentication.RedirectFromLoginPage(UserName.Text, true)
Else
Msg.Text = "Onvoldoende gegevens: Probeer opnieuw"
End If
End If
End Sub |
Alvast bedankt!
Webdeveloping... -counts to 10- Sigh...