جستجو در data

[saeedmontazer]

سلام

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

ممنون

[اوبالیت به بو]

 

Data1.Recordset.Filter = "FieldName =' " + InputSearch + " ' "

Data1.Recordset.Filter = " FieldName like '" & InputSearch & "*'"

[vbhamed]

'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]

ممنون حامد جان
ولی این کد ها هیچ کدومشون کا نکرد/

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

[ali_habibi1384]

data1.recordset.find=("x")

[vbhamed]

سلام
نام جدول رو درست كرديد ؟
اگر نشد نمونه برنامتون رو بزاريد
چون من به كرات از اين كد تو برنامه هام استفاده مي كنم

[saeedmontazer]

data1.recordset.find=("x")

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

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

[saeedmontazer]

سلام
نام جدول رو درست كرديد ؟
اگر نشد نمونه برنامتون رو بزاريد
چون من به كرات از اين كد تو برنامه هام استفاده مي كنم

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

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

[saeedmontazer]

دوستان جون من کمک کنید

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

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

[ali_habibi1384]

آره داره :
findnext
findlast
find...

[vbhamed]

سلام
خب اين برنامت جستجوش كجا بود و كجا مشكل داري

[saeedmontazer]

حامد جان مثلا برو تو قسمت خرید//

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

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

[saeedmontazer]

دوستان شما رو به خدا کمک کنید.....تا پنجشنب بیشتر وقت ندارم ها!!!!!!

صفر میگیرم/

[kingmech]

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

[saeedmontazer]

دوست عزیز ممنون ولی.....

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

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

[vbhamed]

سلام
اينم پاسخ
تو همون قسمت خريد گذاشتم
فقط چون فيلتر ميشه بعد از اينكه ركوردت رو جستجو كردي و ويرايش كردي بايد دكمه نمايش همه رو بزني
اگر نمي خواي فيلتر بشه و فقط پيدا بشه بگو تا كدش رو بزارم

[saeedmontazer]

ممنون داش وحید....

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

[vbhamed]

سلام
اينم اون :

[Reza_sh_42]

پيشنهاد مي كنم از Like تو يه دستور Sql استفاده كني اگه خواستي مي تونم نمونه برات بفرستم