Sql

[@line]

Olá pessoal.

Estou quebrando a cabeça tentando entender porque o select abaixo não está me trazendo resultados.

É uma função para consultar no banco se determinada data é feriado. Só que parece que a cláusula WHERE com a Data não está legal. Por exemplo, se Data = 02/11/2005, ele teria que trazer uma linha, mas não traz.

Public Function Feriado(Data As Date) As Boolean

SQL = "SELECT Data "
SQL = SQL & "FROM Feriados "
SQL = SQL & "WHERE Data = " & Data
Set RSM = DB.Execute(SQL)

If RSM.EOF Then
    Feriado = False
Else
    Feriado = True
End If

End Function

O campo Data da tabela Feriados está definido como Data/Hora. E tanto a data que o vb passa na instrução SQL como as datas que estão na tabela estão no formato "dd/mm/yyyy".

Alguém poderia me ajudar???

[CKorneLL]

Public Function Feriado(Data As Date) As Boolean

SQL = "SELECT Data "
SQL = SQL & "FROM Feriados "
SQL = SQL & "WHERE Data =  ' " & format(Data, "yyyy-mm-dd") & " ' "
Set RSM = DB.Execute(SQL)

If RSM.EOF Then
   Feriado = False
Else
   Feriado = True
End If

End Function

Eu alterei seu código...

Vê se dá certo...

CKorneLL.

[@line]

Não deu certo.

Dá o seguinte erro: "Tipo de dados incompatível na expressão de critério."

[Joaozava]

Qual banco você esta usando ??

[@line]

Access.

[Joaozava]

Tenta fazer assim:

Public Function Feriado(Data As Date) As Boolean

SQL = "SELECT Data "
SQL = SQL & "FROM Feriados "
SQL = SQL & "WHERE Data =  ' " & format(Data, "mm/dd/yyyy") & " ' "
Set RSM = DB.Execute(SQL)

If RSM.EOF Then
  Feriado = False
Else
  Feriado = True
End If

End Function

[@line]

Desta forma dá a mesma mensagem de erro: "Tipo de dados incompatível na expressão de critério."

E se eu colocar sem as aspas, ele não retorna nada:

Public Function Feriado(Data As Date) As Boolean

SQL = "SELECT Data "
SQL = SQL & "FROM Feriados "
SQL = SQL & "WHERE Data =   " & format(Data, "mm/dd/yyyy")
Set RSM = DB.Execute(SQL)

If RSM.EOF Then
 Feriado = False
Else
 Feriado = True
End If

End Function

[Joaozava]

Bom... Tenta dessa outra maneira então....

Public Function Feriado(Data As Date) As Boolean

SQL = "SELECT Data "
SQL = SQL & "FROM Feriados "
SQL = SQL & "WHERE Data =   #" & format(Data, "mm/dd/yyyy") & "#"
Set RSM = DB.Execute(SQL)

If RSM.EOF Then
Feriado = False
Else
Feriado = True
End If

End Function

Desse jeito é funcionar.. ... eu uso assim...

[@line]

Funcionou!!!!

Muito Obrigada.

[Joaozava]

De nada!...

Precisando é so chamar...

Abraços..