USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  CONSULTA COM SELECT
Lucbar2012
CÁCERES
MT - BRASIL
Postada em 31/03/2017 12:47 hs            
Bom dia, tenho uma consulta em que utilizo o select com o like, porém ocorre o problema de que retorna na consulta dados indesejáveis pois tem uma pessoa com o código "1" e outra com o código "11", retornando no resultado dados das duas pessoas em uma dbgrid. O problema é que quando eu retirno o like a consulta não funciona.
Se alguém poder me ajudar agradeço, segue o código:

      Set BancodeDados = DBEngine.Workspaces(0).OpenDatabase(App.Path & "Dados.Mdb", False, False, ";pwd=crW32")
    Data2.DatabaseName = "C:SisDizimoDados.Mdb"
    Data2.RecordSource = "RecDizimo"
    Data2.RecordSource = "SELECT Rec_Mes,Rec_Exercicio,Rec_DtCadastro,Rec_Valor,Rec_Hora, Id_Recebimento FROM RecDizimo WHERE Rec_Id_Dizimista Like '*" & Rec_Id_Dizimista.Text & "*' and Rec_Exercicio Like '*" & Exe_Descricao & "*'  order by Rec_Exercicio desc, Id_Recebimento desc, Rec_DtCadastro, Rec_Hora "
    Data2.RecordsetType = 1
    Data2.Refresh
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página