(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 TryDim 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