PDA

View Full Version : جستجو در data



saeedmontazer
پنج شنبه 19 اردیبهشت 1387, 22:28 عصر
سلام

آقا خودم رو کشتم نتونستم برای data کد جستجو بنویسم //
خواهش میکنم کمک کنید..
لطفا کد طوری باشه که حتما عین کلمه رو پیدا نکنه اگه شبیه هم بود پیدا بشه//

ممنون

اوبالیت به بو
پنج شنبه 19 اردیبهشت 1387, 22:38 عصر
Data1.Recordset.Filter = "FieldName =' " + InputSearch + " ' "
Data1.Recordset.Filter = " FieldName like '" & InputSearch & "*'"

vbhamed
پنج شنبه 19 اردیبهشت 1387, 23:49 عصر
'for Numeric fields
Data1.RecordSource = "Select * From Table1 Where Instr(Cstr(FieldName), '" & txtCode & "') > 0"
Data1.Refresh

'for Alphabetic fields
Data1.RecordSource = "Select * From Table1 Where Instr(FieldName, '" & txtName & "') > 0"
Data1.Refresh

saeedmontazer
جمعه 20 اردیبهشت 1387, 04:53 صبح
ممنون حامد جان
ولی این کد ها هیچ کدومشون کا نکرد/

فیلد رو دادم و تکست رو هم نوشتم ول ی باز ارور داد//؟؟

ali_habibi1384
جمعه 20 اردیبهشت 1387, 16:49 عصر
data1.recordset.find=("x")

vbhamed
جمعه 20 اردیبهشت 1387, 16:56 عصر
سلام
نام جدول رو درست كرديد ؟
اگر نشد نمونه برنامتون رو بزاريد
چون من به كرات از اين كد تو برنامه هام استفاده مي كنم

saeedmontazer
شنبه 21 اردیبهشت 1387, 05:21 صبح
data1.recordset.find=("x")

آقا مگه data هم find داره؟؟

اینکه فقط find first داره.

saeedmontazer
شنبه 21 اردیبهشت 1387, 05:35 صبح
سلام
نام جدول رو درست كرديد ؟
اگر نشد نمونه برنامتون رو بزاريد
چون من به كرات از اين كد تو برنامه هام استفاده مي كنم

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

حامد جان خودت ببین چه مرگش هست...
خیلی اقایی:لبخندساده:

saeedmontazer
شنبه 21 اردیبهشت 1387, 19:22 عصر
دوستان جون من کمک کنید

صفر میگیرم ها!!!!!

منم که اسیر نمره....!!!

ali_habibi1384
شنبه 21 اردیبهشت 1387, 22:33 عصر
آره داره :
findnext
findlast
find...

vbhamed
یک شنبه 22 اردیبهشت 1387, 02:39 صبح
سلام
خب اين برنامت جستجوش كجا بود و كجا مشكل داري

saeedmontazer
یک شنبه 22 اردیبهشت 1387, 04:20 صبح
حامد جان مثلا برو تو قسمت خرید//

ببین میتونی برای کامند جستجو کد بنویسی ؟؟؟

من که هر کدی نوشتم پیغام خطا میده!!!!

saeedmontazer
دوشنبه 23 اردیبهشت 1387, 13:08 عصر
دوستان شما رو به خدا کمک کنید.....تا پنجشنب بیشتر وقت ندارم ها!!!!!!

صفر میگیرم/

kingmech
دوشنبه 23 اردیبهشت 1387, 19:54 عصر
کار کار خورم با نازنین خوب گوش کون
من یک مثال بزنم
یک فرم بزار بعد 1 مثلا ادیو و یک دیتا گرید و یک تکس باکس
2-ادیو رو به گرید وصل کون
حالا یک دکمه بزار
توی دکمه بنویس
adodc1.recordset.filter = " fild name = " & text1
همین بالا بری پاین بیایی چپ بری راست بری دیگه همینه
بنده تلاش خودم کردم
البته از این میتونی استفاده کنی
Y = InputBox("مقدار")
+ " "Ado.Recordset.Filter = "fild name = " + Y

saeedmontazer
دوشنبه 23 اردیبهشت 1387, 21:57 عصر
دوست عزیز ممنون ولی.....

من در اسم تاپیک هم گفتم جستجو در data .....نه adod

آقا کمک نمیکنید؟؟؟

vbhamed
سه شنبه 24 اردیبهشت 1387, 01:00 صبح
سلام
اينم پاسخ
تو همون قسمت خريد گذاشتم
فقط چون فيلتر ميشه بعد از اينكه ركوردت رو جستجو كردي و ويرايش كردي بايد دكمه نمايش همه رو بزني
اگر نمي خواي فيلتر بشه و فقط پيدا بشه بگو تا كدش رو بزارم

saeedmontazer
سه شنبه 24 اردیبهشت 1387, 05:19 صبح
ممنون داش وحید....

آقا اون کد رو میزاری ؟؟؟ فکر کنم اون بیشتر به کارم بیاد

vbhamed
سه شنبه 24 اردیبهشت 1387, 18:41 عصر
سلام
اينم اون :

Reza_sh_42
چهارشنبه 25 اردیبهشت 1387, 15:19 عصر
پيشنهاد مي كنم از Like تو يه دستور Sql استفاده كني اگه خواستي مي تونم نمونه برات بفرستم