Como faço para fazer uma consulta sql usando dois campos ou mais da base de dados.

Por exemplo: gostaria de pesquisar pelo NOME E CIDADE.

 

        ADO - ACCESS

        Public adoBanco             As Connection
        Public tblAux                 As New ADODB.Recordset
       

        Set adoBanco = New Connection
        AdoBanco.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &    

        App.Path   & "BancoDeDados.mdb;"

 

        Dim TblAux As ADODB.Recordset
        Set TblAux = New ADODB.Recordset
        TblAux.CursorLocation = adUseClient
    
        sql = ""
        sql = sql & "Select Campo1,Campo2,Campo3 "
        sql = sql & " from NomeDaTabela " 
        sql = sql & " order by Campo "
        TblAux.Open sql, adoBanco, adOpenForwardOnly, adLockReadOnly

ou

select * from tabela where ((campo1 = critrerio) and/or (campo2 = criterio2)) order by campo1

   Case "Pesquisar"
            Dim Criterios As String
            Criterios = "Nome = '" & cmbnome.Text & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# "
            TBBolãoT.FindMin Criterios
           
         
        If TBBolãoT.NoMatch = True Then
            MsgBox "Não consta na Súmula a Participação do Atleta." & Chr(13) & "Verifique se foi selecionado os campos corretos.", 48, "Tiro ao Alvo - Seta"
            Toolbar1.Buttons(1).Enabled = False
            Toolbar1.Buttons(2).Enabled = True
            Toolbar1.Buttons(3).Enabled = False
            Toolbar1.Buttons(4).Enabled = False
            Toolbar1.Buttons(5).Enabled = False
            Toolbar1.Buttons(6).Enabled = False
            Toolbar1.Buttons(7).Enabled = True
            Toolbar1.Buttons(8).Enabled = True
            txtdatacompetição.Text = Date
            txtdatacompetição.Text = Format(txtdatacompetição.Text, "dd/mm/yy")
            LimpaFormulário
            txttiro.Item(0).SetFocus
       
        Else
            AtualizaFormulário
            Toolbar1.Buttons(1).Enabled = True
            Toolbar1.Buttons(2).Enabled = False
            Toolbar1.Buttons(3).Enabled = False
            Toolbar1.Buttons(4).Enabled = False
            Toolbar1.Buttons(5).Enabled = True
            Toolbar1.Buttons(6).Enabled = True
            Toolbar1.Buttons(7).Enabled = False
            Toolbar1.Buttons(8).Enabled = True
            cmbnome.Enabled = False
            txtdatacompetição.Enabled = False
           
    End If

ESTOU USANDO A SEGUINTE CODIFICAÇÃO ONDE:

strCriterio_1 É A VARIÁVEL QUE RECEBE "NOME"

strCriterio_1 É A VARIÁVEL QUE RECEBE "CIDADE"

 

rstPesquisa.Open "select * from tblCadastro where( FotoCrim like '" & strCriterio_1 & "%' )" And "select * from tblCadastro where(Foto like '" & strCriterio_2 & "%')", bdPesquisa, adOpenKeyset, adLockPessimistic, adCmdText
PORÉM DÁ O SEGUINTE ERRO "RUN-TIME ERROR '13':TYPE MISMATCH".

O QUE FAZER!

se os 2 campos pertencem a mesma tabela vc não precisa fazer 2 selects...

fassa assim...

criterio = plic(txt_nome & "%")

criterio2 = plic(txt_cidade & "%")

"select * from tblcadastro where ((fotocrim like" & criterio & ") and (foto like " &  criterio2 & " )) ;"

 

Public Function Plic(ByVal sTexto As String) As _
       String
  If InStr(sTexto, Chr(39)) Then
    Plic = Chr(39) & Replace(sTexto, _
           Chr(39), Chr(39) & Chr(39)) & _
           Chr(39)
  Else
    Plic = Chr(39) & sTexto & Chr(39)
  End If
  Plic = Replace(Plic, "*", "%")
End Function

 

' obs.. a função plic serve para tratar as aspas