PDA

View Full Version : ایجاد Find Next



mgmreza
جمعه 05 بهمن 1386, 02:42 صبح
با سلام
من در ویژوال بیسیک وقتی که با استفاده از کنترل Adodc یک دستور جستجو مانند دستورات زیر مینویسم فقط یک رکورد را پیدا میکند . چگونه میتوانم کدی بنویسم که با زدن دکمه Find Next کلمه مورد جستجو را اگر در رکوردهای بعدی وجود دارد پیدا کند
* در ضمن در کنترل Adodc فقط متد Find وجود دارد و متد Find Next وجود ندارد .
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "nam='" & t2.Text & "'"
با تشکر

ƒxmahdi
جمعه 05 بهمن 1386, 08:30 صبح
Adodc1.Recordset.MoveFirst

فقط کافیه این کد را برای پیدا کردن مقدار بعدی بردارید

scorpion_man
جمعه 05 بهمن 1386, 14:34 عصر
فقط کافیه این کد را برای پیدا کردن مقدار بعدی بردارید
خوب دوست عزیز MoveFirst همونطور که از اسمش هم پیداست میره اول رکورها به احتمال زیاد تا اونجایی که یادم مونده MoveNext یا همچین چیزی باید باشه
موفق باشید

bobrus
جمعه 05 بهمن 1386, 16:27 عصر
خوب دوست عزیز شما فقط برای پیدا کردن اولین رکورد مشابه نیاز به این دارید که به اول رکورد ها بروید و برای بعدی دیگه به اون احتیاج ندارید
درواقع شما باید با توجه به نوع منطق برنامتون از یک متغییرboolean استفاده کنید و بعد با یک دستور if اولین جستجو رو چک کنید و درصورت اولین بار نبودن برنامه دستور MoveFirest رو انجام ندهد

mgmreza
دوشنبه 08 بهمن 1386, 06:01 صبح
سلام
از همه شما دوستان ممنونم. مشکلم حل شد :تشویق:
با تشکر