[فراس الغزي]

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

  حيث  اني  لايمكن لي  ان  ادخل  الى البرنامج بيطلع  عندي  خطا  كما في  الصورة  
   

[سعود]

ماهو الكود المسؤال عن ظهور هذه الرسالة؟
يعني ماذا كتبت عند صحة معلومات الدخول ....|| وايضا العكس.

[elgokr]

اذهب الى كود الزر الخاص بالدخول

وقم بتعطيل كود Try

وقم بتنفيذ الكود الذى بداخل الـ Try فى الزر

حتى يظهر لك تفاصيل الخطاء كاملاً

لتتمكن من المعرفة هل المشكلة من جانب كود الاستعلام والاتصال بقاعدة البيانات

ام ماذا 

تحياتى لك

وتمنياتى لك التوفيق

[فراس الغزي]

(26-07-18, 07:20 PM)elgokr كتب :

اذهب الى كود الزر الخاص بالدخول

وقم بتعطيل كود Try

وقم بتنفيذ الكود الذى بداخل الـ Try فى الزر

حتى يظهر لك تفاصيل الخطاء كاملاً

لتتمكن من المعرفة هل المشكلة من جانب كود الاستعلام والاتصال بقاعدة البيانات

ام ماذا 

تحياتى لك

وتمنياتى لك التوفيق

السلام  عليكم  اخي  الجوكر  

  انا  استعملت  هذا الكود  لستعلام  ولكن  لازالك  المشكلة قائمة  ولا  اعرف  السبب  اخي  العزيز 

الكود
   

كود :

Try
            Dim DT As New DataTable
            cmd = New SqlCommand("select * from USERS where USERNAME=@USERNAME and PASSWORD=@PASSWORD", SqlConn)
            cmd.Parameters.Add(New SqlParameter("@USERNAME", SqlDbType.VarChar, 50)).Value = TXT_NAME.Text
            cmd.Parameters.Add(New SqlParameter("@PASSWORD", SqlDbType.VarChar, 50)).Value = TXT_PASS.Text
            SqlConn.Open()

            Dim dr As SqlDataReader = cmd.ExecuteReader
            dr.Read()



            If dr.HasRows Then
                Dim frm As New Main_Page

                frm.Show()

                Me.Close()
                dr.Close()
            Else
                MsgBox("تأكد من كلمة المرور او الاسم رجاءا ", MsgBoxStyle.Exclamation, "هنالك مشكلة")

            End If



            SqlConn.Close()
        Catch ex As Exception
            MsgBox(e.ToString)
            SqlConn.Close()

        End Try

---

اخوتي  الاعزاء  تم  حل  المشكلة  حيث  ظهرت المشكلة  في اتصال بقاعدة  البيانات  طبعا  عرفت  اتوصل  للحل  بعد  مراجعة  توصية  الاخ  الجوكر شكرا  لك  اخي  العزيز

[aljzazy]

لماذا لا تسنخدم الداتا تيبل بدل الداتا ريدر

---

PHP كود :

Dim DT As New DataTable
            Dim adp As New SqlDataAdapter("select * from USERS where USERNAME=@USERNAME and PASSWORD=@PASSWORD", SqlConn)
            adp.SelectCommand.Parameters.Add(New SqlParameter("@USERNAME", SqlDbType.VarChar, 50)).Value = TXT_NAME.Text
            adp.SelectCommand.Parameters.Add(New SqlParameter("@PASSWORD", SqlDbType.VarChar, 50)).Value = TXT_PASS.Text
           
            adp.Fill(DT)
            
            If DT.Rows.Count > 0 Then
            
             Dim frm As New Main_Page

                frm.Show()
                Me.Close()
                
                
           
            Else
                MsgBox("تأكد من كلمة المرور او الاسم رجاءا ", MsgBoxStyle.Exclamation, "هنالك مشكلة")

            End If