[مبرمج أوتار]

غيرت اسم المستخدم من TextBox1.Text الي fusername.Text
غيرت رقم السري من TextBox2.Text الي password_user.Text

PHP كود :

Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;")
    Dim command As New OleDbCommand("SELECT [ID] FROM [Staff] WHERE [usernameField] = username AND [passwordField] = password", connection)


    Dim usernameParam As New OleDbParameter("username", Me.fusername.Text)
    Dim passwordParam As New OleDbParameter("password", Me.password_user.Text)


        command.Parameters.Add(usernameParam)
        command.Parameters.Add(passwordParam)

        command.Connection.Open()
    Dim reader As OleDbDataReader = command.ExecuteReader()
        If reader.HasRows Then
            MessageBox.Show("أهلا بك في")
    'اسم المستخدم 
            fusername.Text = ""
    'كلمة السر
            password_user.Text = ""
            Me.Hide()

            Alameer.Show()
        Else
            MessageBox.Show("خطأفي كلمة السر أو الأسم")
            fusername.Text = ""
        End If
        command.Connection.Close() 


ضيف Module1.vb

وضيف فيها

PHP كود :

'اسم المستخدم
    Public fusername As String
    'كلمة المرور
    Public password_user As String