+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج (/showthread.php?tid=25870)
طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج - فراس الغزي - 26-07-18
السلام عليكم واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج
حيث اني لايمكن لي ان ادخل الى البرنامج بيطلع عندي خطا كما في الصورة
[attachment=18918]
RE: طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج - سعود - 26-07-18
ماهو الكود المسؤال عن ظهور هذه الرسالة؟
يعني ماذا كتبت عند صحة معلومات الدخول ....|| وايضا العكس.
RE: طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج - elgokr - 26-07-18
اذهب الى كود الزر الخاص بالدخول
وقم بتعطيل كود Try
وقم بتنفيذ الكود الذى بداخل الـ Try فى الزر
حتى يظهر لك تفاصيل الخطاء كاملاً
لتتمكن من المعرفة هل المشكلة من جانب كود الاستعلام والاتصال بقاعدة البيانات
ام ماذا
تحياتى لك
وتمنياتى لك التوفيق
RE: طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج - فراس الغزي - 26-07-18
(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اخوتي الاعزاء تم حل المشكلة حيث ظهرت المشكلة في اتصال بقاعدة البيانات طبعا عرفت اتوصل للحل بعد مراجعة توصية الاخ الجوكر شكرا لك اخي العزيز
RE: طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج - aljzazy - 26-07-18
لماذا لا تسنخدم الداتا تيبل بدل الداتا ريدر
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