FILTRAGEM

PROGRAMADORVB6 17/03/2010 18:57:08
#337237
Olá Galera!
Estou com um problema em filtrar dados.
Tenho a Tabela Controle ; com os campos Data e Nome

Como faço uma procura pelo campo [ nome ] e que no campo Data tenha o seguinte : Mes + ano (06-2010)
Deixo aqui o código que tentei fazer :

Alfa = PNome.NomesV.Text
Alfa = Trim(Alfa)
Sql = [Ô]SELECT Controle.Data,Controle.Nome,Controle.Piso,Controle.Entrada,Controle.Saida,Controle.Empresa,Controle.Viatura,Controle.Foto,Controle.Busca,Controle.Chave FROM Controle WHERE [Ô]
Sql = Sql & [Ô] Data = RetorMames(MesesV.Text) And data = AnosV.Text LIKE [ô]*[Ô] & Alfa & [Ô]*[ô] ORDER BY [Ô]
Sql = Sql & [Ô]Controle.Busca ASC[Ô]
[ô]************************


Grato pela vossa atenção
RCMRO 17/03/2010 21:29:23
#337244
Deve ser algo mais ou menos assim

Sql = [Ô]SELECT [Data], Nome, Piso, Entrada, Saida, Empresa, Viatura, Foto, Busca, Chave [Ô] & _
      [Ô]FROM Controle [Ô] & _
      [Ô]WHERE Month(Data) = [Ô] & MesesV.Text & _
      [Ô]  AND YEAR(Data) = [Ô] & AnosV.Text & _
      [Ô]  AND Nome LIKE [ô]*[Ô] & Alfa & [Ô]*[ô] [Ô] & _
      [Ô] ORDER BY Busca ASC[Ô]
PROGRAMADORVB6 17/03/2010 21:34:21
#337245
Aqui está o ficheiro exemplo.
ROBIU 17/03/2010 23:47:41
#337257 Resposta escolhida
Segue projeto anexo
 sql = [Ô]SELECT * FROM Controle WHERE [Ô]
    sql = sql & [Ô]mid(Data,4) =[ô][Ô] & X1 & [Ô]-[Ô] & X2 & [Ô][ô] [Ô]
    sql = sql & [Ô]and Nome LIKE [ô]*[Ô] & Alfa & [Ô]*[ô] ORDER BY [Ô]
    sql = sql & [Ô]Controle.Busca ASC[Ô]
PROGRAMADORVB6 17/03/2010 23:55:58
#337258
Obrigado por tudo. Valeu.
Tópico encerrado , respostas não são mais permitidas
Voltar