جستجو با FindFirst [بایگانی]

Mahdi_S_T

جمعه 14 بهمن 1384, 20:22 عصر

ببخشید که این سوال ساده رو میکنم البته برای شما.(راستش من با VB کار نمی کنم)
لطفا بگویید اگه ما بخواهیم در یه فیلد عددی جستجو کنیم و عدد مورد نظر رو از یه TexBox بگیریم چه کدی بنویسم. ممنون

Data1.Recordset.FindNext ....

meh_secure

جمعه 14 بهمن 1384, 20:34 عصر

data1.recordset.findfirst "field=" & text1.text

که در اینجا field نام فیلد شماست.
بعد از اجرای این خط می توانید از یک حلقه استفاده کرده و مقادیر بعدی را با استفاده از متد findNext پیدا کنید.
لازم بذکره که اگه رکوردی پیدا بشه curser بر سر اون رکورد می ایسته.

Mahdi_S_T

جمعه 14 بهمن 1384, 21:38 عصر

ممنون ولی نتیجه جستجو درست نیست مثلا من عدد 647 را وارد میکنم و با آنکه وجود دارد ولی پیدا نمی کنه

Data_List.Recordset.FindFirst "No =" & Text1.Text
If Data_List.Recordset.NoMatch = True Then
MsgBox (" Not Found")
End If

meh_secure

جمعه 14 بهمن 1384, 22:09 عصر

در مورد مقادیر غیر عددی چطورویا شاید syntax رو اشتباه نوشتم.

mehrzad007

جمعه 14 بهمن 1384, 22:26 عصر

نوع فیلد داخل بانک چیه؟ عدد یا رشته؟

Mahdi_S_T

شنبه 15 بهمن 1384, 15:25 عصر

عددیه از نوع Long در ضمن حتی دستی هم که یه عدد در کد می تویسم به جای تکست باکس بازم جواب نمیده

M * M * A

شنبه 15 بهمن 1384, 20:32 عصر

( "'" & (Data1.Recordset.FindFirst "name='" & T(1) & "' and Lname='" & T(2
امکان جستجو با دو شرط

sohrab o

دوشنبه 17 بهمن 1384, 00:19 صبح

مرسی آقای mma که کد منو کپی زدی حداقل اسم متغیر ها رو تغییر بده

sohrab o

دوشنبه 17 بهمن 1384, 00:20 صبح

data1.recordset.findfirst "field='" & text1.text & "'"

sohrab o

دوشنبه 17 بهمن 1384, 00:21 صبح

این دیگه حتما جواب میده اگه نداد بگو

meh_secure

سه شنبه 18 بهمن 1384, 12:24 عصر

مرسی آقای mma که کد منو کپی زدی حداقل اسم متغیر ها رو تغییر بده

سلام. پست شماره 2 و پست شماره 9 رو یه نگاه بنداز.

sohrab o

سه شنبه 18 بهمن 1384, 22:17 عصر

دوست خوب meh_secure منم میدونم کد من و mma یکی نیست اما آقای mma از دوستان قدیمی من هستن و در ضمن این کد من تو همین سایت قبلا گذاشته بودم درقسمت جستجو با 2 فیلد اگر هم بازم مشکلی بود در خدمتم