[MOSTAFA.KAMEL]

(13-02-18, 02:10 AM)spoony كتب : تفضل اخي نفس المتغيرات وكل شي بس ما عليك الا تغيير ألآتصال والبيانات الداتا بيز  طبعا هادا يوزر نيم والباسورد نفس الشي ازا بدك تكست واحد بس مو ثنين خلي واحد اكيد فهمت الطريقة حضرتك

Dim DbCon As New OleDb.OleDbConnectio
Dim dbUp As New OleDb.OleDbCommand
Dim Read As OleDb.OleDbDataReader

Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DbCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\User\Desktop\Database.mdb"
DbCon.Open()
dbUp.Connection = DbCon
dbUp.CommandType = CommandType.Text
dbUp.CommandText = "Select * from LOGIN where Username=yes and Password=no "
dbUp.Parameters.Add("Username", Data.OleDb.OleDbType.Variant)
dbUp.Parameters.Add("Password", Data.OleDb.OleDbType.Variant)
dbUp.Parameters("Username").Value = UsernameTextBox.Text
dbUp.Parameters("Password").Value = PasswordTextBox.Text
Read = dbUp.ExecuteReader
With Read
If .Read Then

Me.Hide()
Form2.Show()
Else
UsernameTextBox.Clear()
PasswordTextBox.Clear()
MessageBox.Show("Invalid Username or Password")
UsernameTextBox.Focus()
End If
End With

---

هاي كمان طريقة استخدمها في حالة الآولى ما فهمتها نفس الشي بس غير المضمون والحدث الي بدك اياه

 Dim uname As String = ""
        Dim pword As String
        Dim username As String = ""
        Dim pass As String
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Plz Fill All the info")
        Else
            uname = TextBox1.Text
            pword = TextBox2.Text
            Dim querry As String = "Select password From Table1 where name= '" & uname & "';"
            Dim dbsource As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\siddh\Documents\Database2.accdb"
            Dim conn = New OleDbConnection(dbsource)
            Dim cmd As New OleDbCommand(querry, conn)
            conn.Open()
            Try
                pass = cmd.ExecuteScalar().ToString
            Catch ex As Exception
                MsgBox("Username does not exit")
            End Try
            If (pword = pass) Then
                MsgBox("Login success")
                Form2.Show()
                If Form2.Visible Then
                    Me.Hide()
                End If

            Else
                MsgBox("login Failed")
                TextBox1.Clear()
                TextBox2.Clear()
            End If
        End If

مش شغال حضرتك الجدول عندى اسمو log  موجود فى id - serial بس السريالات بتبقى جوه القاعدة تمام هو بيطلب منى سريال تمام يكتبها فى التكست بوكس والبرنامج يشوف هل هى مطابقة والا بس