Fórum Erro no Select #369790

Bom, a mensagem de erro quer dizer que vc está com problemas quanto a sintaxe do seu código SQL, onde provavelmente o erro está no uso das aspas pelo Delphi.

Tente fazer o seguinte, ao passar a SQL para o Delphi, em todo lugar onde aparece uma aspa simples, adicione mais uma, onde vai ficar duas aspas uma ao lado da outra... assim:



Att

Então amigo, fiz um teste e quando não utilizo um select dentro de outro select ele não da o erro: Exemplo utilizado que não da o erro esta abaixo:

SELECT * FROM orc
Where ( ´31´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
or ( ´14´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
or ( ´´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
or ( ´´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
or ( ´´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))

Mas quando utilizo o IBExpert para rodar o script com o select dentro do select funciona é apenas jogar no delphi que da o erro.

-------------------------------------------------

Outra questão se vc puder me ajudar.
Neste mesmo script eu gostaria que o select fosse acumulativo tipo:
SELECT * FROM orc
Where ( ´31´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
[b:77e716350b]and[/b:77e716350b] ( ´14´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
[b:77e716350b]and[/b:77e716350b] ( ´´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
[b:77e716350b]and[/b:77e716350b] ( ´´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))
[b:77e716350b]and[/b:77e716350b] ( ´´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))

No lugar do [b:77e716350b]OR[/b:77e716350b] utilizar [b:77e716350b]AND[/b:77e716350b], mas não funciona, porque? Qual outra opção posso utilizar para ser acumulativo.

Obrigado.

Uelinton

Faça o post da rotina que vc está usando no Delphi para jogar a SQL... é através de algum componente ou está adicionando a SQL direto no código?

Faça o post de todo o código que ficará mais fácil de lhe ajudar.

Att

Boa tarde.

if (PesqSistemas.RadioGroup1.ItemIndex = 0) then
begin
statusbar1.Panels[2].Text:= ´ Tipo Sistema: Instalação´;
strSql:= ´select * from ´ + nomeTabela;
strSql:= strSql + ´ where ( ´ + #39 + PesqSistemas.IBQOpcao1.FieldByName(´id´).AsString + 39 + ´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))´;
strSql:= strSql + ´ or ( ´ + 39 + PesqSistemas.IBQOpcao2.FieldByName(´id´).AsString + 39 + ´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))´;
strSql:= strSql + ´ or ( ´ + 39 + PesqSistemas.IBQOpcao3.FieldByName(´id´).AsString + 39 + ´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))´;
strSql:= strSql + ´ or ( ´ + #39 + PesqSistemas.IBQOpcao4.FieldByName(´id´).AsString + 39 + ´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))´;
strSql:= strSql + ´ or ( ´ + 39 + PesqSistemas.IBQOpcao5.FieldByName(´id´).AsString + 39 + ´ in (sist1, sist2, sist3, sist4, sist5, sist6, sist7, sist8, sist9, sist10))) as Orcamentos ´;
strSql:= strSql + ´ Where TIPO_SIST = ´ + 39 + ´TIPO_INST´ + 39;
end;

Tomara que ajude.

Obrigado.