PDA

View Full Version : جستجو و پیشنهاد از سوی برنامه



oggiii
شنبه 19 دی 1388, 13:55 عصر
سلام به دوستان حرفه ای:چشمک:
من برای برنامه ام میخوام یه ویژگی بزارم که وقتی کاربر به طور مثال در قسمت ورود نام خواست اسم را وارد کنه مثلا با وارد کردن "ح" اسامی که در جدول وجود داره مثلا " حسن" و "حسین " و "حسام "و... رو به کاربر پیشنهاد کنه
کدی که من دارم فقط جستجو می کند
کسی می تونه کدش رو بزاره ؟؟

Mani_rf
شنبه 19 دی 1388, 14:41 عصر
دوست عزیز، انجام این کار نیازی به کد نویسی ندارد، شما یک ComboBox به فرمت اضافه کن و آیتم هایی را که می خواهی پیشنهاد شود را به قسمت Items اضافه کن.
سپس خاصیت AutoCompletSource را برروی Items قرار بده و خاصیت AutoCompleteMode را بر روی Append نتظیم کن تا هنگامی که کاربر حرفی را وارد کرد بر اساس آن کلمه ها یا نامهایی پیشنهاد شوند.
همین کار را برای TextBox هم می توانی انجام دهی.

oggiii
شنبه 19 دی 1388, 19:44 عصر
دوست عزیز، انجام این کار نیازی به کد نویسی ندارد، شما یک ComboBox به فرمت اضافه کن و آیتم هایی را که می خواهی پیشنهاد شود را به قسمت Items اضافه کن.
سپس خاصیت AutoCompletSource را برروی Items قرار بده و خاصیت AutoCompleteMode را بر روی Append نتظیم کن تا هنگامی که کاربر حرفی را وارد کرد بر اساس آن کلمه ها یا نامهایی پیشنهاد شوند.
همین کار را برای TextBox هم می توانی انجام دهی.

درسته اما همون طور که گفتی ایتم ها رو باید به ComboBox اضافه کنم اما می خوام ایتم ها رو از دیتابیس بخونه :ناراحت:

Hossis
شنبه 19 دی 1388, 23:46 عصر
درسته اما همون طور که گفتی ایتم ها رو باید به ComboBox اضافه کنم اما می خوام ایتم ها رو از دیتابیس بخونه :ناراحت:
خوب چه مشکلی داره ابتدا همه آیتم ها رو از دیتابیس گرفته و به کامبو اضافه کنید ؟

karim orooji
یک شنبه 20 دی 1388, 12:42 عصر
Imports System.Data.OleDb
Imports System.Data

Dim con As New OledbConnection
con.ConnectionString =”microsoft.jet.oledb.4.0;data source|data directory|\.karim.mdb”
con.Open()
Dim com As New OledbCommand
com.Connection = con
com.CommandText = "select * from yard"
Dim reader As OledbDataReader = com.ExecuteReader
While (reader.Read)
yard_moas.Items.Add(reader.GetInt64(0))
t_t_moas_yard.Items.Add(reader.GetInt64(0))
t_s_moas_yard.Items.Add(reader.GetInt64(0))
End While



با اين حلقه ميتوني تمام ركورد هاي مربوط به بانكت رو به ليست باكس اضافه كني

موفق باشي

karim orooji
یک شنبه 20 دی 1388, 13:32 عصر
اينو يك تستش بكن
واقعا از دوست خوبمون هم mani_rf هم تشكر مي ميكنم
خود من هم به دنبال اين كار بودم
موفق باشي

arsalansalar
یک شنبه 20 دی 1388, 14:51 عصر
مجبورنيستي از combo استفاده كني.
تو textchanged يك textbox دستور جستجوتو با like بنويس و بريز تو يك ديتا گريد.

oggiii
یک شنبه 20 دی 1388, 18:15 عصر
مجبورنیستی از combo استفاده کنی.
تو textchanged یک textbox دستور جستجوتو با like بنویس و بریز تو یک دیتا گرید.

میشه کدشو بزارید من با sql کار می کنم بچه با اکسس گذاشته بودند که برداشتم oledb رو به sql تبدیل کردم که باز نشد
همینی که گفتید رو اگه میشه لطف کنید کدشو بزارید ممنون میشم

arsalansalar
دوشنبه 21 دی 1388, 09:16 صبح
http://barnamenevis.org/forum/showth...t=69916&page=8 (http://barnamenevis.org/forum/showthread.php?t=69916&page=8)
از لینک بالا مثال چوبین و ببین

rasoul2023
دوشنبه 21 دی 1388, 10:15 صبح
سلام من همیشه برای اینکار از دستور LIKE استفاده میکنم .چون همجا میشه ازش استفاده کرد و نیاز به شی خاصی نداره فرم دستور به اینصورت :



ٍُSELECT * FROM Tablename WHERE fildname LIKE ('TEXT%')