بروز خطا در DataBase هنگام اجرای برنامه

[mohandess le]

سلام من دربرنامه ای که نوشتم به این errorبرخوردم ولی معنی آن را نمیدانم لطفا مراراهنمایی کنید
An expression of non-boolean type specified in a context where a condition is expected, near 'ali'.

[parsdarab]

کد برنامه تو بزار شاید فرجی شد

[mohandess le]

Sub reject(ByVal user As String, ByVal pass As String)
Dim con As SqlConnection = New SqlConnection(strcon)
Dim cmd As New SqlCommand

Dim dr As SqlDataReader

Dim st4 As String = "Select regected From [User1] Where Username='" & user & "' and '" & pass & "'"

Dim a As String

cmd = New SqlCommand(st4, con)
con.Open()
dr = cmd.ExecuteReader
dr.Read()
a = dr("regected")
con.Close()

[mohandess le]

کسی نیست به من کمک کنه؟فقط مفهوم error روبونم برام کافیه
:افسرده:

[parsdarab]

شما نام فیلد pass که در بانک اطلاعاتی است رو ننوشتین
یعنی بعد از username=ali and 123 که باید به ایت صورت باشد

username='ali' and password='123' okey

[mohandess le]

ممنون که توجه کردید این اشتباه لپی بود errorپابرجاست

[mohandess le]

اینم بگم شایدبدرد بخوره که من یک کلاس تعریف کردم این تابع رو توی اون کلاس ساختم وبعد فراخوانیش کردم بازم ممنون

[shadi khanum]

زوی خطی که cmd رو ExecureReader میکنید یه breakpoint بذارید و قبل از اجرا ببینید cmd.commandtext چیه؟ اون دستور رو توی خود SQL اجرا کنید ببینید error میده یا نه؟

[parsdarab]

خطایی که بالا نوشتی مربوط میشه به دستور SQL .
نه ربطی به کلاس داره و نه تابع

[mohandess le]

ممنون ازراهنماییتون مشکل برطرف شد خداخیرتون بده