Archief - Visual studio: access

Using System.Data;
Using System.Data.OleDB;

public bool CheckUser(string username, string password)
{
   OleDBConnection con = new OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;");
   OleDBCommand com = new OleDBCommand(string.Format("SELECT * FROM Users WHERE Username = '{0}' AND Password = '{1}'", username, password), con);
   con.Open();
   DataSet ds = new DataSet();
   OleDBDataAdapter adapter = new OleDBDataAdapter(com);
   adapter.Fill(ds, "Users");
   con.Close();

   if(ds.Tables["Users"].Rows.Count > 0)
      return true;
   else
      return false;
}

private void Button1_Click(object sender, EventArgs e)
{
     if(CheckUser(TextBox1.Text, TextBox2.Text))
     {
         // Opdracht uivoeren.
     }
     else
     {
         MessageBox.Show("Verkeert gebruikers naam of wachtwoord.");
     }
}

Imports System.Data.OleDb
bij u login knop
strGebruikersnaam = txtGebruikersnaam.Text.trim
strWachtwoord = txtWachtwoord.Text.trim
Dim reader As OleDbDataReader 'Create an OleDbDataReader object.
Dim SQLstr As String = "Select Gebruikersnaam, from Login where Gebruikersnaam ='" & strGebruikersnaam & "' AND wachtwoord = '" & strWachtwoord & "'"
Dim conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=M:\Gipprogramma\Test.accdb"
Dim conn As OleDbConnection = New OleDbConnection(conString)
conn.Open()
cmd = New OleDbCommand(SQLstr, conn)


reader = cmd.ExecuteReader()

dim found as Boolean = false
While (reader.Read())
found = true
exit while
End While


reader.Close()
conn.Close()

if found
Select Case True


Case String.Compare("strGebruikersnaam ", " svancauwenbergh ", True) = 0
Me.Hide()
Reservaties.Show()

Case String.Compare("strGebruikersnaam ", " limpens ", True)
Me.Hide()
Reservaties.Show()

Case String.Compare("strGebruikersnaam ", " debbie ", True)
Process.Start("winword.exe")

Case String.Compare("strGebruikersnaam ", " jvanderbiest ", True)
Me.Hide()
Overzicht.Show()
' als er foute gegevens ingevoerd worden

Case else
‘Oplossen, want er is een gebruiker gevonden in de database met ingevoerde gebruikersnaam en wachtwoord

end select

else
MsgBox("u hebt foute login gegevens gebruikt", MsgBoxStyle.Information, "Login fout")
intFouten += 1
end if



' als het aantal fouten gelijk is aan 3 sluit het programma af
If intFouten = 3 Then
MsgBox("u hebt al 3maal foute login gegevens gebruikt programma sluit nu af", MsgBoxStyle.Information, "Foute invoer")
Application.Exit()
End If
' de velden leegmaken
txtGebruikersnaam.Text = ""
txtWachtwoord.Text = ""
End Sub