Group by não funciona com numeros, soh com nome dos campos
O order by que funciona com números de colunas, tu deve ter te confundido.
Sobre juntar as duas consultas lado a lado só é possível caso elas tenham
relação entre si no caso acho q o campo que poderia relacionar eh o nome da
atividade. Logo a consulta ficaria assim:
CONSULTA1 as c1
FULL JOIN (CONSULTA2) AS c2 on c1.NomeAtividade = c2.NomeAtividade
Claro q esse exemplo com uma tabela
Ou seja na tua consulta tem várias vai pondo 1 em cada 1 da consulta 1
E 2 na 2ª
Daí nos where tu especifica certinho de acordo com cada tabela
Ou seja tu junta os dois wheres tipo:
WHERE (wheres da consulta1) AND (wheres da consulta2)
Entendeu?
Se tivesse visões seria mto mais fácil hehehehe pq tu criaria 2 visoes e
depois uniria elas conforme o exemplo.
_______________________________________________________________________
Mensagem: 16
Data: Fri, 28 Jan 2005 10:39:54 -0200
De: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
Assunto: Re: SQL muito complexa, unir 2 select
Use UNION ALL entre os selects para uní-los. Só que o group by só
sera aceito no ultimo select. Se quiser, pode usar group by pelo numero da
coluna. Por exemplo, se quiser agrupar pela primeira e segunta colunas,
use:
GROUP BY 1,2
Att,
Leandro
--
Open WebMail Project (http://openwebmail.org)
---------- Original Message -----------
From: Hélder Rodrigues <[EMAIL PROTECTED]>
To: "delphi-br@yahoogrupos.com.br" <delphi-br@yahoogrupos.com.br>, "delphi-
[EMAIL PROTECTED]" <[EMAIL PROTECTED]>, "lista-
[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
Sent: Fri, 28 Jan 2005 10:39:18 -0200
Subject: [delphi-br] SQL muito complexa, unir 2 select
> Bom dia amigos,
>
> Estou precisando unir duas consultas SQL ... (a base de dados
> utilizada tabelas Paradox) e não sei qual cláusula usar (não tenho
> muito experiência no assunto ...) devo usar UNION ou JOIN ???
>
> A 1ª consulta é essa:
> ----------------------
>
> )
> GROUP BY
> (Cq_Ativ.NomeAtividade), (Cq_Ativ.IndiceOutLine),
>
> (Cq_Ativ.IndicePaterno), (Cq_insum.Descricao) , Cq_dd."CodCQ_CLASS" ,
> Cq_dd."CodCQ_MOEDA" , (Cq_fatpl.Periodo) ORDER BY
> Cq_Ativ."IndiceOutLine", Cq_Ativ."IndicePaterno"
> ----------------------
> ... e ela retorna 140 registros.
>
> A 2ª consulta é essa:
> ----------------------
> SELECT
> Cq_dd."CodCQ_MOEDA" ,
> Cq_dd."CodCQ_CLASS" ,
> (Cq_insum.Descricao) as Insumo,
> (Cq_Ativ.NomeAtividade),
> (Cq_Ativ.IndiceOutLine),
> (Cq_Ativ.IndicePaterno),
> (sum(Cq_fatpl.QuantidadeNaoAcumulada *
> Cq_dd.QuantInsumo *
> Cq_dd.CustoUnitario)) as CustoAte
> FROM
> "Cq_fatpl.DB" Cq_fatpl ,
> "Cq_dd.DB" Cq_dd ,
> "Cq_Ativ.DB" Cq_Ativ,
> "Cq_insum.DB" Cq_insum
> WHERE
> (Cq_fatpl.CodCQ_ATIV = Cq_dd.CodCQ_ATIV)
> AND
> (Cq_fatpl.CodCQ_ATIV = Cq_Ativ.CodCQ_ATIV)
> AND
> (Cq_dd.CodCQ_INSUM = Cq_insum.CodCQ_INSUM)
> AND
> (
> (Cq_fatpl."Periodo" <= '10')
> AND
> (Cq_dd."CodCQ_CLASS" = '7')
> )
> GROUP BY
> (Cq_Ativ.NomeAtividade),
> (Cq_Ativ.IndiceOutLine),
> (Cq_Ativ.IndicePaterno),
> (Cq_insum.Descricao) ,
> Cq_dd."CodCQ_CLASS" ,
> Cq_dd."CodCQ_MOEDA"
> ORDER BY
> Cq_Ativ."IndiceOutLine", Cq_Ativ."IndicePaterno"
> ----------------------
> ... e ela retorna 157 registros.
>
> *************************************
> A diferença das duas é que a 1ª pega "somente" os registros "do"
> período 10 e a 2ª pega todos os registros "até" o período 10
> "incluindo" o período 10 ...
>
> Tem como unir essas duas consultas ?
> Alguém pode me dar uma dica ?
>
> Desde já muito obrigado.
>
> Atenciosamente,
>
> Hélder
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
------- End of Original Message -------
________________________________________________________________________
________________________________________________________________________
Mensagem: 17
Data: Fri, 28 Jan 2005 10:54:27 -0300
De: Eduardo Silva ® <[EMAIL PROTECTED]>
Assunto: Usar a tecla ESC para sair
Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.
Estou usando o código abaixo no evento onKeyDown do form para fechar o mesmo
com a tecla ESC, mas não esta funcionando.
Alguém pode me dar uma mão ?
if Key = 27 then
begin
Tabela.Cancel;
Close;
end;
_ ___________________________________ _
/ )| |( \
/ / | Eduardo de Almeida Silva | \ \
_( (_ | _ [EMAIL PROTECTED] _ | _) )_
(((\ \)|_/ )___________________________( \_|(/ /)))
(\\\\ \_/ / \ \_/ ////)
\ / \ /
\ _/ \_ /
/ / \ \
________________________________________________________________________
________________________________________________________________________
Mensagem: 18
Data: Fri, 28 Jan 2005 11:01:56 -0300
De: "Eolos \(Yahoo\)" <[EMAIL PROTECTED]>
Assunto: Re: Usar a tecla ESC para sair
Coloque KeyPreview = True
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
Case Key Of
VK_ESCAPE : Close;
end;
end;
Abraço
----- Original Message -----
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Friday, January 28, 2005 10:54 AM
Subject: [delphi-br] Usar a tecla ESC para sair
Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.
Estou usando o código abaixo no evento onKeyDown do form para fechar o
mesmo
com a tecla ESC, mas não esta funcionando.
Alguém pode me dar uma mão ?
if Key = 27 then
begin
Tabela.Cancel;
Close;
end;
_ ___________________________________ _
/ )| |( \
/ / | Eduardo de Almeida Silva | \ \
_( (_ | _ [EMAIL PROTECTED] _ | _) )_
(((\ \)|_/ )___________________________( \_|(/ /)))
(\\\\ \_/ / \ \_/ ////)
\ / \ /
\ _/ \_ /
/ / \ \
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
________________________________________________________________________
________________________________________________________________________
Mensagem: 19
Data: Fri, 28 Jan 2005 11:01:16 -0300
De: "CEJUS" <[EMAIL PROTECTED]>
Assunto: campo memo, savetofile nao salva todo texto no win98
Venho enfrentando dificuldades em um programa desenvolvido por mim no
comando memo1.lines.savetofile(arquivo.txt);
Onde no windows 98 ele grava somente parte do arquivo sendo que no windows
xp grava normal.
Teria algum limite de tamanho de arquivo no windows 98? Ou como modificar
isto?
Grato,
Edgar Zavareze da Silva,
Programador.
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005
________________________________________________________________________
________________________________________________________________________
Mensagem: 20
Data: Fri, 28 Jan 2005 11:06:01 -0300
De: Eduardo Silva ® <[EMAIL PROTECTED]>
Assunto: RES: Usar a tecla ESC para sair
Esqueci de dizer, o key preview já esta true.
-----Mensagem original-----
De: Eolos (Yahoo) [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 28 de janeiro de 2005 11:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Usar a tecla ESC para sair
Coloque KeyPreview = True
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
Case Key Of
VK_ESCAPE : Close;
end;
end;
Abraço
----- Original Message -----
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Friday, January 28, 2005 10:54 AM
Subject: [delphi-br] Usar a tecla ESC para sair
Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.
Estou usando o código abaixo no evento onKeyDown do form para fechar o
mesmo
com a tecla ESC, mas não esta funcionando.
Alguém pode me dar uma mão ?
if Key = 27 then
begin
Tabela.Cancel;
Close;
end;
_ ___________________________________ _
/ )| |( \
/ / | Eduardo de Almeida Silva | \ \
_( (_ | _ [EMAIL PROTECTED] _ | _) )_
(((\ \)|_/ )___________________________( \_|(/ /)))
(\\\\ \_/ / \ \_/ ////)
\ / \ /
\ _/ \_ /
/ / \ \
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--------------------------------------------------------------------------
----
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
________________________________________________________________________
________________________________________________________________________
Mensagem: 21
Data: Fri, 28 Jan 2005 11:10:24 -0200
De: "Claudemir - Bol" <[EMAIL PROTECTED]>
Assunto: Re: Usar a tecla ESC para sair
Vc tem que colocar If key = #27
Ok
----- Original Message -----
From: Eduardo Silva ® <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, January 28, 2005 11:54 AM
Subject: [delphi-br] Usar a tecla ESC para sair
>
> Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.
>
> Estou usando o código abaixo no evento onKeyDown do form para fechar o
mesmo
> com a tecla ESC, mas não esta funcionando.
>
> Alguém pode me dar uma mão ?
>
> if Key = 27 then
> begin
> Tabela.Cancel;
> Close;
> end;
>
> _ ___________________________________ _
> / )| |( \
> / / | Eduardo de Almeida Silva | \ \
> _( (_ | _ [EMAIL PROTECTED] _ | _) )_
> (((\ \)|_/ )___________________________( \_|(/ /)))
> (\\\\ \_/ / \ \_/ ////)
> \ / \ /
> \ _/ \_ /
> / / \ \
>
________________________________________________________________________
________________________________________________________________________
Mensagem: 22
Data: Fri, 28 Jan 2005 11:20:28 -0200
De: "Weverton Gomes de Morais" <[EMAIL PROTECTED]>
Assunto: Problema com Win98
Caros colegas,
Eis um dos problemas mais "cabeludos" que já peguei: Aqui na empresa temos
um sistema que atualmente está com 352 forms. O problema é que o programa
roda no WinXP e Win2K, mas não roda em Win98. Já ocorreram duas mensagens de
erro no Delphi: "Unable to create process: Espaço insuficiente de
armazenamento para processar este comando" e "Unable create process: Foi
feita uma tentativa de carregar um programa com um formato incorreto". As
mensagens do windows que aparecem são: "Impossivel executar
C:\Programa\Programa.exe" e "Não há memória suficiente para iniciar
C:\Programa\Programa.exe. Encerre alguns programas e tente novamente".
Porém, se eu retirar dois forms ESPECÍFICOS o programa roda normalmente.
Fazendo a depuração no 98, nem chegar a executar a primeira linha do
projeto. E, mais estranho ainda é que em um desses form's, se eu alterar o
seu nome, o programa roda; seu eu deixar o nome normal não roda.
Já fiz um infinidade de testes e não consegui resolver o problema.
Alguém já passou por isso ou sabe de algo que possa me ajudar??
Desde já agradeço,
[As partes desta mensagem que não continham texto foram removidas]
________________________________________________________________________
________________________________________________________________________
Mensagem: 23
Data: Fri, 28 Jan 2005 10:28:27 -0300
De: Rogério R. Fernandes <[EMAIL PROTECTED]>
Assunto: Re: Base de dados no LINUX
Caro,
_O BDE simplesmente faz a conexão com o Banco, independente to tipo de
servidor que será usado.
_Não é necessário instalar o BDE no servidor.
_O BDE é muito lento pq não usa outro componente? (no caso pode ser os da
paleta interbase)
[]
Rogério Ricardo Fernandes
----- Original Message -----
From: "Eduardo Galvão" <[EMAIL PROTECTED]>
To: "Lista Delphi" <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 28, 2005 10:23 AM
Subject: [delphi-br] Base de dados no LINUX
Pessoal,
Estou migrando a base de dados de um sistema
em Interbase + Delphi para um servidor Linux
Alguém teria alguma receita de como isto pode
ser feito? E no caso do BDE, existe para Linux
ou terei de alterar meu sistema?
Saudações,
Eduardo Paci Galvão
Engenheiro Eletricista UFMG 1990
www.egalvao.com.br
MSN: [EMAIL PROTECTED]
Skype: eduardogalvao
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
________________________________________________________________________
________________________________________________________________________
Mensagem: 24
Data: Fri, 28 Jan 2005 10:37:10 -0300
De: Rogério R. Fernandes <[EMAIL PROTECTED]>
Assunto: Re: Executando um outro Executável
Olá!
LCSPath := PChar(ExtractFilePath(Application.ExeName)+ 'mCaixa.exe '+
ParamStr(1)
+ ' "' + ParamStr(2) + '" ' + GCSFilial + ' ' + GCSUsuario);
WinExec( Pchar( LCSPath), SW_SHOWNORMAL)
--------------------------------------
A função é WinExec, neste cado estou passando 4 parâmetros (valor X) ->
ParamStr(1)
+ ' "' + ParamStr(2) + '" ' + GCSFilial + ' ' + GCSUsuario
simplificando, podes fazer assim:
WinExec( Pchar( 'C:\Pasta\Programa.exe ValorX', SW_SHOWNORMAL)
Para usar o ValorX:
Variável := ParamStr(1);
Sobre disparar evento onclick, não entendei. Seria em que momento e em que
programa?
[]
Rogério Ricardo Fernandes
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 28, 2005 7:51 AM
Subject: [delphi-br] Executando um outro Executável
>
> Pessoal, como faço para "chamar" um outro executável de modo que esse
outro
> executável em seu edit receba um valor X e além dispare o evento onclick.
> AT+
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
________________________________________________________________________
________________________________________________________________________
Mensagem: 25
Data: Fri, 28 Jan 2005 11:26:43 -0200
De: Hélder Rodrigues <[EMAIL PROTECTED]>
Assunto: SQL muito complexa, unir 2 select (2) !!!
(continuação da minha mensagem anterior)
Oi pessoal ...
Na verdade eu queria ter em uma mesma consulta, duas colunas:
- Uma com o resultado do Custo "no período" 10;
- Outra com o resulta do Custo "até o período" 10, "incluindo" o período 10;
-----
Será que alguém pode me dar uma dica ? Já vi que a cláusula UNION não
serve ...
dá pra fazer isso usando JOIN ??
Novamente, muito obrigado.
Atenciosamente,
Hélder
________________________________________________________________________
________________________________________________________________________
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------
Links do Yahoo! Grupos
------------------------------------------------------------------------
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
