Re: [delphi-br] Problemas no SQL

[Gabriel Filho]

Uma dica interessante é usar parametros ao invez de passar toda a string
montada,
pois se vc define o tipo do parametro como Datetime, nao importa o formato
que esta no Banco, o componente le no formato local e posta no formato do
servidor


entaum vc poderia usar assim:


dmDados.ibqConsultaContasAPagar.SQL.Text:='select * from contas_a_pagar
where contas_a_pagar. datalancamento BETWEEN :DataInicial  and  :DataFinal'


Antes de executar vc passa os parametros

dmDados.ibqConsultaContasAPagar.Parameters.parambyname
('DataInicial'):=DateTime1;
 dmDados.ibqConsultaContasAPagar.Parameters.parambyname
('DataFinal'):=DateTime2;

Depois é só abrir

O Ideal mesmo é vc colocar o script em tempo de desenvolvimento, pois talvez
será necessario acessar a propriedade
params e identificar o tipo do parametro.


nunca usei os componentes interbase, mas acredito que sejam parecidos com os
outros similares portanto talvez o código acima
tenha que sofrer algumas alterações, mas o caminho das pedras já esta ai


Espero ter ajudado








Em 29/11/06, mendoleonel [EMAIL PROTECTED] escreveu:

   vc pode usar tb o between...


 Select * from tabela where data between 'mm/dd/' and 'mm/dd/'

 Lembre que na pesquisa SQL é sempre no formato acima para evitar qualquer
 incompatibilidade ou erro.

 []'s



 _

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Régis Júlio Bender
 Enviada em: terça-feira, 28 de novembro de 2006 11:22
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Problemas no SQL

 Boa tarde Ricardo,
 obrigado pela ajuda, mas eu tentei digitar a data 30/11/2006 e dá um erro
 no
 sql e se eu digitar 11/30/2006 ele funciona perfeitamente.
 Mas eu vou tentar essa dica que voc~e falou, qualquer coisa eu retorno.
 hehehe

 abraço

 sds

 Bender Desenvolvimento de Sistemas
 e Serviços Contábeis (Régis)
 (51) 98470699

 Novo Hamburgo/RS
 MSN: [EMAIL PROTECTED] mailto:regissk8% regissk8%2540terra.com.br com.br

 - Original Message -
 From: Ricardo Cesar Cardoso
 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 Sent: Tuesday, November 28, 2006 3:38 PM
 Subject: Res: [delphi-br] Problemas no SQL

 Boa tarde Régis!

 Acho que com esta pequena alteração tudo vai funcionar:

 dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
 where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text
 +
 chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) +
 eDataFinal.text + chr(39) + ')');

 Na verdade eu retirei as aspas simples do texto.

 Outra dica é a seguinte. Existe uma função no Delphi que coloca
 automaticamente aspas no texto pra vc então o comando acima poderia ficar
 até um pouco mais legível se inserido assim:

 dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar
 Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text)
 +
 ' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) +
 ')');

 Quanto às datas não testei, mas li em algum lugar que não faz diferença
 pois
 o banco consegue se orientar (como eu não sei...).

 Abraço,
 Ricardo.

 - Mensagem original 
 De: Régis Júlio Bender [EMAIL PROTECTED] mailto:regissk8% regissk8%25
 40terra.com.br
 com.br
 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
 os.com.br

 Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17
 Assunto: [delphi-br] Problemas no SQL

 Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:

 se eu fizer essa pesquisa:

 dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
 where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text
 +
 chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) +
 eDataFinal.text + chr(39) + ')');

 no delphi ele esta dando esse erro:

 [Error] uRelatContasAPagar. pas(40): Operator not applicable to this
 operand
 type

 Se eu colocar esse:

 dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
 where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text
 +
 chr(39) + ')' );

 fica certo

 não estou conseguindo implementar o AND para fazer a pesquisa entre duas
 datas.

 outra coisa, eu informo no edit a data no formato dd/mm/ e ele
 pesquisa
 como mm/dd/

 Como eu faço para converter?

 Alguém pode me ajudar?

 desde já, agradeço.

 Abraço

 sds

 Bender Desenvolvimento de Sistemas

 e Serviços Contábeis (Régis)

 (51) 98470699

 Novo Hamburgo/RS

 MSN: [EMAIL PROTECTED] com.br

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

 !--

 #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
 #ygrp-mlmsg table {font-size:inherit;font:100%;}
 #ygrp-mlmsg select, input, textarea {font:99%
 arial,helvetica,clean,sans-serif;}
 #ygrp-mlmsg pre, code {font:115% monospace;}
 #ygrp-mlmsg * {line

[delphi-br] Problemas no SQL

[Régis Júlio Bender]

Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
se eu fizer essa pesquisa:
dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + 
chr(39) + ')');

no delphi ele esta dando esse erro:
[Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type


Se eu colocar esse:
dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' );
fica certo

não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.

outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/
Como eu faço para converter?


Alguém pode me ajudar?
desde já, agradeço.

Abraço

sds

Bender Desenvolvimento de Sistemas 
   e  Serviços Contábeis (Régis)
   (51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]



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

Res: [delphi-br] Problemas no SQL

[Ricardo Cesar Cardoso]

Boa tarde Régis!

Acho que com esta pequena alteração tudo vai funcionar:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + 
') and (contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + 
chr(39) + ')');

Na verdade eu retirei as aspas simples do texto.

Outra dica é a seguinte. Existe uma função no Delphi que coloca automaticamente 
aspas no texto pra vc então o comando acima poderia ficar até um pouco mais 
legível se inserido assim:

dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar 
Where((Contas_A_Pagar.DataCancelamento =  ' + QuotedStr(eDataInicial.Text) + ' 
) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + ')');

Quanto às datas não testei, mas li em algum lugar que não faz diferença pois o 
banco consegue se orientar (como eu não sei...).

Abraço,
Ricardo.

- Mensagem original 
De: Régis Júlio Bender [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17
Assunto: [delphi-br] Problemas no SQL









  



Bom dia, estou com um problema no SQL e gostaria que alguém me 
ajudasse:

se eu fizer essa pesquisa:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + 
')' and '(contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal.text + 
chr(39) + ')');



no delphi ele esta dando esse erro:

[Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand 
type



Se eu colocar esse:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + chr(39) + 
')' );

fica certo



não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.



outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/

Como eu faço para converter?



Alguém pode me ajudar?

desde já, agradeço.



Abraço



sds



Bender Desenvolvimento de Sistemas 

   e  Serviços Contábeis (Régis)

   (51) 98470699



Novo Hamburgo/RS

MSN: [EMAIL PROTECTED] com.br



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






  







!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--









___ 
O Yahoo! está de cara nova. Venha conferir! 
http://br.yahoo.com

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

RES: [delphi-br] Problemas no SQL

[Marcelo Hoepfner \(SI\)]

Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
se eu fizer essa pesquisa:
dmDados.ibqConsultaContasAPagar.SQL.add 

(' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ 
chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento 
= '+ chr(39) + eDataFinal.text + chr(39) + ')');

 

Corrigida

 

 

dmDados.ibqConsultaContasAPagar.SQL.add 

(' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ 
chr(39) + eDataInicial.text + chr(39) + ') and (contas_a_pagar.datalancamento 
= '+ chr(39) + eDataFinal.text + chr(39) + ')');

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis 
Júlio Bender
Enviada em: terça-feira, 28 de novembro de 2006 09:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problemas no SQL

 

Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
se eu fizer essa pesquisa:
dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + 
chr(39) + ')');

no delphi ele esta dando esse erro:
[Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type

Se eu colocar esse:
dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' );
fica certo

não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.

outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/
Como eu faço para converter?

Alguém pode me ajudar?
desde já, agradeço.

Abraço

sds

Bender Desenvolvimento de Sistemas 
e Serviços Contábeis (Régis)
(51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br 

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

 



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

Re: [delphi-br] Problemas no SQL

[Andrei Luís]

Régis,

Você está esquecendo de fechar um dos parenteses.

Você não mencionou o banco que está usando, mas pelo comportamento da
data que você falou deve ser Firebird. O Firebird trata as datas que
forem passadas com o separador /, no formato mm/dd/. Se usar .
como separador, aí sim será utilizado o formato dd.mm.

Você tem duas alternativas para resolver isso:

- formatar utilizando as funções do Delphi, vide funções da unit
SysUtils (FormatDateTime, ...)

- parametrizar sua consulta:

dmDados.ibqConsultaContasAPagar.SQL.add (' select * from
contas_a_pagar where ((contas_a_pagar.datalancamento = :wdataInicial)
and (contas_a_pagar.datalancamento = :wdataFinal))');

dmDados.ibqConsultaContasAPagar.ParamByName('wdataInicial').asDate := date -30;
dmDados.ibqConsultaContasAPagar.ParamByName('wdataFinal').asDate := date;

Assim seu SQL fica mais legível.

[]
Andrei



Em 28/11/06, Régis Júlio Bender[EMAIL PROTECTED] escreveu:
 Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
 se eu fizer essa pesquisa:
 dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
 ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
 ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + 
 chr(39) + ')');

 no delphi ele esta dando esse erro:
 [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand 
 type


 Se eu colocar esse:
 dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
 ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
 ')' );
 fica certo

 não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
 datas.

 outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
 como mm/dd/
 Como eu faço para converter?


 Alguém pode me ajudar?
 desde já, agradeço.

 Abraço

 sds

 Bender Desenvolvimento de Sistemas
e  Serviços Contábeis (Régis)
(51) 98470699

 Novo Hamburgo/RS
 MSN: [EMAIL PROTECTED]

Re: [delphi-br] Problemas no SQL

[Eric D.]

Vc está comparando as duas datas como = pelo q vc passou. =/

Recomendo utilizar BETWEEN em comparação de intervalos. Seu select ficaria:

SELECT 
A.* 
FROM
CONTAS_A_PAGAR A
WHERE
A.DATALANCAMENTO BETWEEN 'SUA_DATA_INICIAL' AND 'SUA_DATA_FINAL'
ORDER BY 
A.DATALANCAMENTO

[]'s

Eric D. - Desenvolvimento e Soluções de Tecnologia 
Talk is cheap, show me the code... 
  - Original Message - 
  From: Marcelo Hoepfner (SI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, November 28, 2006 11:31 AM
  Subject: RES: [delphi-br] Problemas no SQL


  Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
  se eu fizer essa pesquisa:
  dmDados.ibqConsultaContasAPagar.SQL.add 

  (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ 
chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento 
= '+ chr(39) + eDataFinal.text + chr(39) + ')');

  Corrigida

  dmDados.ibqConsultaContasAPagar.SQL.add 

  (' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ 
chr(39) + eDataInicial.text + chr(39) + ') and (contas_a_pagar.datalancamento 
= '+ chr(39) + eDataFinal.text + chr(39) + ')');

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis 
Júlio Bender
  Enviada em: terça-feira, 28 de novembro de 2006 09:21
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Problemas no SQL

  Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
  se eu fizer essa pesquisa:
  dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + 
chr(39) + ')');

  no delphi ele esta dando esse erro:
  [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand 
type

  Se eu colocar esse:
  dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' );
  fica certo

  não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.

  outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/
  Como eu faço para converter?

  Alguém pode me ajudar?
  desde já, agradeço.

  Abraço

  sds

  Bender Desenvolvimento de Sistemas 
  e Serviços Contábeis (Régis)
  (51) 98470699

  Novo Hamburgo/RS
  MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br 

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

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



   

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

Re: [delphi-br] Problemas no SQL

[Régis Júlio Bender]

Obrigado Andrei, vou ver o que eu consigo fazer.

abraço

sds

Bender Desenvolvimento de Sistemas 
   e  Serviços Contábeis (Régis)
   (51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]


  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, November 28, 2006 4:56 PM
  Subject: Re: [delphi-br] Problemas no SQL


  Régis,

  Você está esquecendo de fechar um dos parenteses.

  Você não mencionou o banco que está usando, mas pelo comportamento da
  data que você falou deve ser Firebird. O Firebird trata as datas que
  forem passadas com o separador /, no formato mm/dd/. Se usar .
  como separador, aí sim será utilizado o formato dd.mm.

  Você tem duas alternativas para resolver isso:

  - formatar utilizando as funções do Delphi, vide funções da unit
  SysUtils (FormatDateTime, ...)

  - parametrizar sua consulta:

  dmDados.ibqConsultaContasAPagar.SQL.add (' select * from
  contas_a_pagar where ((contas_a_pagar.datalancamento = :wdataInicial)
  and (contas_a_pagar.datalancamento = :wdataFinal))');

  dmDados.ibqConsultaContasAPagar.ParamByName('wdataInicial').asDate := date 
-30;
  dmDados.ibqConsultaContasAPagar.ParamByName('wdataFinal').asDate := date;

  Assim seu SQL fica mais legível.

  []
  Andrei

  Em 28/11/06, Régis Júlio Bender[EMAIL PROTECTED] escreveu:
   Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
   se eu fizer essa pesquisa:
   dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar 
where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + 
chr(39) + ')' and '(contas_a_pagar.datalancamento = '+ chr(39) + 
eDataFinal.text + chr(39) + ')');
  
   no delphi ele esta dando esse erro:
   [Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand 
type
  
  
   Se eu colocar esse:
   dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar 
where ((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + 
chr(39) + ')' );
   fica certo
  
   não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.
  
   outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/
   Como eu faço para converter?
  
  
   Alguém pode me ajudar?
   desde já, agradeço.
  
   Abraço
  
   sds
  
   Bender Desenvolvimento de Sistemas
   e Serviços Contábeis (Régis)
   (51) 98470699
  
   Novo Hamburgo/RS
   MSN: [EMAIL PROTECTED]
  


   


--
  E-mail classificado pelo Identificador de Spam Inteligente.
  Para alterar a categoria classificada, visite o Terra Mail 



--
  Esta mensagem foi verificada pelo E-mail Protegido Terra.
  Scan engine: McAfee VirusScan / Atualizado em 27/11/2006 / Versão: 4.4.00/4905
  Proteja o seu e-mail Terra: http://mail.terra.com.br/ 


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

Res: [delphi-br] Problemas no SQL

[André de Araujo Garcia]

No caso DA data eu resolvi assim 
 
+QuotedStr(FormatDateTime('dd.mm.',aDataQueVoceQuer.Date))+
 
Abraços!
 
---
Atenciosamente,
André de Araujo Garcia - [DESENVOLVIMENTO]
PontoSOFT - Sistemas Comerciais Ltda
Tel. +55 67 3272 4039 - +55 67 8126 3660
msn: [EMAIL PROTECTED] / skype andrenainternet
---Mensagem original---
 
De: Ricardo Cesar Cardoso
Data: 28/11/2006 14:14:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Problemas no SQL
 
Boa tarde Régis!

Acho que com esta pequena alteração tudo vai funcionar:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text +
chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) + eDataFinal
text + chr(39) + ')');

Na verdade eu retirei as aspas simples do texto.

Outra dica é a seguinte. Existe uma função no Delphi que coloca
automaticamente aspas no texto pra vc então o comando acima poderia ficar
até um pouco mais legível se inserido assim:

dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar
Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) +
' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + 
)');

Quanto às datas não testei, mas li em algum lugar que não faz diferença pois
o banco consegue se orientar (como eu não sei...).

Abraço,
Ricardo.

- Mensagem original 
De: Régis Júlio Bender [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17
Assunto: [delphi-br] Problemas no SQL

Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:

se eu fizer essa pesquisa:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text +
chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) +
eDataFinal.text + chr(39) + ')');

no delphi ele esta dando esse erro:

[Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand
type

Se eu colocar esse:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text +
chr(39) + ')' );

fica certo

não estou conseguindo implementar o AND para fazer a pesquisa entre duas
datas.

outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa
como mm/dd/

Como eu faço para converter?

Alguém pode me ajudar?

desde já, agradeço.

Abraço

sds

Bender Desenvolvimento de Sistemas 

e Serviços Contábeis (Régis)

(51) 98470699

Novo Hamburgo/RS

MSN: [EMAIL PROTECTED] com.br

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

!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px

Re: [delphi-br] Problemas no SQL

[Régis Júlio Bender]

Boa tarde Ricardo, 
obrigado pela ajuda, mas eu tentei digitar a data 30/11/2006 e dá um erro no 
sql e se eu digitar 11/30/2006 ele funciona perfeitamente. 
Mas eu vou tentar essa dica que voc~e falou, qualquer coisa eu retorno. hehehe

abraço

sds

Bender Desenvolvimento de Sistemas 
   e  Serviços Contábeis (Régis)
   (51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]


  - Original Message - 
  From: Ricardo Cesar Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, November 28, 2006 3:38 PM
  Subject: Res: [delphi-br] Problemas no SQL


  Boa tarde Régis!

  Acho que com esta pequena alteração tudo vai funcionar:

  dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar 
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + 
chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) + 
eDataFinal.text + chr(39) + ')');

  Na verdade eu retirei as aspas simples do texto.

  Outra dica é a seguinte. Existe uma função no Delphi que coloca 
automaticamente aspas no texto pra vc então o comando acima poderia ficar até 
um pouco mais legível se inserido assim:

  dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar 
Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) + ' 
) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) + ')');

  Quanto às datas não testei, mas li em algum lugar que não faz diferença pois 
o banco consegue se orientar (como eu não sei...).

  Abraço,
  Ricardo.

  - Mensagem original 
  De: Régis Júlio Bender [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17
  Assunto: [delphi-br] Problemas no SQL

  Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:

  se eu fizer essa pesquisa:

  dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar 
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + 
chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) + 
eDataFinal.text + chr(39) + ')');

  no delphi ele esta dando esse erro:

  [Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand 
type

  Se eu colocar esse:

  dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar 
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text + 
chr(39) + ')' );

  fica certo

  não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.

  outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/

  Como eu faço para converter?

  Alguém pode me ajudar?

  desde já, agradeço.

  Abraço

  sds

  Bender Desenvolvimento de Sistemas 

  e Serviços Contábeis (Régis)

  (51) 98470699

  Novo Hamburgo/RS

  MSN: [EMAIL PROTECTED] com.br

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

  !--

  #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
  #ygrp-mlmsg table {font-size:inherit;font:100%;}
  #ygrp-mlmsg select, input, textarea {font:99% 
arial,helvetica,clean,sans-serif;}
  #ygrp-mlmsg pre, code {font:115% monospace;}
  #ygrp-mlmsg * {line-height:1.22em;}
  #ygrp-text{
  font-family:Georgia;
  }
  #ygrp-text p{
  margin:0 0 1em 0;
  }
  #ygrp-tpmsgs{
  font-family:Arial;
  clear:both;
  }
  #ygrp-vitnav{
  padding-top:10px;
  font-family:Verdana;
  font-size:77%;
  margin:0;
  }
  #ygrp-vitnav a{
  padding:0 1px;
  }
  #ygrp-actbar{
  clear:both;
  margin:25px 0;
  white-space:nowrap;
  color:#666;
  text-align:right;
  }
  #ygrp-actbar .left{
  float:left;
  white-space:nowrap;
  }
  .bld{font-weight:bold;}
  #ygrp-grft{
  font-family:Verdana;
  font-size:77%;
  padding:15px 0;
  }
  #ygrp-ft{
  font-family:verdana;
  font-size:77%;
  border-top:1px solid #666;
  padding:5px 0;
  }
  #ygrp-mlmsg #logo{
  padding-bottom:10px;
  }

  #ygrp-vital{
  background-color:#e0ecee;
  margin-bottom:20px;
  padding:2px 0 8px 8px;
  }
  #ygrp-vital #vithd{
  font-size:77%;
  font-family:Verdana;
  font-weight:bold;
  color:#333;
  text-transform:uppercase;
  }
  #ygrp-vital ul{
  padding:0;
  margin:2px 0;
  }
  #ygrp-vital ul li{
  list-style-type:none;
  clear:both;
  border:1px solid #e0ecee;
  }
  #ygrp-vital ul li .ct{
  font-weight:bold;
  color:#ff7900;
  float:right;
  width:2em;
  text-align:right;
  padding-right:.5em;
  }
  #ygrp-vital ul li .cat{
  font-weight:bold;
  }
  #ygrp-vital a {
  text-decoration:none;
  }

  #ygrp-vital a:hover{
  text-decoration:underline;
  }

  #ygrp-sponsor #hd{
  color:#999;
  font-size:77%;
  }
  #ygrp-sponsor #ov{
  padding:6px 13px;
  background-color:#e0ecee;
  margin-bottom:20px;
  }
  #ygrp-sponsor #ov ul{
  padding:0 0 0 8px;
  margin:0;
  }
  #ygrp-sponsor #ov li{
  list-style-type:square;
  padding:6px 0;
  font-size:77%;
  }
  #ygrp-sponsor #ov li a{
  text-decoration:none;
  font-size:130%;
  }
  #ygrp-sponsor #nc {
  background-color:#eee

RES: [delphi-br] Problemas no SQL

[mendoleonel]

vc pode usar tb o between...
 
 
Select * from tabela where data between 'mm/dd/' and 'mm/dd/'
 
Lembre que na pesquisa SQL é sempre no formato acima para evitar qualquer
incompatibilidade ou erro.
 
[]'s
 
 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Régis Júlio Bender
Enviada em: terça-feira, 28 de novembro de 2006 11:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problemas no SQL



Boa tarde Ricardo, 
obrigado pela ajuda, mas eu tentei digitar a data 30/11/2006 e dá um erro no
sql e se eu digitar 11/30/2006 ele funciona perfeitamente. 
Mas eu vou tentar essa dica que voc~e falou, qualquer coisa eu retorno.
hehehe

abraço

sds

Bender Desenvolvimento de Sistemas 
e Serviços Contábeis (Régis)
(51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br

- Original Message - 
From: Ricardo Cesar Cardoso 
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
Sent: Tuesday, November 28, 2006 3:38 PM
Subject: Res: [delphi-br] Problemas no SQL

Boa tarde Régis!

Acho que com esta pequena alteração tudo vai funcionar:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text +
chr(39) + ') and (contas_a_pagar. datalancamento = '+ chr(39) +
eDataFinal.text + chr(39) + ')');

Na verdade eu retirei as aspas simples do texto.

Outra dica é a seguinte. Existe uma função no Delphi que coloca
automaticamente aspas no texto pra vc então o comando acima poderia ficar
até um pouco mais legível se inserido assim:

dmDados.ibqConsultaContasAPagar.SQL.Add('Select * From Contas_A_Pagar
Where((Contas_A_Pagar.DataCancelamento = ' + QuotedStr(eDataInicial.Text) +
' ) And (Contas_A_Pagar.DataLancamento = ' + QuotedStr(eDataFinal.Text) +
')');

Quanto às datas não testei, mas li em algum lugar que não faz diferença pois
o banco consegue se orientar (como eu não sei...).

Abraço,
Ricardo.

- Mensagem original 
De: Régis Júlio Bender [EMAIL PROTECTED] mailto:regissk8%40terra.com.br
com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Enviadas: Terça-feira, 28 de Novembro de 2006 9:21:17
Assunto: [delphi-br] Problemas no SQL

Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:

se eu fizer essa pesquisa:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text +
chr(39) + ')' and '(contas_a_pagar. datalancamento = '+ chr(39) +
eDataFinal.text + chr(39) + ')');

no delphi ele esta dando esse erro:

[Error] uRelatContasAPagar. pas(40): Operator not applicable to this operand
type

Se eu colocar esse:

dmDados.ibqConsulta ContasAPagar. SQL.add (' select * from contas_a_pagar
where ((contas_a_pagar. datalancamento = '+ chr(39) + eDataInicial. text +
chr(39) + ')' );

fica certo

não estou conseguindo implementar o AND para fazer a pesquisa entre duas
datas.

outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa
como mm/dd/

Como eu faço para converter?

Alguém pode me ajudar?

desde já, agradeço.

Abraço

sds

Bender Desenvolvimento de Sistemas 

e Serviços Contábeis (Régis)

(51) 98470699

Novo Hamburgo/RS

MSN: [EMAIL PROTECTED] com.br

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

!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99%
arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin

[delphi-br] Problemas no Sql para Relatorio

[Charles Viana]

Pessoal, tenho um Sql, para gerar uma valor de saldo e estou utilizando o
FortesReport como gerador de Relatorio, mas no momento em que rodo o projeto
e executo o relatorio da a seguinte mensagem.

Fornecedores: Ocorreu um Erro durante a criação do Relatorio.
  Conversion Error from String 0.

Se alguem puder me ajudar ficarei muito agradecido, pois estou a um tempo
tentando mas não consigo.

O Sql é este e esta no AfterPrint de um Columm footer e estou usando o
FireBird como BD.


With DM.IBQuery2 do begin
Close;
SQL.Clear;
SQL.Add('SELECT T.CODFORNEC, (SELECT COALESCE(SUM(S.VALOR),0) FROM CXMOV S
WHERE');
SQL.Add('(S.CODFORNEC = T.CODFORNEC) AND (S.FLAG = ''E'') AND (S.DATA ' +
DateToStr(FrmTelaPrint.JvDateEdit1.Date)+ '))-');
SQL.Add('(SELECT COALESCE(SUM(S.VALOR),0) FROM CXMOV S WHERE (S.CODFORNEC =
T.CODFORNEC)');
SQL.Add('AND (S.FLAG = ''S'') AND (S.DATA  ' +
DateToStr(FrmTelaPrint.JvDateEdit1.Date) + ')) AS SALDO');
SQL.Add('FROM CXMOV T WHERE (T.CODFORNEC = ' +
FrmTelaPrint.Edit13CodFornec.Text + ')');
SQL.Add('AND (T.CODFORNEC =' + FrmTelaPrint.Edit14CodFornec.Text + ')');
SQL.Add('AND (T.DATA  ' + DateToStr(FrmTelaPrint.JvDateEdit1.Date) + ')');
SQL.Add('GROUP BY T.CODFORNEC');
Open;
END;

RLLabel18.Caption := DM.IBQuery2.Fields[0].AsVariant;

end;



-- 
 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]
 
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

 

RES: [delphi-br] Problemas com SQL

[Rodrigo Villaverde]

Vc tem q configurar o CaracterSet do seu Banco

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo MDE
Enviada em: segunda-feira, 29 de agosto de 2005 14:55
Para: delphi-br
Assunto: [delphi-br] Problemas com SQL

Message: The conversion of a char data type to a datetime data type resulted
in an Message:out-of-range datetime value.
The statement has been terminated.


boa tarde tenho um System Procedures onde ele pega uma data no formato
String, o problema é que a data está como '29/08/2005 12:00:00', o problema
é em meu computador tenho o sql server em inglês onde a data deveria ser
'08/29/2005 12:00:00', gostaria de saber como posso pegar está data no
histórico de procedure com datetime 38586.5 ou algo parecido, assim não
teria problemas com versão de SQL

Muito obrigado

Ricardo Lino Gonzalez

[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




 





-- 
 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

 

[delphi-br] Problemas com SQL

[Ricardo MDE]

Message: The conversion of a char data type to a datetime data type resulted in 
an Message:out-of-range datetime value.
The statement has been terminated.


boa tarde tenho um System Procedures onde ele pega uma data no formato String, 
o problema é que a data está como '29/08/2005 12:00:00', o problema é em meu 
computador tenho o sql server em inglês onde a data deveria ser '08/29/2005 
12:00:00', gostaria de saber como posso pegar está data no histórico de 
procedure com datetime 38586.5 ou algo parecido, assim não teria problemas com 
versão de SQL

Muito obrigado

Ricardo Lino Gonzalez

[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

* 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

 

[delphi-br] Problemas no SQL

[Charlles Ferdinand]

Pessoal, to com um problema e como não conheço muito do firebird to pedindo
ajuda de vcs.

é o seguinte, tenho uma verificação numa dbedit com sql, mas se dou um
cancelar para sair da tela ta dando a seguinte mensagem.

conversion error from string 


podem me dizer o que fazer.

Abraços

Charlles Ferdinand
Analista Contábil


[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

* 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

 

Re: [delphi-br] Problemas no SQL

[Giovani - GuiasDaki]

No mínimo essa saída tua está no evento OnExit do DbEdit.
Se você clica no botão Exit, ele vai tentar executar o que está no OnExit.
Eu não uso OnExit, e sim OnKeyPressed...

Veja se mudando isso para o erro.

[]s

Giovani
- Original Message -
From: Charlles Ferdinand [EMAIL PROTECTED]
To: Delphi-Br delphi-br@yahoogrupos.com.br
Sent: Friday, July 08, 2005 2:49 PM
Subject: [delphi-br] Problemas no SQL


Pessoal, to com um problema e como não conheço muito do firebird to pedindo
ajuda de vcs.

é o seguinte, tenho uma verificação numa dbedit com sql, mas se dou um
cancelar para sair da tela ta dando a seguinte mensagem.

conversion error from string 


podem me dizer o que fazer.

Abraços

Charlles Ferdinand
Analista Contábil


[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










--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.10/43 - Release Date: 06/07/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

 

Re: [delphi-br] Problemas com Sql no Delphi 7

[Eduardo Monteiro]

Utilize a função QuotedStr()
ex:

qry.sql.text:='select * from cidade where
uf='+QuotedStr('SP');

ou 

qry.sql.text:='select * from cidade where
uf='++'SP'+;



--- Denis Schmidt [EMAIL PROTECTED] wrote:
-
Estou desenvolvendo uma rotininha de Sql em delphi 7
para verificar se o
campo digitado já existe na tabela .db

 

O problema é no WHERE que no Delphi 4 vc colocava para
valores Strings aspas
duplas e no Delphi 7 não aceita o que eu faço?

 

SQL.Add('/* ALIAS: Fael */  SELECT Codaluno, Nomealuno
FROM Alunos.db
Alunos WHERE ( (Alunos.CodAluno =
'+DBEditCodAluno.Text+') OR
(Alunos.Nomealuno = '+DBeditNomeAluno.Text+') )
ORDER BY Alunos.Codaluno')

 

Tem alguma solução mais rápida e eficiente?

 



[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:  
  
Satilde;o Paulo  
 Rio de Janeiro   
CuritibaPorto
AlegreBelo Horizonte  
 Brasiacute;lia  
 

-
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 Termos do Serviço do Yahoo!.





Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/


-- 
 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

 

RES: [delphi-br] Problemas com SQL + DbLookupCombo

[Cícero]

Acho que  entendemos:
Tipo
cadastro
Nome endereco uf

Voce precisa trazer o nome do estado (uf) de sua tabela de UF OK?

Então:

Select a.*, b.* from cadastro a INNER JOIN tabelaUF b on a.codUf =
b.tabelaUF

cadastro=
CICERO
ENDEREÇO TAL
DF (minha uf)

Uf =
ac acre
al alagoas
DF distrito federal

então com aquela query voce terá
cicero
endereço tal
DF Distrito Federal

Foi isso que entendi

-Mensagem original-
De: Giovani - Terra [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 18 de março de 2005 10:11
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problemas com SQL + DbLookupCombo



Bom..
Eu to com outro problema agora :/

Eu estou tendo que mostrar um dado em um Form cujos campos são derivados de
uma tabela... Até aí tudo ok.
O problema é que tenho que colocar um DbLookupCombo para mostrar um dado que
está em outra tabela, linkado com o código da primeira...
Como eu posso fazer isso? Quer dizer, na hora de gravar vou ter que gravar
na segunda tabela, até aí ok, mas o foda é na hora de passar os registros,
como eu faço pra mostrar o registro que está na segunda tabela em relação à
primeira? Alguém entendeu? ahehehehh :)

Tipo.. no OnDataChange, eu posso fazer o que?
Já coloquei 2 queries, uma só pra gravar (RequestLive = True), e a outra só
de pesquisa... Só que quando passo os registros, não me mostra o resultado
:/

Alguém já teve alguma experiência nisso?

Agradecido

Giovani

[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










-- 
 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

 

[delphi-br] Problemas com Sql no Delphi 7

[Denis Schmidt]

Estou desenvolvendo uma rotininha de Sql em delphi 7 para verificar se o
campo digitado já existe na tabela .db

 

O problema é no WHERE que no Delphi 4 vc colocava para valores Strings aspas
duplas e no Delphi 7 não aceita o que eu faço?

 

SQL.Add('/* ALIAS: Fael */  SELECT Codaluno, Nomealuno FROM Alunos.db
Alunos WHERE ( (Alunos.CodAluno = '+DBEditCodAluno.Text+') OR
(Alunos.Nomealuno = '+DBeditNomeAluno.Text+') ) ORDER BY Alunos.Codaluno')

 

Tem alguma solução mais rápida e eficiente?

 



[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

* 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

 

RES: [delphi-br] Problemas com SQL

[Cícero]

Primeiro voce tera que ter o campo descrição na tabela de categoria

select a.*, b.* from principal A inner join categoria b on a.categoria =
b.Idcategoria e tal e tal.

traduzindo: pegue todos da primeira tabela e todos da segunda tabela usando
a descricao daqueles que está contida na segunda tabela.

quando for usar , pegue b.descricao



-Mensagem original-
De: Giovani - Terra [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 17 de março de 2005 21:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problemas com SQL



Galera.. é o seguinte :)

Eu tenho 2 tabelas, com os seguintes campos:

Categoria
Id_CategoriaDescriçãoCategoria_Pai

Dentro dessa tabela, pode a Categoria_Pai ser representada por um
Id_Categoria já cadastrado, por exemplo:

1AutomóveisNull
2Som  1(*A categoria pai é Automóveis*)

Ok.. Continuando..

Tenho uma outra tabela, que tem o Id_Categoria dentro dela, e não tem o
campo Descrição...

Id_Businessbla blabla Id_Categoriablablabla

Como eu faço um SQL pra juntar as duas??

O problema não é tanto juntar. Eu tenho que mostrar a Descrição em um Form,
cujos campos derivam de uma terceira tabela (tabela Business), que não tem o
campo Id_Categoria.. ou seja, tenho que mostrar em um DbLookupCombo a
descrição da categoria, e em um outro a descrição da categoria pai (se
existir)...
To ficando louco...
Esse DbLookupCombo não vai gravar na tabela Business, e sim na tabela
Business_Cat, que é a segunda que eu coloquei...

Coisa meio doida, né?

Alguém tem idéia de como eu poderia fazer pra preencher esse DbLookupCombo?

Obrigado

Giovani
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/3/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










-- 
 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

 

Re: [delphi-br] Problemas com SQL

[Giovani - Terra]

Obrigado Cícero :)

Vou dar uma olhada agora mesmo :P

[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

* 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

 

[delphi-br] Problemas com SQL + DbLookupCombo

[Giovani - Terra]

Bom..
Eu to com outro problema agora :/

Eu estou tendo que mostrar um dado em um Form cujos campos são derivados de uma 
tabela... Até aí tudo ok.
O problema é que tenho que colocar um DbLookupCombo para mostrar um dado que 
está em outra tabela, linkado com o código da primeira...
Como eu posso fazer isso? Quer dizer, na hora de gravar vou ter que gravar na 
segunda tabela, até aí ok, mas o foda é na hora de passar os registros, como eu 
faço pra mostrar o registro que está na segunda tabela em relação à primeira? 
Alguém entendeu? ahehehehh :)

Tipo.. no OnDataChange, eu posso fazer o que?
Já coloquei 2 queries, uma só pra gravar (RequestLive = True), e a outra só de 
pesquisa... Só que quando passo os registros, não me mostra o resultado :/

Alguém já teve alguma experiência nisso?

Agradecido

Giovani

[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

* 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

 

[delphi-br] Problemas com SQL

[Giovani - Terra]

Galera.. é o seguinte :)

Eu tenho 2 tabelas, com os seguintes campos:

Categoria
Id_CategoriaDescriçãoCategoria_Pai

Dentro dessa tabela, pode a Categoria_Pai ser representada por um Id_Categoria 
já cadastrado, por exemplo:

1AutomóveisNull
2Som  1(*A categoria pai é Automóveis*)

Ok.. Continuando..

Tenho uma outra tabela, que tem o Id_Categoria dentro dela, e não tem o campo 
Descrição...

Id_Businessbla blabla Id_Categoriablablabla

Como eu faço um SQL pra juntar as duas??

O problema não é tanto juntar. Eu tenho que mostrar a Descrição em um Form, 
cujos campos derivam de uma terceira tabela (tabela Business), que não tem o 
campo Id_Categoria.. ou seja, tenho que mostrar em um DbLookupCombo a descrição 
da categoria, e em um outro a descrição da categoria pai (se existir)...
To ficando louco...
Esse DbLookupCombo não vai gravar na tabela Business, e sim na tabela 
Business_Cat, que é a segunda que eu coloquei...

Coisa meio doida, né?

Alguém tem idéia de como eu poderia fazer pra preencher esse DbLookupCombo?

Obrigado

Giovani
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/3/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

* 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