Printable View
من برنامه ای با وی بی نوشتم ولی در سرچ ان دچار مشکل شدم
بعضی اسمها را پیدا میکنه و بعضی دیگه را پیدا نمیکنه
ولی تو فایند اکسس پیدا میکنه و لی با برنامه نویسی نمیشه
از کد زیر برای سرچ استفاده کردم
Data1.Recordset.FindFirst ("Name='" & Trim(Text4) & "'")
If Data1.Recordset.NoMatch Then
MsgBox "ÔÎÕ ãæÑÏ äÙÑ ÔãÇ ÏÑ áíÓÊ íÇÝÊ äÔÏ", vbCritical, "Search
end if"
با سلام
من دنبال كسي بودم كه در Vba كد نويسي را بلد اشد اگر اطلاعاتي در رابطه با If و Then داري به من هم بگو . البته ميخواهم در يك Report براي يك فيلد استفاده كنم . در رابطه با Search هم اطلاعاتي ندارم .با عرض پوزش
چرا از دستورات SQL استفاده نميکني ؟نقل قول:
باتشکر از دوستانی که کمک کردن
بعد از 3 ماه فهمیدم مشکلش چیه
مشکلش این بود که برای سرچ از Trim ی تکس باکس دیگه استفاده میکردم که همین باعث میشد جستجو به نتیجه مطلوب نرسه
عذر میخوام فضولی میکنم !
ولی شی DataReader برای مواردی کاربرد داره که میخوایم یه دسته داده رو فیلد به فیلد یا رکورد به رکورد بخونیم . پس اگر برای جست و جو استفاده بشه سرعت کار رو خیلی پایین میاره ، برای سرچ زدن از کدی مشابه کر زیر که توسط DataView استفاده میشه استفاده کنی هم راحت تری و هم سریع تره :
شاید غلط املایی داشته باشه خودت زحمت اصلاحش رو بکشکد:dim DV as new systyem.sqlclint.dataview
dv.table=ds.yourtable
dv.rowfilter="Your filed=Your vlue" ' or "Your Field like %Your value%" or . . . \
yourdisplayitem.datasource=dv