複数の列で検索する

Question

私はVBAとADODBの助けを借りてExcelから検索するアクセスデータベースを持っています。

これは完璧に機能しますが、一度に1つしか検索できません。列[2]の「姓」も持つ[1]列の「名」のすべてのインスタンスを検索したいとします。または、列[1]の「ファーストネーム」と列[3]の「アドレス」。

私はどのようにユーザーフォームのテキストボックスからそれを行うことになるでしょうか？

何らかの形で「Firstname + Lastname」などを追加しようとしていましたが、コードのロジックを理解できません。助言がありますか？

これは私が今持っているものです。提案のため

Private Sub cmd_lookup_Click() 

    Dim cn As Object 
    Dim rs As Object 

    Set cn = CreateObject("ADODB.Connection") 
    Set sqlConnect = New ADODB.Connection 
    Set rs = CreateObject("ADODB.RecordSet") 

    sqlConnect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Source\database.accdb;Persist Security Info=False;" 

    cn.Open sqlConnect 

    rs.ActiveConnection = cn 

    SearchCriteria = "%" & searchCrit.Text & "%" 

    rs.Open "SELECT [1],[2] ,[3],[4], [5] FROM [tblDatabase]" & _ 
    "WHERE  [1] LIKE '" & SearchCriteria & "' " & _ 
    "   OR [2] LIKE '" & SearchCriteria & "' " & _ 
    "   OR [3] LIKE '" & SearchCriteria & "' " & _ 
    "   OR [4] LIKE '" & SearchCriteria & "' " & _ 
    "   OR [5] LIKE '" & SearchCriteria & "' " & _ 
    "ORDER BY [2] Desc;", _ 
     cn, adOpenStatic 

Dim i As Integer 
If Not rs.EOF Then 
    rs.MoveFirst 
    i = 0 
    With lstLookup 
     'Code not relevant 
    End With 

    rs.Close 
    cn.Close 
    Set rs = Nothing 
    Set cn = Nothing 
    End If 
End Sub 

感謝:)

Answer 1

がOR演算子で区切られAND paringsを考えてみましょう。しかし、最初に別のテキストフィールドで構成ユーザーフォームを持っている（それぞれが他の必要なフィールドにする必要がありますが、動的にWHERE句を構築する必要があります）：

First Name Search:_____________ 
Last Name Search: _____________ 
Address Search: _______________ 

をそして一緒に基準をバインドします。また、私は理由のデバッグのための番号が、名前のフィールドに助言しません。また

rs.Open "SELECT [1], [2], [3], [4], [5]" & _ 
     " FROM [tblDatabase]" & _ 
     " WHERE ([1] LIKE '%" & FirstNameSearch & "%' " & _ 
     "  AND [2] LIKE '%" & LastNameSearch & "%') " & _ 
     " OR ([1] LIKE '%" & FirstNameSearch & "%' " & _ 
     "  AND [3] LIKE '%" & AddressSearch & "%') " & _ 
     " OR ([2] LIKE '%" & LastNameSearch & "%' " & _ 
     " AND [3] LIKE '%" & AddressSearch & "%') " & _ 
     " ORDER BY [2] Desc;", _ 
     cn, adOpenStatic 

を、それはUNION vs OR間の効率性を議論しているSQLの世界では、頻繁にUNIONクエリを使用しています。真に同等であるためには、重複を除去するために上記の両方にDISTINCTを追加する必要があります。

rs.Open "SELECT [1], [2], [3], [4], [5]" & _ 
     " FROM [tblDatabase]" & _ 
     " WHERE ([1] LIKE '%" & FirstNameSearch & "%' " & _ 
     "  AND [2] LIKE '%" & LastNameSearch & "%') " & _ 
     " UNION" _ 
     " SELECT [1], [2], [3], [4], [5]" & _ 
     " FROM [tblDatabase]" & _ 
     " WHERE ([1] LIKE '%" & FirstNameSearch & "%' " & _ 
     "  AND [3] LIKE '%" & AddressSearch & "%') " & _ 
     " UNION" _ 
     " SELECT [1], [2], [3], [4], [5]" & _ 
     " FROM [tblDatabase]" & _ 
     " WHERE ([2] LIKE '%" & LastNameSearch & "%' " & _ 
     "  AND [3] LIKE '%" & AddressSearch & "%') " & _ 
     " ORDER BY [2] Desc;", _ 
     cn, adOpenStatic