[Resolvido]Instrução SQL

Ola pessoal estou com um probleminha aqui com uma instrução sql creio eu que tem a ver com as aspas duplas e algum sinal veja abaixo e uma sql com 2 criterios um numero e o outro uma data de um campo especifico coloquei ele até em uma variavel porem n me tras o resultado, e colocando a data dentro do select ele funciona mais pega do campo não aceita.

Dim Convert

Convert = Format(Me.Texto51, "yyyy-mm-dd")


Call Carrega_Datas("select * from Chat where Cod_Cliente =" & Cod & " AND Data_Mensagem = #Convert#", Me.Form.Name)

no criterio data mensagem ja testei de varias formas mais n aceita.

Se alguem puder ajuda agradeço pessoal.

Marcelo

Me parece que falta concatenar a variável "Convert" tente ai.

Call Carrega_Datas("select * from Chat where Cod_Cliente =" & Cod & "AND Data_Mensagem =" & Convert, Me.Form.Name)

marque esse ponto do código para analisar em tempo de execução e ver se esta carregando as variáveis certinho.

Com a tecla F8 vá "passando" de linha em linha, Passe o cursor do mouse sobre as variáveis veja se tem o resultado que precisa.

abraço Billy

O Marcos pra vc dar uma olhada eu ja testei de todas as formas veja

Dim Cod As String
Dim DateM As Date

Me.Texto51 = Format(Me.Lista_Mensagem.Column(1, Linha), "yyyy-mm-dd")

Cod = DLookup("Cod_Cliente", "temp_cliente_login")

DateM = Format(Me.Texto51, "yyyy-mm-dd")


'funcional
Call Carrega_Mensagens("select * from Chat where Cod_Cliente = " & Cod & " And Data_Mensagem =#" & DateM & "#", Me.Form.Name)

Porem me parece que ele não aceita a data e colocando a data pra testa assim '2019-04-22' ele me traz o resultado somente desta data e não pega valor do campo

que ja esta convertendo para o modelo americano .

creio eu que tem a ver com aspas duplas simples ou algum simbolo que nao consegui fazer.

lembrando que ele esta pegando o valor de um servidor monline mysql.

Num falei pra ti que o erro era questao de aspas amigo consegui depois de muito tenta. veja como fico



Call Carrega_Mensagens("select * from Chat where Cod_Cliente = " & Cod & "  And Data_Mensagem = '" & DateM & "'", Me.Form.Name)



Esse negocio de aspas duplas simples e sinais nas instruções sql tem que ser corretas se nao da problema.

Obrigado Pela ajuda Amigo.