ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Utilizando a data de um dataset em um update

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Sr_Bohemia
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 6 de Dezembro de 2006
Mensagens: 121

MensagemEnviada: Qua Jun 25, 2014 12:44 pm    Assunto: Utilizando a data de um dataset em um update Responder com Citação

Prezados colegas,

Estou querendo copiar a data de um registro no Banco01 para o Banco02.

No DataSet do Banco01:
Código:
Qry_banco01.FieldByName('data01').Value // "Conteúdo: 2014-05-21 17:10:06.000"




No DataSet do Update do Banco02:
Código:
Update_Banco02.SQL.Add('data = ' // como eu coloco essa data???


Estou com esse problema de Syntax.

Utilizo o banco SQL Server 2008.
Os 2 campos de data estão no mesmo formato.
_________________
------------------------------------
RAPHAEL DANTAS
Técnico de Monitoramento de Sistema
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
Sr_Bohemia
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 6 de Dezembro de 2006
Mensagens: 121

MensagemEnviada: Qua Jun 25, 2014 2:08 pm    Assunto: Responder com Citação

Ja tentei....

Código:
Update_Banco02.SQL.Add('datat02 = ' + DateToStr (Qry_Consulta_Banco01.FieldByName('data01').AsDateTime) + ',');


Mas está levando a data: "1900-01-01 00:00:00.000"
_________________
------------------------------------
RAPHAEL DANTAS
Técnico de Monitoramento de Sistema
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
itasouza
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 30 de Abril de 2008
Mensagens: 232

MensagemEnviada: Qua Jun 25, 2014 2:54 pm    Assunto: Responder com Citação

Boa tarde
Faz o Debug , pega o sql gerado, leva para o sql serve é faz um teste e veja o que esta errado, provavelmente esta faltando aspas simples.
Veja ai!!

Exemplo:
Update_Banco02.Close;
Update_Banco02.SQL.CommaText :='';
Update_Banco02.SQL.CommaText := ' update tabela set datat02 = ' + QuotedStr(DateToStr(Qry_Consulta_Banco01.FieldByName('data01').AsDateTime));
Update_Banco02.ExecSQL;

OBS: vai atualiza todos os campos da tabela, cuidado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Sr_Bohemia
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 6 de Dezembro de 2006
Mensagens: 121

MensagemEnviada: Qua Jun 25, 2014 3:17 pm    Assunto: Responder com Citação

Código:
The conversion of a vachar data type to a datetime data type resulted in an out-of-range value


Realmente nao entendo... são 2 campos do mesmo tipo e formato.
_________________
------------------------------------
RAPHAEL DANTAS
Técnico de Monitoramento de Sistema
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qua Jun 25, 2014 4:37 pm    Assunto: Responder com Citação

Boa tarde,

O problema deve estar no formato da data que está sendo esperado pelo banco de dados.
Acho que é melhor utilizar parâmetro na instrução SQL para não deixar um formato fixo na aplicação:

Código:
Update_Banco02.SQL.Add('data = :data');
// ...
Update_Banco02.ParamByName('data').AsDateTime := Qry_Consulta_Banco01.FieldByName('data01').AsDateTime;


Espero que ajude.

_________________
Assinatura: http://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial-apartamento
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB