تبلیغات شما تبلیغات شما

آمار سایت

    آمار مطالب
    کل مطالب : 3993
    آمار کاربران
    افراد آنلاین : 6

    کاربران آنلاین

    آمار بازدید
    بازدید امروز : 18,089
    باردید دیروز : 2,997
    گوگل امروز : 14
    گوگل دیروز : 29
    بازدید هفته : 18,089
    بازدید ماه : 71,526
    بازدید سال : 830,817
    بازدید کلی : 6,402,340

آخرین فروش های موفق

 

این مقاله نحوه ایجاد قابلیتی را می آموزد که ضوابط فیلتر کردن را از طریق یک فرم جدولی اکسس 2003 وارد کنید و دکمه ای بنام 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
    Dim iCount

        offset = 1
        While offset 0
               offset = InStr(offset + 1, sSQL, sOperator)
               If offset > 1 Then
                       iCount = iCount + 1
               End If
        Wend

        Occurances = iCount


برچسب ها

مطالب پیشنهادی ما

دیدگاه های شما

ارسال نظر

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی

تبلیغات شما تبلیغات شما

دسترسی سریع

کدهای اختصاصی