جستجو در چند فيلد

[mojtabamalaekeh]

کد:

ADODC1.Recordset.Find

فکر کنم چون Adodc امکانات خوبی برای کار با فرامین SQL داره و کمتر نیاز به جستجو پیش میاد، به همین خاطر کسی تا حالا متوجه نشده که ضابطه جستجو فقط یک شرط میتونه داشته باشه و نمیشه بیش از یک شرط بهش داد.
من همین امروز یه برنامه نوشتم که با Adodc جستجو می کرد ولی فقط با یه فیلد کار داشتم و متوجه این مطلب نشدم.
گمونم fliter هم همین قانون Find رو داشته باشه. یعنی خاصیت fliter رو هم فقط میشه یه شرط بهش داد.

کد:

"FName Like '" & STRName & "'"

ظاهرا عملگر Like بدون کاراکتر * یا % مثل همون عملگر = کار می کنه.
پس شد:

کد:

"FName Like '" & STRName & "*'"

یا

کد:

"FName Like '*" & STRName & "*'"

چرا از دستورات SQLاستفاده نمیکنین؟
Adodc1.RecordSource = "SELECT * FROM TabaleName WHERE Name='Mohsen' and Father='Ali' and Shenasname='1234'"

چون فرمان Where فقط رکوردهایی رو که شامل شرط میشن نمایش میده و بقیه اطلاعات از دید کاربر مخفی میشن.
ممکنه بگید اشکالی نداره بقیه رکوردها مخفی بشن ولی بعضی جاها بسته به نوع اطلاعات یا هدف برنامه یا رابط کاربر، مهمه که همه اطلاعات در حال نمایش باشن.

موقعي كه اين دستور رو اجرا مي كنيم هيچ اتفاقي نمي افته و ركورد همچنان همون جايي كه هست باقي مي مونه.از Refresh هم استفاده كردم ام بدتر شد . چون يه ارور هم داد.

درسته بعد از مقداردهی به RecordSource باید متد Refresh رو فراخوانی کنیم اما خاصیت CommandType باید مقدارش برابر 8 باشه که بشه RecordSource رو با دستورات SQL تعیین کنیم.

نتیجه: فقط میشه از Where استفاده کرد. به اینصورت:

کد:

Private Sub cmdFind_Click()
    Adodc1.RecordSource = "Select * From tbl1"
    Adodc1.Refresh
    Adodc1.RecordSource = "Select * From tbl1 Where " & _
    "Name = '" & txtNam.Text & "' And " & _
    "Family = '" & txtFam.Text & "' And " & _
    "Father = '" & txtFath.Text & "'"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount < 1 Then MsgBox "Not found!"
End Sub

دست آخر بجای Like از = استفاده کردم.
توی Like هم بجای * از % استفاده کردم (فایل ضمیمه).