رسالة خطأ

[mahmoudabdelshafy]

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

لو سمحتوا بيظهرلى رسالة خطأ Syntax error in FROM clause رغم إن الكود صح

أسم الجدول USER

واسماء حقول الجدول name_far و name_user و pas_user

ولا اعلم ما سبب الخطأ

برجاء مراجعة الكود وإعلامى بالخطأ للضرورة
        cmd = New OleDbCommand("select * from user where name_far=@name_far and name_user=@name_user and pas_user=@pas_user ", con)
        cmd.Parameters.Add(New OleDbParameter("@name_far", OleDbType.VarChar)).Value = ComboBox1.Text
        cmd.Parameters.Add(New OleDbParameter("@name_user", OleDbType.VarChar)).Value = TextBox1.Text
        cmd.Parameters.Add(New OleDbParameter("@pas_user", OleDbType.VarChar)).Value = TextBox2.Text
        con.Open()
        dr = cmd.ExecuteScalar
        dr.Read()
        If dr.HasRows Then
            Dim frm As New Form2
            'frm.Show()
        Else
            MSGBOX("خطأ")       

End If
        dr.Close()

         con.Close()

 

[د.كاف يار]

تفضل هذا التعديل

مع مراعاة نوع البيانات في الجدول

        cmd = New OleDbCommand("select * from [user] where name_far=@name_far and name_user=@name_user and pas_user=@pas_user ", con)
        cmd.Parameters.Add(New OleDbParameter("@name_far", OleDbType.VarChar)).Value = ComboBox1.Text
        cmd.Parameters.Add(New OleDbParameter("@name_user", OleDbType.VarChar)).Value = TextBox1.Text
        cmd.Parameters.Add(New OleDbParameter("@pas_user", OleDbType.VarChar)).Value = TextBox2.Text
        con.Open()
        dr = cmd.ExecuteScalar
        dr.Read()
        If dr.HasRows Then
            Dim frm As New Form2
            'frm.Show()
        Else
            MSGBOX("خطأ")       

End If
        dr.Close()

         con.Close()