Selecionar Período de data

[Marcelo Barcellos 0]

Sim..

Não se esqueça que no ACCESS o formato da data deve estar em "MM/DD/AAAA"

<{POST_SNAPBACK}>

Colega.

Voce não prestou atenção no que eu falei né...

Se for access o formato é outro.

E ao invés de utilizar a ASPA simples vai utilizar o sinal de "#" antes e depois das datas.

[Arley Barros 0]

Sim..

Não se esqueça que no ACCESS o formato da data deve estar em "MM/DD/AAAA"

<{POST_SNAPBACK}>

Colega.

Voce não prestou atenção no que eu falei né...

Se for access o formato é outro.

E ao invés de utilizar a ASPA simples vai utilizar o sinal de "#" antes e depois das datas.

<{POST_SNAPBACK}>

DESCULPA amigo,

 

é que aqui não posso ficar acessando forum, então eu vejo bem rápido (só no ALT+TAB, aliás, quem não faz isso hehe...

 

vou testar, obrigado mais uma vez.

[Arley Barros 0]

OBRIGADO PESSOAL!

 

Apesar de ter que digitar a data no formato americano (MM,DD,AA) está funcionando. vou colocar aqui como ficou o codigo para ajudar as pessoas que tivererm a mesma duvida que eu.

 

Se alguem tiver a solução para o formato de data, posta aí me ajudar.

 

 

Mais uma vez obrigado.

 

Segue codigo:

 

ASP

[*]<%

 

[*]Dim relatorio__vardata1

 

[*]relatorio__vardata1 = "1"

 

[*]If (Request.QueryString("data1") <> "") Then 

 

[*] relatorio__vardata1 = Request.QueryString("data1")&(" 00:00:00") 

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]Dim relatorio__vardata2

 

[*]relatorio__vardata2 = "1"

 

[*]If (Request.QueryString("data2") <> "") Then 

 

[*] relatorio__vardata2 = Request.QueryString("data2")&(" 23:59:59") 

 

[*]End If

 

[*]%>

 

[*]<%

 

[*]Dim relatorio

 

[*]Dim relatorio_numRows

 

[*]

 

[*]Set relatorio = Server.CreateObject("ADODB.Recordset")

 

[*]relatorio.ActiveConnection = MM_relatorio_STRING

 

[*]relatorio.Source = "SELECT * FROM colaborador, trabalhos WHERE colaborador.usuario LIKE trabalhos.colaborador AND colaborador = '" + Replace(relatorio__MMColParam, "'", "''") + "' AND data BETWEEN #" + Replace(relatorio__vardata1, "'", "''") + "# AND #" + Replace(relatorio__vardata2, "'", "''") + "#"

 

[*]relatorio.CursorType = 0

 

[*]relatorio.CursorLocation = 2

 

[*]relatorio.LockType = 1

 

[*]relatorio.Open()

 

[*]

 

[*]relatorio_numRows = 0

 

[*]%>