آموزش ساخت فانکشن Query Command

آموزش ساخت فانکشن Query Command

معرفی مقاله :
این مقاله نحوه ایجاد قابلیتی را می آموزد که ; ضوابط فیلتر کردن را از طریق یک فرم جدولی اکسس 2000 وارد کنید و دکمه ای بنام Query داشته باشید تا فیلتر اعمال شود.
این فیلتر 4 تکست باکس دارد بنام های txtFirstName, txtMiddleInitial, txtLastName, و txtSSN .جدول دیتابیس member نام دارد و فیلد هایی بنام های First, Mi,Last, و SSN دارد .
فانکشن AttachAnd برای ساخت جمله فیلتر کننده SQL استفاده میشود .
"First='David' and Last='Nishimoto'".

ساخت فانکشن :
کد:

کد:

---

Option Compare  Database

    Dim ssql

---

1- کاربر دکمه query را فشار داد
2-یا اینکه شما میتوانید یک دکمه برای رویداد exit قرار دهید.
کد:

کد:

---

    Private Sub cmdQuery_Click()

        BuildQueryCommand

    End Sub

---

3- فانکشن BuildQueryCommand یک فیلتر با ضوابطی که از تکست باکس ها دریافت کرده میسازد
4 – قوانین فیلتر اعمال شد .
کد:

کد:

---

    Private Function BuildQueryCommand()

---

sSQL = ""

Call AttachAnd("First", "'" & txtFirstName & "'")

Call AttachAnd("Mi", "'" & txtMiddleInitial & "'")

Call AttachAnd("Last", "'" & txtLastName & "'")

Call AttachAnd("SSN", "'" & txtSSN & "'")

Filter = sSQL

FilterOn = True

End Function

ضوابط چندگانه یا تکی را بررسی کنید

کد:

کد:

---

  Single: "first='David'"
 
  Multiple:"First='David' and Last='Nishimoto'"
 

    Private Function AttachAnd(sField, sValue)

 

        If sValue = "''" Or sValue = "" Then

              Exit Function

        End If

 

        If Occurances(sSQL, "=") = 0 Then

              sSQL = sSQL & sField & "=" & sValue

        Else

              sSQL = sSQL & " and " & sField & "=" & sValue

        End If

 

    End Function

---

رخدادهای یک طرح را در عبارت sql بشمارید
کد:

کد:

---

    Private Function Occurances(sSQL, sOperator)

---

Dim offset