ERRO NA CONSULTA NO VB6 X SQL 2005

JLAUROSOUZA 22/02/2011 12:07:35
#366220
Amigos onde esta o erro?

Tabela.Source = [Ô]Select * from DP_EXTRATO where PALAVRA_CHAVE like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
Tabela.Source = Tabela.Source + [Ô] and NOME_DOCUMENTO =[ô][Ô] & Trim(tNDoc.Text) & [Ô][ô][Ô]
Tabela.Source = Tabela.Source + [Ô] and identidade =[ô][Ô] & Trim(IDENTIDADE) & [Ô][ô][Ô]
Tabela.Source = Tabela.Source + [Ô] and IDDEPARTEMANTO =[ô][Ô] & Trim(xIDDepartamento) & [Ô][ô][Ô]
Tabela.Source = Tabela.Source + [Ô] or COMPETENCIA like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
Tabela.Source = Tabela.Source + [Ô] or CAIXA like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
Tabela.Open , cn, adOpenDynamic, adLockOptimistic


OBS:
TPesquisaRapida = [Ô]DE[Ô]
tNDoc = 1
IDENTIDADE = 2
xIDDepartamento = 1

ACONTECE QUE NO BANCO NAUM EXISTE REGISTRO QUE SE ENCAIXE A ESTA CONSULTA, E MESMO ASSIM ESTA ME RETORNANDO TUDO, OQ ESTA ERRADO?
MARCELO.TREZE 22/02/2011 12:15:35
#366222
na realidade acho que o problema é nesta parte

PALAVRA_CHAVE like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]

se vc colocar DE na pesquisa rapida ele ira procura tudo que contenha DE

ex: CIDA[txt-color=#0000f0]DE[/txt-color], MO[txt-color=#0000f0]DE[/txt-color]LIDA[txt-color=#0000f0]DE[/txt-color], [txt-color=#0000f0]DE[/txt-color]NSIDÃO, CON[txt-color=#0000f0]DE[/txt-color]NSADO


o vc pode fazer é não usar o Like e sim o sinal de igual

PALAVRA_CHAVE =[ô][Ô] & Trim(TPesquisaRapida.Text) & [Ô][ô][Ô]

ou pode usar o like para procurar palavras que comecem com que for digitado em Tpesquisarapida assim

PALAVRA_CHAVE like [ô][Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]

tente
JLAUROSOUZA 22/02/2011 12:16:49
#366223
Amigos acabei de Descobrir são os [Ô]OR[Ô] que estou utilizando.

AGORA VAI OUTRA PERGUNTA:

Como posso Utilizar [Ô]AND[Ô] e [Ô]OR[Ô] na mesma consulta, pois na minha consulta ele vai procurar em vários cantos se contem a informação com os [Ô]OR[Ô] se é no primeiro [Ô]OU[Ô] no segundo que esta a informação, e com os [Ô]AND[Ô] ele vai ver se naquela campo contem a informação padrão, Desculpe se naum fiz entender!!!
JLAUROSOUZA 22/02/2011 12:20:36
#366224
MACELO, Obg pelo atenção mais é de SUMA importancia a utilização do like, pois é uma pesquisa Rapida em uma palavra chave, onde naum é preciso digitar toda a palavra, pois no campo PALAVRA_CHAVE contem muita coisa e ele só ira procura o interválo q foi digitado amigo, o [Ô]DE[Ô] q eu coloquei foi só para exemplificar. mais encontrei o Erro, só naum sei como resolve-lo, pois preciso utilizar os [Ô]AND[Ô] e os [Ô]OR[Ô] na consulta!
PARREIRA 22/02/2011 12:45:09
#366230
Amigo,cada campo em txt,corresponde a um or?
e se um txt tiver em branco? è o usuario que vai identificar por qual campo ele quer consutar?
JLAUROSOUZA 22/02/2011 13:04:39
#366234
AMIGO PARREIRA, as tabelas que eu utilizo para estas consultas com criadas em execução, daí uma armazeno em Label os nomes dos campos, e quando ele vai procurar ele carrega pela label de acordo com o Text q esta True, vou te manda como realmente é feita a consulta.

e Não o Usuario naum identifica qual o campo.


oTabela.Source = [Ô]Select * from [Ô] & xTabelaSecundaria & [Ô] where PALAVRA_CHAVE like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
oTabela.Source = oTabela.Source + [Ô] and NOME_DOCUMENTO =[ô][Ô] & Trim(tNDoc.Text) & [Ô][ô][Ô]
oTabela.Source = oTabela.Source + [Ô] and identidade =[ô][Ô] & Trim(IDENTIDADE) & [Ô][ô][Ô]
oTabela.Source = oTabela.Source + [Ô] and IDDEPARTEMANTO =[ô][Ô] & Trim(xIDDepartamento) & [Ô][ô][Ô]
If tTexto1.Visible = True Or cLista1.Visible = True Then
oTabela.Source = oTabela.Source + [Ô] OR [Ô] & LabNome1.Caption & [Ô] like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
End If
If tTexto2.Visible = True Or cLista2.Visible = True Then
oTabela.Source = oTabela.Source + [Ô] OR [Ô] & LabNome2.Caption & [Ô] like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
End If
If tTexto3.Visible = True Or cLista3.Visible = True Then
oTabela.Source = oTabela.Source + [Ô] OR [Ô] & LabNome3.Caption & [Ô] like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
End If
If tTexto4.Visible = True Or cLista4.Visible = True Then
oTabela.Source = oTabela.Source + [Ô] OR [Ô] & LabNome4.Caption & [Ô] like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
End If
If tTexto5.Visible = True Or cLista5.Visible = True Then
oTabela.Source = oTabela.Source + [Ô] OR [Ô] & LabNome5.Caption & [Ô] like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
End If
If tTexto6.Visible = True Or cLista6.Visible = True Then
oTabela.Source = oTabela.Source + [Ô] OR [Ô] & LabNome6.Caption & [Ô] like [ô]%[Ô] & Trim(TPesquisaRapida.Text) & [Ô]%[Ô] & [Ô][ô][Ô]
End If
oTabela.Open , cn, adOpenDynamic, adLockOptimistic
Tópico encerrado , respostas não são mais permitidas
Voltar