formulaire de connexion à l'aide de ms access en vb.net

Je suis de la création d'un formulaire de connexion pour vb.net à l'aide de ms access 2003 en tant que base de données. Mais il ne vérifie le nom d'utilisateur et contourne le mot de passe. Ce qui signifie que si le nom d'utilisateur et le mot de passe n'est pas jive avec le nom d'utilisateur, l'utilisateur peut entrer dans le système. Voici mon code:

Try

            Dim NoAcc As String
            Dim NoAccmod2 As String
            Dim NoPas As String

            Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Jet OLEDB:Database Password=nrew123$%^;")
            Dim cmd As OleDbCommand = New OleDbCommand("Select * from admintable where AdminName= '" & TextBox4.Text & "' ", cn)


            cn.Open()

            rdr = cmd.ExecuteReader
            If rdr.HasRows Then
                rdr.Read()
                NoAcc = rdr("AdminName")
                NoPas = rdr("AdminPass")
                If (TextBox4.Text = NoAcc And TextBox3.Text = NoPas) Then NoAccmod2 = NoAcc

                adminview.Show()



                Me.Hide()
            Else
                MsgBox("Incorrect Username/Password")
                TextBox4.Clear()
                TextBox3.Clear()

            End If
        Catch
            MsgBox("Error logging in, please try again", MsgBoxStyle.Exclamation)
        End Try

Comment puis-je faire pour qu'il vérifie le nom d'utilisateur et mot de passe?

  • Euh, si quelqu'un met en "" Ou "" = '" en tant que leur nom d'utilisateur? Qui est, vous devriez vraiment être à l'aide d'un paramètre pour cela.
InformationsquelleAutor user225269 | 2010-02-24
  1. 1

    Vous utilisez une seule ligne SI .. ALORS :

    If (TextBox4.Text = NoAcc And TextBox3.Text = NoPas) Then NoAccmod2 = NoAcc
    donc, la prochaine ligne sera toujours exécutée:

    adminview.Show()

    vous devez réorganiser votre SI .. ALORS les conditions

    InformationsquelleAutor Klaus
  2. 1

    Je vais le partager sur le système de connexion dans vb.net à l'aide de la liaison navigateur que moins de codage. en suivant le lien ci-dessous!
    http://www.tesear.com/2011/09/login-system-in-vbnet.html

    InformationsquelleAutor Joannou Fegarido
  3. 0

    Vous pourriez avoir à la FOIS la commande uname et pword dans la base de données et "OÙ" à la fois, si vous n'obtenez pas de record en arrière, alors vous avez votre réponse.

    InformationsquelleAutor tobrien
  4. 0

    Essayez d'utiliser System.String.Compare(String str1,String str2, Boolean ) As Integer comme:

    If (System.String.Compare(TextBox4.Text, NoAcc, false) And System.String.Compare(TextBox3.Text, NoPas, false)) Then NoAccmod2 = NoAcc
    InformationsquelleAutor Kangkan
  5. 0

    voici le code:

    Imports System.Data
Imports System.Data.OleDb
Public Class Form5
Inherits System.Windows.Forms.Form
Dim mypath = Application.StartupPath & "\login.mdb"
Dim mypassword = ""
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mypath & ";Jet OLEDB:Database Password=" & mypassword)
Dim cmd As OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Dim sql = "SELECT UserID ,PassID FROM MYTAB WHERE USERID='" & TextBox1.Text & "' AND PASSID='" & TextBox2.Text & "'"
cmd = New OleDbCommand(sql, conn)
conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
Try
If dr.Read = False Then
MessageBox.Show("Authentication failed...")
Me.Show()
Else
MessageBox.Show("Login successfully...")
Dim frmDialogue As New Form11
frmDialogue.ShowDialog()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
conn.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Me.Hide()
Dim frmDialogue As New Form1
frmDialogue.ShowDialog()
End Sub
Private Sub Form5_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim frm As New Form1
frm.Show()
End Sub
End Class
    InformationsquelleAutor teena gupta
  6. 0

    Essayer

            Dim NoAcc As String
Dim NoPas As String
Dim rdr As OleDbDataReader
Dim cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\mobilestore.accdb;Persist Security Info=False;")
Dim cmd As OleDbCommand = New OleDbCommand("Select * from logindata where Username= '" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", cnn)
'NoAcc = TextBox1.Text
'NoPas = TextBox2.Text
cnn.Open()
rdr = cmd.ExecuteReader
If (rdr.Read()) Then
NoAcc = rdr("Username")
NoPas = rdr("password")
If (TextBox1.Text = NoAcc And TextBox2.Text = NoPas) Then
Adminpage.Show()
Me.Hide()
Else
MsgBox("Incorrect Username/Password")
TextBox1.Clear()
TextBox2.Clear()
End If
End If
Catch
MsgBox("Error logging in, please try again", MsgBoxStyle.Exclamation)
End Try
End Sub
    • Pourriez-vous préciser votre réponse en ajoutant un peu plus de description sur la solution que vous fournissez?
    InformationsquelleAutor phani