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]> To: "Delphi BR" <delphi-br@yahoogrupos.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('TipoDeEnsinoD=:TE and'); > Sql.Add('TurmaD=:TR and'); > Sql.Add('SerieD=:SE and'); > Sql.Add('TurnoD=:TU'); > Sql.Add('Order By Nome'); > ParamByName('CodEsc').Value:=rxdbLookupCombo9.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 > > >