BUSCA POR DATA

 Tópico anterior Próximo tópico Novo tópico

BUSCA POR DATA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482343 - 18/06/2018 16:41:44

ALEXANDREVISCOV
ARARAQUARA-SP
Cadast. em:Junho/2018


Boa tarde Galera, poderiam me ajudar estou tentando buscar registros de acordo com a data, o problema é que estou utilizando para o campo de busca um maskbox com mascara para data, e no select preciso que traga todas as datas com o dia que o usuário digitou, caso ele digite dia ou dia e mês ou dia mês e ano.

Dim sql As String
   Dim SN As ADODB.Recordset
   Dim Cdata As Date
   Cdata = Format(mskBusca.Text, "mm-dd-yyyy")
      
     sql = "select * from cliente"
     sql = sql & " where data_nascimento like '" & Left(Cdata, 5) & "%'"
     Set SN = DB.Execute(sql)


Alexandre Viscovini

Alexandre Viscovini

#482360 - 19/06/2018 09:16:44

LOVO12
BRASIL
Cadast. em:Maio/2012


Última edição em 19/06/2018 09:28:20 por LOVO12

Citação:
:
Boa tarde Galera, poderiam me ajudar estou tentando buscar registros de acordo com a data, o problema é que estou utilizando para o campo de busca um maskbox com mascara para data, e no select preciso que traga todas as datas com o dia que o usuário digitou, caso ele digite dia ou dia e mês ou dia mês e ano.

Dim sql As String
   Dim SN As ADODB.Recordset
   Dim Cdata As Date
   Cdata = Format(mskBusca.Text, "mm-dd-yyyy")
      
     sql = "select * from cliente"
     sql = sql & " where data_nascimento like '" & Left(Cdata, 5) & "%'"
     Set SN = DB.Execute(sql)


Alexandre Viscovini

Tenta assim
Cdata = Format(mskBusca.Text, "dd/mm/yyyy")

exemplo  o seu código ele vai pega 5 caracterio a esquerda, o ideal como vc está usando o like não use o comando left use sem ele que ficara melhor e quando for usa para busca dia e ano use  exemplo 01/02 ele irá selecionar o dia e o mes e assim sucessivamente


--------------------------------------------------------------------------------------------------
Antes do software poder ser reutilizável ele primeiro tem de ser utilizável.


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário