SQL - CONSULTA

USUARIO.EXCLUIDOS 09/09/2007 01:16:39
#234797
Estou com problemas na sql abaixo, está acontescendo erro 13 Type mismatch

CONSULTASQL = "SELECT * " & _
"FROM Tabprocessos " & _
" where data_entrega = #" & Format(dataInforme, "mm/dd/yyyy") & "# " And " fechamento <> 'Em andamento' "
Set TBSQL = CON.Execute(CONSULTASQL)

Consegui identificar que o preblemas está nessa parte da sintaxe (And " fechamento <> 'Em andamento' ").

Fechamento é o campo no access que trazer todos registros que seja diferente de Em andamento

Agradeço!!
USUARIO.EXCLUIDOS 09/09/2007 02:44:28
#234798

kra no primeiro # vc num coloco aspas duplas mais antes do and vc tah fechando

CONSULTASQL = "SELECT * " & _
"FROM Tabprocessos " & _
" where data_entrega = #" & Format(dataInforme, "mm/dd/yyyy") & " And " fechamento <> 'Em andamento' "
Set TBSQL = CON.Execute(CONSULTASQL)

axo q resolve

falo
USUARIO.EXCLUIDOS 09/09/2007 09:56:47
#234802
o problema persiste
USUARIO.EXCLUIDOS 09/09/2007 10:09:29
#234803 Resposta escolhida
Amigão tente assim...

CONSULTASQL = "SELECT * " & _
"FROM Tabprocessos " & _
" where data_entrega = #" & Format(dataInforme, "mm/dd/yyyy") & "# AND fechamento <> 'Em andamento' "
Set TBSQL = CON.Execute(CONSULTASQL)

um forte abraço
LUIS.FLAVIO 09/09/2007 10:11:22
#234804
Amigo qual o Banco que está usando?
O seu data_entrega está formatado como string ou data?

Mas tente isso:

CONSULTASQL = "SELECT * " & _
              "FROM Tabprocessos " & _
              " where data_entrega = #" & Format(dataInforme, "mm/dd/yyyy") & "#  And  fechamento <> 'Em andamento' "
              Set TBSQL = CON.Execute(CONSULTASQL)
USUARIO.EXCLUIDOS 10/09/2007 09:19:06
#234839
A sugestão do VICENTEBR vai funcionar...

CONSULTASQL = "SELECT * " & _
"FROM Tabprocessos " & _
" WHERE (data_entrega = #" & Format(dataInforme, "mm/dd/yyyy") & _
"# AND fechamento <> 'Em andamento')"
Set TBSQL = CON.Execute(CONSULTASQL)
Tópico encerrado , respostas não são mais permitidas
Voltar