둘 이상의 열에서 검색

Question

나는 VBA 및 ADODB의 도움으로 Excel에서 검색하는 액세스 데이터베이스를 가지고 있습니다.

완벽하게 작동하지만 한 번에 한 가지만 검색 할 수 있습니다. 열 [2]의 "성"이있는 [1] 열에서 "이름"의 모든 인스턴스를 검색하려고한다고 가정 해보십시오. 또는 컬럼 [1]의 "first name"과 컬럼 [3]의 "address".

사용자 폼의 텍스트 상자에서 어떻게 처리할까요?

"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 페어링을 고려하십시오. 하지만 먼저 별도의 텍스트 필드 구조 정의 폼을 (각각 다른 필수 필드해야 동적 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 세계에서 자주 통합 쿼리를 사용 : 또한, 디버깅을 이유로 번호가 있지만라는 이름의 필드를 조언하지 않을 것입니다. 진정으로 동등하려면 중복을 제거하기 위해 위에 모두 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