SELECT COM DATA
Amigos,
Desenvolvo em MYsql e por exigências me vi forçado a usar banco de dados access 2007 e estou com dúvida quanto a manipulação de datas no select
segue código:
Set .ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô]select sum(cob001.vvalor) as soma, cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa from cob001 where cob001.tipo = VAL(1) and cob001.ligador = VAL(0) and cob001.caixa = [ô][Ô] & Me.txtNCaixa & [Ô][ô] and cob001.ddata = [Ô] & Format(CDate(Me.txtData), [Ô]dd/mm/yyyy[Ô]) & [Ô] group by cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa [Ô]
Set myrs = .Execute
no banco de dados está como d/m/yyyy
e me retorna o erro dizendo que não foi possivel localizar o registro atual ou ele foi excluÃdo.
estranho, pois, quando faço a consulta sem a limitação de data me retorna os valores.
Sabem me dizer onde estou errando?
Desenvolvo em MYsql e por exigências me vi forçado a usar banco de dados access 2007 e estou com dúvida quanto a manipulação de datas no select
segue código:
Set .ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô]select sum(cob001.vvalor) as soma, cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa from cob001 where cob001.tipo = VAL(1) and cob001.ligador = VAL(0) and cob001.caixa = [ô][Ô] & Me.txtNCaixa & [Ô][ô] and cob001.ddata = [Ô] & Format(CDate(Me.txtData), [Ô]dd/mm/yyyy[Ô]) & [Ô] group by cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa [Ô]
Set myrs = .Execute
no banco de dados está como d/m/yyyy
e me retorna o erro dizendo que não foi possivel localizar o registro atual ou ele foi excluÃdo.
estranho, pois, quando faço a consulta sem a limitação de data me retorna os valores.
Sabem me dizer onde estou errando?
primeiramente configure seu Windows, configurações regionais como dd/mm/yyyy
Para buscar no access utilize a máscara em YYYY/MM/DD
Lembrando que no banco de dados vc deverá utilizar os campos onde serão salvo as datas no formato [Ô]DATA/HORA[Ô]
em uma pesquisa no meu programa eu utilizei dessa forma... quem sabe te ajuda...
Set Atrasos = DB.OpenRecordset([Ô]SELECT * FROM Tabela WHERE CampoDeData< #[Ô] & Format(Text1, [Ô]yyyy/mm/dd[Ô]) & [Ô]#[Ô])
Espero ter te ajudado...
Para buscar no access utilize a máscara em YYYY/MM/DD
Lembrando que no banco de dados vc deverá utilizar os campos onde serão salvo as datas no formato [Ô]DATA/HORA[Ô]
em uma pesquisa no meu programa eu utilizei dessa forma... quem sabe te ajuda...
Set Atrasos = DB.OpenRecordset([Ô]SELECT * FROM Tabela WHERE CampoDeData< #[Ô] & Format(Text1, [Ô]yyyy/mm/dd[Ô]) & [Ô]#[Ô])
Espero ter te ajudado...
Adriano,
Abrigado pela resposta, foi de grande ajuda.
Estava faltando no meu código o sustenido, ficando assim:
Set .ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô]select sum(cob001.vvalor) as soma, cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa from cob001 where cob001.tipo = VAL(1) and cob001.ligador = VAL(0) and cob001.caixa = [ô][Ô] & Me.txtNCaixa & [Ô][ô] and cob001.ddata = # [Ô] & Format(Me.txtData, [Ô]yyyy/mm/dd[Ô]) & [Ô]# group by cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa [Ô]
Set myrs = .Execute
End With
Att.
Ricardo Nantes
Abrigado pela resposta, foi de grande ajuda.
Estava faltando no meu código o sustenido, ficando assim:
Set .ActiveConnection = Mycon
.CommandType = adCmdText
.CommandText = [Ô]select sum(cob001.vvalor) as soma, cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa from cob001 where cob001.tipo = VAL(1) and cob001.ligador = VAL(0) and cob001.caixa = [ô][Ô] & Me.txtNCaixa & [Ô][ô] and cob001.ddata = # [Ô] & Format(Me.txtData, [Ô]yyyy/mm/dd[Ô]) & [Ô]# group by cob001.tipo, cob001.ddata, cob001.ligador, cob001.caixa [Ô]
Set myrs = .Execute
End With
Att.
Ricardo Nantes
Tópico encerrado , respostas não são mais permitidas