harolda1980
Gebruiker
- Lid geworden
- 7 aug 2007
- Berichten
- 488
Deze foutmelding krijg ik "Invalid attempt to access a field before calling Read" van deze regel:
Wie kan mij vertellen waar er wat fout gaat in deze code
Code:
voornaam = objDataReader.Item("Naam".ToString)
Wie kan mij vertellen waar er wat fout gaat in deze code
Code:
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim username, passwoord As String
Dim voornaam, achternaam As String
username = txtUserName.Text
passwoord = txtPasswoord.Text
query = "SELECT Naam, voornaam, tblLk.id " & _
"FROM tbllk " & _
"WHERE username = ?username " & _
"AND password = ?passwoord"
objCommand.Parameters.AddWithValue("?username", txtUserName.Text)
objCommand.Parameters.AddWithValue("?passwoord", passwoord)
objCommand.Connection = objConnection
objCommand.CommandText = query
myAdapter.SelectCommand = objCommand
objDataReader = objCommand.ExecuteReader()
objDataReader.Read()
voornaam = objDataReader.Item("Naam".ToString)
achternaam = objDataReader.Item("voornaam".ToString)
If objDataReader.HasRows Then
pnlLoggedIn.Visible = True
pnlLoginForm.Visible = False
lblWelk.Text = "Welkom " + voornaam + " " + achternaam
leerkracht = objDataReader.Item("id")
fillComboKlas()
objDataReader.Close()
Else
objDataReader.Close()
MsgBox("Verkeerde login probeer opnieuw")
End If
objDataReader.Close()
End Sub