PDA

View Full Version : سوال: چک کردن مقدار ورودی در بانک در رویداد LostFocus



systam
شنبه 02 آذر 1392, 14:45 عصر
سلام به همگی دوستان گلم
زمانی که مقداری در یک textbox وارد میکنم بعد از زدن دکمه tab بیاد برای مقدار ورودی در بانک چک کنه
و اگر مقدار تکراری بود خطا بده
روی ASP بارها و بارها انجام دادم ولی روی windows نتونستم اجراش کنم
کد مورد استفاده :
Private Sub txt_name_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_name.LostFocus
con.Open()
com.Connection = con
com.CommandText = "select name from asli where name ='" & Trim(txt_name.Text) & "'"
Dim reader As SqlDataReader = com.ExecuteReader
If reader.HasRows = True Then
Label4.Visible = True
Else
Label4.Visible = False
End If
con.Close()
End Sub

دوستان مشکل کجاست:متفکر:

ممنون میشم راهنماییم کنید:لبخند:

Naghibi
شنبه 02 آذر 1392, 14:54 عصر
شما نمیتونید فیلدی با اسم name توی بانک داشته باشین. name یه کلمه کلیدیه و وقتی اونو توی select بکار میبرین مشکل بوجود میاد.

systam
شنبه 02 آذر 1392, 15:03 عصر
سلام همشهری
فکر نکنم
اسم name رو عوض کردم باز مشکل داره

systam
شنبه 02 آذر 1392, 15:27 عصر
گرفتم چی شد باید اینطور کد رو بکار ببریم
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
con.Open()
com.Connection = con
com.CommandText = "select * from asli where user_name=@user_name and name_=@name_"
com.Parameters.AddWithValue("@user_name", Trim(txt_user.Text))
com.Parameters.AddWithValue("@name_", Trim(txt_name.Text))
Dim reader As SqlDataReader = com.ExecuteReader
If reader.HasRows = True Then
Label4.Visible = True
Else
Label4.Visible = False
End If
com.Parameters.Clear()
con.Close()
End Sub


یا علی