Re: [delphi-br] Pesquisa Utilizando Like
Experimenta deixar a % fora do parametro
algo assim: where razao_social like :paramentro+'%';
- Original Message -
From: Higor
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, July 01, 2006 10:52 PM
Subject: Re: [delphi-br] Pesquisa Utilizando Like
Cleiton eu n faço a consulta com parâmetr não mas mesmo assim vou mandar a
maneira que faço p ver se ajuda!
with Nome_Da_Qrery do
begin
Close;
SQL.Clear;
SQL.Add( 'select cod_fornec, razao_social from fornecedor' );
SQL.Add( 'where razao_social like ''' + Edit1.Text + '%''' );
Open;
end;
Essa é a maneira que faço veja ae se pode ajudar!!
Flw
Em 30/06/06, Cleiton [EMAIL PROTECTED] escreveu:
Olá pessoal... estou com um pequeno problema e acredito que alguém da
lista poderá me ajudar. O que acontece é o seguginte:
Estou fazendo uma pesquisa no banco da seguinte forma:
select cod_fornec, razao_social
from fornecedor
where razao_social like 'A%';
Até aí, tudo bem, sem problemas.
O problema vem ao colocar essa instrução dentro do sistema, utilizando
parâmetro.
Na query estou fazendo da seguinte forma:
select cod_fornec, razao_social
from fornecedor
where razao_social like ':paramentro%';
Aí coloquei uma paramentro na query chamado parametro e faço a chamada
da query assim:
query.ParamByName('parametro').AsString:=(Edit.Text);
query.Active:=true;
Só que simplesmente não acontece nada. É dessa forma mesmo que se faz?
Onde posso estar errando?
Tambem tentei assim:
query.param[0].AsString:=(Edit.text) mas tambem nao funciona
Um grande abraço
Cleiton
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.9.8/380 - Release Date: 30/06/2006
[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]
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] I N T E R B A S E - Campo data Nulo ??????
Experimente
qy_clientes.parambyname('p_data').clear.
Abs
- Original Message -
From: Alcistemas Informática
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, November 15, 2005 10:39 AM
Subject: [delphi-br] I N T E R B A S E - Campo data Nulo ??
Como gravar um campo nulo em banco de dados firebird ?
ex: qy_clientes.parambyname('p_data').value := ???
___
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
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!.
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.362 / Virus Database: 267.13.0/167 - Release Date: 11/11/05
[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]
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] Ninguem se atreve - saber qual MenuItem foi clicado dinamicamente?
Na rotina que voce cria os menus, coloque mais está linha. Assim cada menu que for criado, chamara a procedure MenuClick quando for clicado Menu1.OnClick := MenuClick; procedure TForm1.MenuClick(Sender: TObject); begin Sua rotina de menu. end; Abraço - Original Message - From: klausbento To: delphi-br@yahoogrupos.com.br Sent: Friday, August 05, 2005 9:15 AM Subject: [delphi-br] Ninguem se atreve - saber qual MenuItem foi clicado dinamicamente? --- Em delphi-br@yahoogrupos.com.br, klausbento [EMAIL PROTECTED] escreveu Pessoal, Tenho uma rotina que monta um Menu automaticamente com base numa tabela. To com dificuldade pra saber qual Menu ou Item foi clicado... Alguem poderia me ajudar? Qdo criei dinamicamente o Menu, na Propridade Name, coloquei o Nome do Form procedure TForm1.ExecutaClick(Sender: TObject); Var NewForm : TForm; begin Application.CreateForm(TComponentClass(GetClass (mnuPrincipal.Items.Name)), NewForm); If NewForm Nil Then NewForm.Show; 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] ou [EMAIL PROTECTED] -- 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] 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] Formatar valor em DBGrid tempo exe cução
Experimente assim: TFloatField(Query.Fields.Fields[n]).DisplayFormat := '###,###.00'; onde: n é a posição da coluna no select. - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Monday, June 20, 2005 12:07 PM Subject: Re: [delphi-br] Formatar valor em DBGrid tempo execução Como assim? Poderia dar um exemplo de como usar o TFloatField ?? Eolos (Yahoo) [EMAIL PROTECTED] escreveu: Experimente o TFloatField. - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Sunday, June 19, 2005 6:14 PM Subject: Re: [delphi-br] Formatar valor em DBGrid tempo execução Ninguém sabe como resolver este problema ? Ricardo [EMAIL PROTECTED] escreveu:Caros colegas, Preciso formatar valores monetários no dbgrid em tempo de execução, pois eu coloco os campos em tempo de execução (exemplo abaixo): Columns.Add.FieldName:='total_item'; Columns[0].Title.caption:='TOTAL'; Uso delphi com FB como banco de dados. Desde de já agradeço ! -- 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 Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [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 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] - 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!. Abraços, Ricardo Cabral __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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 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] 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] Formatar valor em DBGrid tempo execução
Experimente o TFloatField. - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Sunday, June 19, 2005 6:14 PM Subject: Re: [delphi-br] Formatar valor em DBGrid tempo execuo Ningum sabe como resolver este problema ? Ricardo [EMAIL PROTECTED] escreveu:Caros colegas, Preciso formatar valores monetrios no dbgrid em tempo de execuo, pois eu coloco os campos em tempo de execuo (exemplo abaixo): Columns.Add.FieldName:='total_item'; Columns[0].Title.caption:='TOTAL'; Uso delphi com FB como banco de dados. Desde de j agradeo ! -- 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 Termos do Servio do Yahoo!. - Yahoo! Acesso Grtis: Internet rpida e grtis. Instale o discador agora! [As partes desta mensagem que no 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 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 Servio do Yahoo!. [As partes desta mensagem que no 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] Erro numa query
Quando fizer um insert, delete ou updade, deve usar execsql, e não open.
Abraço
- Original Message -
From: maraujo_df
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, June 05, 2005 10:31 PM
Subject: [delphi-br] Erro numa query
Olá pessoal!
Estou com um probleminha no código que segue no final deste e-mail.
Criei uma procedure TrataSenha:
public
procedure TrataSenha;
E faço a chamada:
TrataSenha;
Quando executo aparece a mensagem quando vai fazer um insert na
tabela Aluno:
Project Estagio.exe raised exception class EDatabaseError with
message 'qryAluno: CommandText does not return a result set'.
Os parâmetros foram criados no TADOQuery. Mesmo após ter ocorrido a
mensagem de erro, quando vou verificar o insert da query foi
realizado.
Alguém poderia me dizer onde estou errando? Utilizo o Delphi 2005 e
o MS SQL 2000.
O código segue abaixo:
procedure TformLogin.TrataSenha;
begin
try
{Verifica se o aluno está cadastrado no DBESTAGIO}
dm.qryAluno.Close;
dm.qryAluno.SQL.Clear;
dm.qryAluno.SQL.Add('Select Aluno_Senha from Aluno where
Aluno_Matricula = :Matricula');
dm.qryAluno.Parameters[0].Value := intMatricula;
dm.qryAluno.Open;
strSenha := dm.qryAluno['Aluno_Senha'];
{Verifica se a Senha do Aluno está correta}
if formLogin.edtSenha.Text strSenha then
begin
ShowMessage( 'Você digitou a Senha ERRADA! Tente
novamente!' );
formLogin.edtSenha.SetFocus;
formLogin.edtSenha.SelectAll;
end
else
ShowMessage( 'Tudo OK' );
except
{Novo aluno no DBESTAGIO. A Senha será o mesmo número da
Matrícula.}
strSenha := IntToStr( intMatricula );
{Inlusão do aluno no DBESTAGIO}
try
dm.qryAluno.Close;
dm.qryAluno.SQL.Clear;
dm.qryAluno.SQL.Add('Insert into Aluno(Aluno_Matricula,
Aluno_Nome, Aluno_Senha)');
dm.qryAluno.SQL.Add('values(:Matricula, :Nome, :Senha)');
dm.qryAluno.Parameters[0].Value := intMatricula;
dm.qryAluno.Parameters[1].Value := strAluno;
dm.qryAluno.Parameters[2].Value := strSenha;
dm.qryAluno.Open;
except
ShowMessage( 'Erro ao cadastrar aluno no DBESTAGIO. Chame o
Professor!' );
end;
end;
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] ou [EMAIL PROTECTED]
--
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]
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] Porta Serial RS232
Pelo que me lembra elo faz o dois tipos. Dependendo da pinagem q vc usar ela pode ser uma ou outra. Abraço - Original Message - From: Paulo Geloramo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 27, 2005 8:43 PM Subject: [delphi-br] Porta Serial RS232 A porta serial do micro RS232 faz a comunição síncrona ou assíncrona, ou somente assíncrona? []s Paulo Geloramo -- 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] -- 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] Fw: Atualização de dados no Interbase
1) De uma olhada neste link, http://www.eolos.com.br/index.php?l=DicasDelphicategoria=04, veja se te ajuda. 2) Voce pode usar o ApplyUpdates, que está no IBdatabase e associa-lo ao ao evento AfterInsert da sua Query , isso deve resolver o problema de atualização Abraço Marcos - Original Message - From: Fernanda Forbici To: delphi-br@yahoogrupos.com.br Sent: Monday, April 18, 2005 4:55 PM Subject: [delphi-br] Fw: Atualização de dados no Interbase Pessoal, Estou com 2 problemas, tenho um banco de dados no interbase e: 1) Não consegui fazer o campo autoincrement. Já criei o generator e a trigger, mas se coloco um DBText (pois não quero que o usuário digite o código e sim que o banco atribua este código) dá erro porque o ID é null. 2) Se incluo ou excluo um registro da tabela através da aplicação, esse registro só é excluído ou incluído no banco depois que encerro a aplicação, e não quando dou um post. para conectar com o banco utilizo o IBdatabase, e para as tabelas o TIBTable. tb tenho um componente TIBTransaction onde coloquei as propriedades AutoStopAction = saCommitRetaining e DefaultAction= TACommitRetaining. Mas não adiantou Tenho que setar alguma propriedade de algum desses componentes?? Aguardo sugestões Fernanda Forbici -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.16 - Release Date: 18/04/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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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] 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] Pegar Ano Em Data
Porque não usa o FormatDateTime , ja que vc vai gravar uma string.
Abraço
- Original Message -
From: Rodrigo Izquierdo da Motta
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 24, 2005 4:01 PM
Subject: [delphi-br] Pegar Ano Em Data
Ola Lista!!!
Estou querendo pegar o Ano de Uma Data, estou usando o
YearOf, mas ele retorna um Word, entaum usei uma
funcao chamada WordToStr, pra passar de Word pra
String, e assim gravar no meu BD, mas isso retorna um
valor estranho, parece que ele naum conseque fazer a
conversao, ou coisa assim, o camando ficou assim:
DM_Principal.qryFeriado.FieldByName ('ANO').AsString
:= WordToStr (YearOf (StrToDate (edtData.Text)));
Alguem tem uma ideia de como fazer isso?
Obrigado a todos!
P.S.: Pegar Como Integer Tambem serve!
Rodrigo Izquierdo da Motta.
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
--
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]
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] Comunicação Serial
Dê uma olhada neste site. http://www.ararat.cz/synapse/ Existe um outro componente chamado Comport, mas nao lembro o site. Abraço - Original Message - From: pablomadias To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 23, 2005 2:12 PM Subject: [delphi-br] Comunicação Serial Boa tarde, pessoal! Estou precisando fazer um programa em Delphi que responda a um estímulo via porta serial (é um único botão, ligado á porta) alguem sabe me explicar e teria algum equema do ckt que preciso fazer para ligar este botão na porta serial? Qual função que utilizo no delphi para ler a porta? Como é um unico botao, seria possivel fazer essa comunicação apenas fechando um curto entre dois pinos da porta serial? Obrigado a todos. -- 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: PUBLICIDADE -- 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] 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] Erro DLL qtintf70.dll
Vc tem que enviar esta DLL para os seus clientes e coloca-la no sistem do windows. Abraço - Original Message - From: Futura System Informática To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 4:04 PM Subject: [delphi-br] Erro DLL qtintf70.dll Pessoal atualizei a Versão do delphi 6 para 7 e compilei meu sistema e disponibilizei para meus clientes, mas esta aparecendo um erro dizendo que falta uma DLL qtintf70.dll, e parou todo mundo aguem sabe o que fazer, obrigado. Sérgio Toshio Kawahara [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: PUBLICIDADE -- 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] 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] Select
Porque vc nao para o programa antes de entrar nesta linha onde da o erro, e vê
qual a string que ele esta
gerando. pq mesmo nao existindo nenhum registro não deveria dar erro, ou então
vc não esta
testando quando o resultado da consulta é vazio.
Abraço
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, February 28, 2005 1:23 PM
Subject: RES: [delphi-br] Select
Mas ela est[a nesse formato, so que da problema de sintaxe!!!
De: Daniel Pohren [mailto:[EMAIL PROTECTED]
Enviada: seg 28/2/2005 10:09
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Select
Cara, datai e dataf estão no formato americano? (mm/dd/yy) Para
alimentar uma data diretamente dentro do texto do SQL ela deve estar
neste formato
On Mon, 28 Feb 2005 09:18:42 -0300, Giovani - Terra
[EMAIL PROTECTED] wrote:
Vc já debugou o programa pra ver quando dá esse erro?
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, February 27, 2005 6:40 PM
Subject: [delphi-br] Select
?
Pessoal;
Estou com um programa para cadastramento de clientes onde dou uma opcao
para ele imprimir clientes cadastrados para qualquer perÃodo.
Os comandos estão certos e e assim:
Datamodule1.Query1.SQL.Add('Select * from Tabela_cotacao where Dt_Entrada
Between' + Char(39)
+ Datai.text + Char(39) + 'and' + Char(39) + Dataf.text + Char (39) );
// Pega a relacao de clientes entre Datai (data inicio) e dataf (data fim)
So que para uma data que não possui cadastramento de clientes da o
seguinte erro:
---
Debugger Exception Notification
---
Project SCCM.exe raised exception class EDBEngineError with message 'Type
mismatch in expression.'. Process stopped. Use Step or Run to continue.
---
OK Help
---
Alguem sabe como posso fazer um tratamento de erro para este caso?
[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:
--
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!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.0 - Release Date: 25/2/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/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
--
Daniel Pohren
Naphta Informática
--
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:
http://br.rd.yahoo.com/SIG=12agkm64j/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109682627/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/
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] mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! http://br.yahoo.com/info/utos.html .
[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
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] 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] FTP
dê uma olhada neste site http://www.freeware.com.br/ - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Friday, January 14, 2005 12:02 PM Subject: RES: [delphi-br] FTP Eu to procurando é um servidor (host) gratúito de FTP e não um software que faz sua maquina virar um servidor de FTP []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Alan [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 14 de janeiro de 2005 09:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] FTP achei uma servidro muito boa é WarDaemonManager, acabei de achar..to gostando rpa teste e´boa - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, January 14, 2005 10:39 AM Subject: RES: [delphi-br] FTP Tem uma data que eu to procurando isto também. Mas até agora não consgui nada :-/ []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 ICQ: 6057450 MSN: [EMAIL PROTECTED] -Mensagem original- De: Alan [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 14 de janeiro de 2005 08:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] FTP alguem sabe algum servidor de FTP free pra eu fazer alguns testes []'s -- 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 [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 [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: PUBLICIDADE -- 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] 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] Incluindo Data Automática
Experimente assim:
adocadcargo.FieldByName('dt_cad').AsDateTime := Now;
- Original Message -
From: Rodrigo Brito
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 10:51 AM
Subject: [delphi-br] Incluindo Data Automática
Bom Dia
Gostaria da ajuda de vcs, pois não estou conseguindo incluir uma data
automática
Eu uso o delphi 6 e sql server
no sql criei uma tabela de cargo que tem um campo para gravar a Data do
Cadastro (dt_cad) e está como DateTime
Na aplicação ao mandar incluir coloco assim
adocadcargo.FieldByName('dt_cad').value := datetime(now) assim
não funciona
mas se colocar assim funciona
adocadcargo.FieldByName('dt_cad').value.datetimetostr(now);
não tenho como gravar sem transformar para string?
att,
Rodrigo Brito
--
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]
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
