pesquisar em vários campos

[mizzu]

Preciso fazer uma pesquisa na tabela clientes:

usando o SQL como faço para pesquisar por nome, cidade, ou bairro?

alguém pode me ajudar?

Grato.

[Leandro_Pirozzi]

Voce tem esses 3 campos na tabela clientes é isso?

Voce quer que ele localize por nome, cidade e bairro 3 pesquisas diferentes.

é isso?

Private Sub cmdPesq2_Click()

Dim lcnome As String

Dim lcWhere As String

Dim strSQL As String

Dim rs As ADODB.Recordset

Dim rs1 As ADODB.Recordset

If Me.txtnome.Text = Empty Then

lcnome = ""

lcWhere = ""

Else

lcnome = Me.txtnome.Text

lcWhere = " where NOME like '%" & lcnome & "%'"

End If

strSQL = "select NOME, CIDADE, BAIRRO "

strSQL = strSQL & "from CLIENTES "

strSQL = strSQL & lcWhere

strSQL = strSQL & "order by NOME"

Set rs = New ADODB.Recordset

rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly

If rs.EOF And rs.BOF Then

MsgBox "Nenhum registro cadastrado na tabela de Clientes."

Exit Sub

End If

If rs.RecordCount = 1 Then

strSQL = "select * "

strSQL = strSQL & "from CLIENTES "

strSQL = strSQL & "where NOME = '" & rs!NOME & "'"

Set rs1 = New ADODB.Recordset

rs1.Open strSQL, gDB, adOpenStatic, adLockReadOnly

End If

End Sub

Ve ai se ajuda.

[mizzu]

é isso ai, Leandro.

valeu, muito obrigado.

[ToPronto N'Area]

Preciso fazer uma pesquisa na tabela clientes:

usando o SQL como faço para pesquisar por nome, cidade, ou bairro?

alguém pode me ajudar?

Grato.

cara tente utilizar este sql

dim sql as string

sql = "select * from clientes where nome like '" & text1.text & "' or cidade like '" & text1.text & "' or bairro like '" & text1.text & "' order by nome"

beleza!

Ve se resolve ai!

[Leandro_Pirozzi]

Opa!

Essa pesquisa ai é só por nome ok, mas ai voce faz as outras duas nesse mesmo esquema ai.

Funcionou?

[mizzu]

funcionou, beleza.

Obrigado.