Uso De Sql No Access (Resolvido)

[lsardinha]

Estou fazendo uma pesquisa pra gerar um relatório com o sql abaixo no access:

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('Select A.codigo, a.Data, a.horaentrada, a.horasaida, a.codigovisitante, a.codigofuncionario, a.numcracha, b.Nome, b.Procedencia, c.Nome, c.Divisao');

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('From ControleAcesso a, Visitantes b, Funcionarios c');

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('Where a.CodigoVisitante=b.codigo');

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('and a.CodigoFuncionario=c.codigo');

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('AND a.Data Between #' + DataInicial + '#');

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('AND #' + DataFim + '#');

FrmDataModCadastro.QryRelControleAcesso.SQL.Add('Order by a.Data, a.horaentrada');

********************

O problema é que quando consulto pela data o access entende pelo padrão americado (mm/dd/aaaa), e no meu banco esta sendo guardado da forma normal (pra nós) (dd/mm/aaaa)...

Só que não sei como resolver isso

[Progr'amador]

Olá,

você ta usando banco de dados mdb mesmo?

Altere o formato no proprio banco Access, lá deve ter uma opção de formato.

Abs. Progr'amador.

[lsardinha]

Problema resolvido, peguei uma função que altera o formato da data para o padrão americado e passo esse valor para o SQL já no formato americano...

Function DataIng(Data:String):String;

begin

Result := Copy(Data, 4, 3) + Copy(Data, 1, 3) + Copy(Data, 7, 4);

end;

******* ONDE CHAMO A FUNÇÃO *******

DataInicial := DataIng (DateToStr (DataInicio.Date));

DataFim := DataIng (DateToStr (DataFinal.Date));