برگرداندن نتیجه حاصل از تغییر در تکست باکس

[wrangl3r]

سلام
من می خوام وقتی کسی داخل یک تکست باکس شماره اپراتور را وارد کرد ،بره در جدول پرسنل بگرده و اسم اون فرد رو داحل تکست باکس دیگه نشون بده، این تکست باکس فقط جنبه نمایش داره ، می شه راهنمایی کنید و اینکه چون من فیلد های جدولم رو توسط دیتا سورس دراگ کردم ، کانکشنی ننوشتم ، اگر لازم هست نحوه کد نویسی اون رو هم بفرمایید.
خیلی ممنون

[ali_najari]

دوست عزيز توي خاصيت Keypress اون Textbox مورد نظرتون چنين شرطي رو ميتونيد بزاريد:



If e.keyChar = Chr(13) then
e.Handled = true
' دستورات مربوط به اتصال به پايگاه داده
' Select اطلاعات از جداول مربوطه همراه با شرط كد پرسنلي
end if
در اين صورت زماني كه كليد Enter را فشار دهد كدهاي مربوطه اجرا خواهد شد.

اگر متوجه نشديد من يه مثال براتون آماده كنم

[wrangl3r]

مرسی دوستم، مثال نمی خوام ،می شه فقط بگی در قسمت دستورات مربوط به اتصال به پایگاه داده و قسمت سلکت چی بنویسم؟
مرسی

[wrangl3r]

با سلام تونستم تا جایی بنویسمش اما وقتی می خوام از روی تکست باکسی که کد پرسنلی وارد می شه بخونه ارور می ده ،من به این صورت نوشتم:

If e.KeyChar = Chr(13) Then
e.Handled = True
con.Open()
cmd = New SqlCommand("SELECT * FROM operatid WHERE persid LIKE @operator1textbox.text + '%'", con)
Dim sdr As SqlDataReader = cmd.ExecuteReader()
While sdr.Read = True

TextBox1.Text = (sdr.Item("namepers"))

End While
End If

[ali_najari]

دوست عزیز مشکل شما در دستور Select هست!

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


If e.KeyChar = Chr(13) Then
e.Handled = True
con.Open()
cmd = New SqlCommand("SELECT * FROM operatid WHERE persid LIKE N'%" & operator1textbox.text & "%'", con)
Dim sdr As SqlDataReader = cmd.ExecuteReader()
While sdr.Read = True

TextBox1.Text = (sdr.Item("namepers"))

End While
End If

[wrangl3r]

خیییییییییییییییییییییییی ییییلیییییییییییییییییییی ییییییییی ممممممممممممممممممممننننن نننووووووووووووون درست شد، یک دنیا ممنون دوست خوبم