Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Yuri\Documents\PWS ZZP.accdb")
- Dim command As New OleDbCommand("SELECT * FROM [ACCOUNTS] WHERE [Email adres]=@EmailAdres AND [AccWachtwoord]=@AccWachtwoord", connection)
- Dim EmailAdresParam As New OleDbParameter("@EmailAdres", txtEmail.Text)
- Dim WachtwoordParam As New OleDbParameter("AccWachtwoord", txtWachtwoord.Text)
- command.Parameters.Add(EmailAdresParam)
- command.Parameters.Add(WachtwoordParam)
- command.Connection.Open()
- Dim reader As OleDbDataReader = command.ExecuteReader()
- txtEmail.Text = reader.Item(11)
Add Comment
Please, Sign In to add comment