Re: Res: [delphi-br] Dúvida com query

2007-10-22 Por tôpico Moacir - GMail 
Ou use a clausula IN:

where STATUS in (1,7,8)

ou

where STATUS in ('1','7','8')

[ ]´s
Moacir


Robson escreveu:
 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]



   


[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Dúvida com query

2007-10-21 Por tôpico Robson 
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]