有時(shí)，您可能需要?jiǎng)?chuàng)建一個(gè)窗體來(lái)用作搜索窗體，以便能夠在窗體上輸入值并動(dòng)態(tài)生成適當(dāng)?shù)?SQL 字符串。下列步驟將向您演示如何動(dòng)態(tài)生成使用 BuildCriteria 方法的查詢字符串。

Microsoft 提供的編程示例只用于演示目的，不附帶任何明示或暗示的保證。這包括但不限于對(duì)適銷性或特定用途適用性的暗示保證。本文假定您熟悉所演示的編程語(yǔ)言以及用于創(chuàng)建和調(diào)試過(guò)程的工具。Microsoft 的支持工程師可以幫助解釋某個(gè)特定過(guò)程的功能，但是他們不會(huì)修改這些示例以提供額外的功能或構(gòu)建過(guò)程以滿足您的特殊需求。警告：執(zhí)行本示例中的步驟將會(huì)修改示例數(shù)據(jù)庫(kù) Northwind.mdb。您可能需要備份 Northwind.mdb 文件，并在該數(shù)據(jù)庫(kù)的副本上執(zhí)行這些步驟。

啟動(dòng) access。
在“幫助”菜單上，指向“示例數(shù)據(jù)庫(kù)”，然后單擊“羅斯文示例數(shù)據(jù)庫(kù)”。
在“設(shè)計(jì)”視圖中打開“客戶”窗體。
在該窗體中添加一個(gè)命令按鈕和一個(gè)文本框，然后設(shè)置下列屬性：
命令按鈕
------------------------
名稱：cmdSearch
標(biāo)題：搜索
單擊：事件過(guò)程

文本框
--------------
名稱：txtSQL
寬度：4.4583"
高度：1.25"
     

將該命令按鈕的“單擊”屬性設(shè)置為以下事件過(guò)程：
Private Sub cmdSearch_Click()
    On Error Resume Next
   
    Dim ctl As Control
    Dim sSQL As String
    Dim sWhereClause As String
   
    'Initialize the Where Clause variable.
    sWhereClause = " Where "
   
    'Start the first part of the select statement.
    sSQL = "select * from customers "
   
    'Loop through each control on the form to get its value.
    For Each ctl In Me.Controls
        With ctl
            'The only Control you are using is the text box.
            'However, you can add as many types of controls as you want.
            Select Case .ControlType
                Case acTextBox
                    .SetFocus
                    'This is the function that actually builds
                    'the clause.
                    If sWhereClause = " Where " Then
                        sWhereClause = sWhereClause & BuildCriteria(.Name, dbtext, .Text)
                    Else
                        sWhereClause = sWhereClause & " and " & BuildCriteria(.Name, dbtext, .Text)
                    End If
            End Select
        End With
    Next ctl
   
    'Set the forms recordsource equal to the new
    'select statement.
    Me.txtSQL = sSQL & sWhereClause
    Me.RecordSource = sSQL & sWhereClause
    Me.Requery
   
End Sub
     

保存窗體，然后在“窗體”視圖中將其打開。
請(qǐng)注意，當(dāng)您單擊“搜索”命令按鈕時(shí)，“txtSQL”文本框?qū)⒎从掣鶕?jù)“客戶”窗體上的值創(chuàng)建的查詢。同時(shí)，access 還會(huì)重新查詢“客戶”窗體，以使其反映新 SQL 字符串的結(jié)果。

(責(zé)任編輯：admin)

• ·sql語(yǔ)句中l(wèi)ike通配符的匯總（*?!#-等含
• ·Access常用sql基本查詢語(yǔ)句匯總
• ·SQL查詢語(yǔ)句的一般格式小結(jié)
• ·聯(lián)合查詢應(yīng)用舉例1
• ·如何取消操作查詢的提示
• ·報(bào)表中先按組再按條件統(tǒng)計(jì)
• ·測(cè)試查詢速度
• ·條件選擇列求和
• ·SQL必知必會(huì)（14）NOT操作符
• ·ACCESS的參數(shù)化查詢-Access數(shù)據(jù)庫(kù)教程
• ·ACCESS的真假：四、＂SELECT * INTO 工
• ·在Access中利用搜索窗體中的值生成動(dòng)態(tài)
• ·Access使用查詢
• ·隨機(jī)得到Access數(shù)據(jù)庫(kù)記錄
• ·SQL 高級(jí)使用
• ·交叉表查詢中的累計(jì)