REGISTRO DE DATA ERRO DE DADO INCOMPATÍVEL

MILTONSILVA94 31/01/2017 02:49:41
#471168
Pessoal, montei o select abaixo que é referente a um campo com formato de [ô]Data abreviada no banco = dd/mm/yyyy hh:mm:ss[ô] neste formato aí.
Quando rodo está apontando que o dado é incompatível. Só que se eu tiro as aspas depois do where ele não retorna os dados corretamente conforme o select montado.
O código é este:

Dim DiaAnterior As String
Dim Horario As String
DiaAnterior = DateAdd([Ô]d[Ô], -1, (Format(Date, [Ô]dd/mm/yyyy[Ô])))
Horario = Format(Time, [Ô]00:15:00[Ô])

Set rs = db.OpenRecordset([Ô]SELECT count(registro) from LOGSENHAS WHERE ultima_atualizacao > [ô][Ô] & (DiaAnterior) & [Ô] [Ô] & (Horario) & [Ô][ô] group by registro[Ô]) [ô]Aqui não está funcionando....
MsgBox rs.RecordCount

Podem auxiliar?
MARCELO.TREZE 31/01/2017 10:05:29
#471172 Resposta escolhida
se usa um banco access utilize o seguinte formato mm/dd/yyyy e dará certo
OMAR2011 31/01/2017 12:20:18
#471185
Tipo assim.
Set rs = db.OpenRecordset([Ô]SELECT * from LOGSENHAS WHERE ultima_atualizacao > #[Ô] & (DiaAnterior) & [Ô] [Ô] & (Horario) & [Ô]#[Ô])
rs.MoveLast
MsgBox rs.RecordCount
MILTONSILVA94 02/02/2017 01:30:08
#471248
Citação:

:
se usa um banco access utilize o seguinte formato mm/dd/yyyy e dará certo



Só usando mesmo no formato [ô]yyyy-mm-dd[ô] que ele respeita as datas e retorna corretamente.
MILTONSILVA94 02/02/2017 01:32:43
#471249
Citação:

:
Tipo assim.
Set rs = db.OpenRecordset([Ô]SELECT * from LOGSENHAS WHERE ultima_atualizacao > #[Ô] & (DiaAnterior) & [Ô] [Ô] & (Horario) & [Ô]#[Ô])
rs.MoveLast
MsgBox rs.RecordCount



Não adiantou colocando o [ô]#[ô], ele retorna da mesma maneira e não traz somente os registros corretamente entre esta data.
MARCELO.TREZE 02/02/2017 08:13:10
#471252
Citação:

:
:
se usa um banco access utilize o seguinte formato mm/dd/yyyy e dará certo

Só usando mesmo no formato [ô]yyyy-mm-dd[ô] que ele respeita as datas e retorna corretamente.



access a regra é a que passei resumindo seria assim:

Dim DiaAnterior As String
Dim Horario As String
DiaAnterior = DateAdd([Ô]d[Ô], -1, date)
Horario = Format(Time, [Ô]00:15:00[Ô])

Set rs = db.OpenRecordset([Ô]SELECT count(registro) from LOGSENHAS WHERE ultima_atualizacao > #[Ô] & Format(DiaAnterior & [Ô] [Ô] & Horario, [Ô]mm/dd/yyyy hh:nn:ss[Ô]) & [Ô]# group by registro[Ô])  
MsgBox rs.RecordCount
MILTONSILVA94 03/02/2017 00:25:06
#471301
Obrigado Marcelo.
Tópico encerrado , respostas não são mais permitidas
Voltar