[مخالف]مشروع تخرجي أرجو منكم مساندتي بسرعة والأن ان امكن

لنفترض أنك عندك قاعدة بيانات مكونة من اثنين كولوم لليوزر نيم والباسوورد واسم الجدول user بنزل كود عدلت عليه إن شاء الله تستفيد منه

 Dim ss As String
        ss = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("../App_Data/lh.mdb")
        Dim Conn As New OleDbConnection(ss)
        If Conn.State = Data.ConnectionState.Closed Then
            Conn.Open()
        End If
        Dim Com As New Data.OleDb.OleDbCommand
        Com.Connection = Conn
        Com.CommandText = "SELECT [username], [password] FROM [user] WHERE ([username] = '" & Me.TextBox1.Text & "' and [password] = '" & Me.TextBox2.Text & "') "
        Dim dr As Data.OleDb.OleDbDataReader
        dr = Com.ExecuteReader
        If dr.Read = True Then
            Session("username") = dr("username")
            Response.Redirect("welcome.aspx")
            dr.Close()
            drmax.Close()
            drlab.Close()
            Conn.Close()
        Else
            TextBox1.Text = Nothing
            TextBox2.Text = Nothing
            Me.textbox1.foucs()


            re.Text = "عفوا البيانات المدخلة غير صحيحة"



        End If

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات .

قواعد طرح المشاركات

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم