Recherche dans plusieurs colonnes

Question

J'ai une base de données d'accès que j'effectue à partir d'Excel avec l'aide de VBA et ADODB.

Cela fonctionne parfaitement bien, mais je ne peux rechercher qu'une chose à la fois. Dites que je veux rechercher toutes les instances de "prénom" dans la colonne [1] qui a également "nom de famille" dans la colonne [2]. Ou, "prénom" dans la colonne [1] et "adresse" dans la colonne [3].

Comment procéder à partir d'une zone de texte sur un formulaire utilisateur?

Je pensais d'une certaine manière ajouter "Prénom + Nom" ou quelque chose, mais je ne peux pas comprendre la logique du code. Aucune suggestion?

C'est ce que j'ai pour l'instant.

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 

Merci pour les suggestions :)

Answer 1

Considérez AND rognures séparés par OR opérateurs. Mais d'abord userform structuré avec des champs de texte séparés (et chacun doit être un champ obligatoire sinon vous devez construire WHERE clause dynamique):

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

Et puis lier ensemble des critères. En outre, je ne conseillerais pas numérotés mais nommés champs pour des raisons de débogage:

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 

Vous pouvez également utiliser une requête UNION aussi souvent dans le monde SQL il est discuté de l'efficacité entre UNION vs OR. Pour être vraiment équivalent, un DISTINCT doit être ajouté ci-dessus pour les deux pour supprimer les doublons.

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