CONSULTA SQL COM 3 CONDI?ÕES
Boa noite,
Peço desculpas de antemão por minha dúvida, pois pode ser algo bobo, mas infelizmente para mim é algo complicado e que esta me fazendo arrancar meus cabelos...rsrs
Uso um código que consegui na WEB para realizar um filtro entre datas, porém agora eu preciso colocar mais uma condição. Então seria filtrar no BD os dados do TEXTBOX9, do TEXTBOX10 e do CODEMP, porém os valores do TEXT9 e 10 são filtrados na coluna DataMovimento e o CODEMP deve ser filtrado na coluna EMPRESA. Por favor, alguém pode me dar alguma luz, já tentei acrescentar na rotina abaixo, mas em todas as tentativas que fiz deu erro.
Agradeço desde já a quem puder ajudar esta iniciante
Peço desculpas de antemão por minha dúvida, pois pode ser algo bobo, mas infelizmente para mim é algo complicado e que esta me fazendo arrancar meus cabelos...rsrs
Uso um código que consegui na WEB para realizar um filtro entre datas, porém agora eu preciso colocar mais uma condição. Então seria filtrar no BD os dados do TEXTBOX9, do TEXTBOX10 e do CODEMP, porém os valores do TEXT9 e 10 são filtrados na coluna DataMovimento e o CODEMP deve ser filtrado na coluna EMPRESA. Por favor, alguém pode me dar alguma luz, já tentei acrescentar na rotina abaixo, mas em todas as tentativas que fiz deu erro.
Agradeço desde já a quem puder ajudar esta iniciante
rs.Open _
[Ô]SELECT COUNT(DataMovimento) AS Contg FROM [Movimento] [Ô] & _
[Ô]WHERE DataMovimento Between #[Ô] & Format(TextBox9, [Ô]mm/dd/yyyy[Ô]) & _
[Ô]# AND #[Ô] & Format(TextBox10, [Ô]mm/dd/yyyy[Ô]) & [Ô]#;[Ô], _
DB, adOpenKeyset, adLockOptimistic, adCmdText 
rs.Open _
[Ô]SELECT COUNT(DataMovimento) AS Contg FROM [Movimento] [Ô] & _
[Ô]WHERE DataMovimento Between #[Ô] & Format(TextBox9, [Ô]mm/dd/yyyy[Ô]) & _
[Ô]# AND #[Ô] & Format(TextBox10, [Ô]mm/dd/yyyy[Ô]) & [txt-color=#e80000][Ô]# AND EMPRESA = [Ô] & CODEMP [/txt-color] , _
DB, adOpenKeyset, adLockOptimistic, adCmdText
Ola Jaba, muito obrigada por sua resposta.
Infelizmente não deu certo, coloquei exatamente como você citou, mas apresentou o erro abaixo
Infelizmente não deu certo, coloquei exatamente como você citou, mas apresentou o erro abaixo
Você tem o campo [txt-color=#e80000][Ô]EMPRESA[Ô][/txt-color] e o [txt-color=#e80000][Ô]CODEMP[Ô][/txt-color] no seu banco de dados?
Se sim então onde tem [txt-color=#e80000][Ô]# AND EMPRESA = [Ô] & CODEMP[/txt-color]
deve ser [txt-color=#0000f0][Ô]# AND CODEMP = [Ô] & CODEMP[/txt-color]
O erro da mensagem aponta para uma busca numérica em um campo de texto.
Se sim então onde tem [txt-color=#e80000][Ô]# AND EMPRESA = [Ô] & CODEMP[/txt-color]
deve ser [txt-color=#0000f0][Ô]# AND CODEMP = [Ô] & CODEMP[/txt-color]
O erro da mensagem aponta para uma busca numérica em um campo de texto.
Boa noite Mario,
EMPRESA é uma coluna do meu banco de dados, e CODEMP é um textbox onde insiro o valor a ser procurado.
EMPRESA é uma coluna do meu banco de dados, e CODEMP é um textbox onde insiro o valor a ser procurado.
Certo, mas a empresa é um campo texto e você vai procurar na textbox CODEMP?
Se o campo empresa é código então mude para numérico e tente novamente.
Se não for possÃvel mudar então mude a consulta de
[txt-color=#e80000][Ô]# AND EMPRESA = [Ô] & CODEMP[/txt-color]
para:
[txt-color=#0000f0][Ô]# AND EMPRESA = [ô][Ô] & CODEMP & [Ô][ô][Ô][/txt-color]
Assim estará buscando um texto ao invés de um número.
Se o campo empresa é código então mude para numérico e tente novamente.
Se não for possÃvel mudar então mude a consulta de
[txt-color=#e80000][Ô]# AND EMPRESA = [Ô] & CODEMP[/txt-color]
para:
[txt-color=#0000f0][Ô]# AND EMPRESA = [ô][Ô] & CODEMP & [Ô][ô][Ô][/txt-color]
Assim estará buscando um texto ao invés de um número.
Deu certo Mario !!!! 
Muito obrigada !!!
Mas deixa eu abusar do seu conhecimento um pouquinho?
A estrutura abaixo, que tem a mesma funcionalidade, eu já devo estar cometendo algum vacilo, pode me dizer onde ?
Muito obrigada !!!
Mas deixa eu abusar do seu conhecimento um pouquinho?
A estrutura abaixo, que tem a mesma funcionalidade, eu já devo estar cometendo algum vacilo, pode me dizer onde ?
If OptionButton1.Value = True Then
RS1.Open [Ô]SELECT * FROM [Movimento] WHERE DataMovimento Between #[Ô] & _
Format(TextBox9, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & _
Format(TextBox10, [Ô]mm/dd/yyyy[Ô]) & _
[Ô]# AND EMPRESA = [Ô] & CODEMP & [Ô]# ORDER BY DataMovimento,Lanç,Seq;[Ô], _
DB, adOpenKeyset, adLockOptimistic, adCmdText
ElseIf OptionButton2.Value = True Then
Encerre esse tópico e crie outro, assim fica mais organizado.
Tópico encerrado , respostas não são mais permitidas