[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