Em firebird separe as clausulas where com parenteses tipo: ... where (STATUS = 1) OR (STATUS = 7) OR (STATUS=8) ou ... where (STATUS = '1') OR (STATUS = '7') OR (STATUS='8') Como o Edson informou este segundo se STATUS for alfanumerico, varchar, e etc... Kaputz, Robson Skype: kaputz_gri "Keep the Dream Alive"
----- Mensagem original ---- De: Edison DRP <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 21 de Outubro de 2007 12:15:07 Assunto: Re: [delphi-br] Dúvida com query Select ...... where Status = '1' OR status = '7'.... e usar aspas se 1 e 7 não forem valores numérciso Edison ----- Original Message ----- From: "Ralp Alves Bezerra" <[EMAIL PROTECTED] .com.br> To: "Delphi BR" <[EMAIL PROTECTED] os.com.br> Sent: Sunday, October 21, 2007 10:09 AM Subject: [delphi-br] Dúvida com query > Nobres colegas, > > Preciso listar em uma consulta os alunos que tenham o status igual a 1, > 7 e 8 somente. Porém a consulta não retorna os dados solicitados. > > Já tentei trocar a linha: > Sql.Add('Status= "1" and Status="7" and Status="8" and'); > por : > Sql.Add('Status= "1" or Status="7" or Status="8" and'); mas não funciona. > > Alguém poderia me dar uma luz. > > Grato > > estou com uma dúvida nesta consulta abaixo: > > If Radio1.ItemIndex= 12 then // Turma da Escola > Begin > With qrPesqAluno do > Begin > Close; > Sql.Clear; > Sql.Add('Select * From Alunos'); > If All.Checked= False then > Begin > Sql.Add('Where CodigoDaEscola= :CodEsc and'); > Sql.Add('Status= "1" and Status="7" and Status="8" and'); > <==== dúvida nesta linha > Sql.Add('TipoDeEnsi noD=:TE and'); > Sql.Add('TurmaD= :TR and'); > Sql.Add('SerieD= :SE and'); > Sql.Add('TurnoD= :TU'); > Sql.Add('Order By Nome'); > ParamByName( 'CodEsc') .Value:=rxdbLook upCombo9. Text; > ParamByName( 'TE').Value :=rxdbLookupCombo21 .Text; > ParamByName( 'TR').Value :=rxdbLookupCombo12 .Text; > ParamByName( 'SE').Value :=rxdbLookupCombo13 .Text; > ParamByName( 'TU').Value :=rxdbLookupCombo14 .Text; > > end else begin > Sql.Add('Where TipoDeEnsinoD= :TE and'); > Sql.Add('TurmaD= :TR and'); > Sql.Add('SerieD= :SE and'); > Sql.Add('TurnoD= :TU'); > Sql.Add('Order By Nome'); > ParamByName( 'TE').Value :=rxdbLookupCombo21 .Text; > ParamByName( 'TR').Value :=rxdbLookupCombo12 .Text; > ParamByName( 'SE').Value :=rxdbLookupCombo13 .Text; > ParamByName( 'TU').Value :=rxdbLookupCombo14 .Text; > end; > Open > end; > if qrPesqAluno. IsEmpty Then ShowMessage( 'Registro não encontrado!' ) > end; > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Links do Yahoo! Grupos > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]