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
|