(Resolvido) Salvar campo Data no banco de dados

[nsouza]

Colegas

estou com dificuldades em salvar o registro no campo data.

Meu banco de dados em SQL-SERVER tem o campo data de nascimento no formato

DateTime, o único formato disponível. Já tentei de todas as formas salvar uma data mas sempre da a mensagem que

o formato " / / " não é valido, Já tentei várias forma pra solucionar problema habilitei e desabilitei a opção carecteres literais no

mask edit.

Criei a linha de comando:

if mkeNascimento.Text <> ' / / ' then

mkeNascimento.Text := F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsString

Mas foi em vão.

aguem pode me ajudar?

[Jhonas]

estou com dificuldades em salvar o registro no campo data.

Meu banco de dados em SQL-SERVER tem o campo data de nascimento no formato

DateTime, o único formato disponível. Já tentei de todas as formas salvar uma data mas sempre da a mensagem que

o formato " / / " não é valido

Veja estes endereços

https://www.scriptbrasil.com.br/forum/lofiv...hp/t135643.html

http://forum.webly.com.br/index.php?showtopic=10780

http://www.guj.com.br/posts/list/76202.java

abraço

[nsouza]

Caro colega,

obrigado pela resposta. Gostaria de dizer que estou a pouco tempo estudando e programando em Delphi

o material sugerido foi de muita ajuda, mas ainda não consigo converter toda essa teoria em pratica.

já li vários manuais enormes como mysql, vb.net e o proprio delphi, e muito conhecimento mas diante de

tanto conteúdo e pouca prática não consigo assimilar com tanta rapidez. Será que seria possivel

me enviar o código? Para algunas situação mais simples eu consigo resolver.

Grato pela compreensão.

Nlsouza

[Jhonas]

Já tentei de todas as formas salvar uma data mas sempre da a mensagem que

o formato " / / " não é valido

[/quoe]

normalmente enviamos a data para o SQL no formato AAAA/MM/DD pois neste formato grava-se a data em qualquer banco de dados ANSI.

Utilizando a função CONVERT pode-se retornar o conteúdo do campo data das seguintes formas:

CONVERT(VARCHAR(12),GETDATE(),103) AS '103',

OBS: No segundo link que te passei está cheio de exmplos

if mkeNascimento.Text <> ' / / ' then
mkeNascimento.Text := F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsString

Como voce não coloca o erro como ele aparece na sua tela, é dificil saber se o erro está no if ou no campo dtnascimento voce pode tentar assim

if not mkeNascimento.Text is null then
mkeNascimento.Text := CONVERT(VARCHAR(12),F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsDate,103) AS 103

abraço

[ZueRa]

Olá amigo, bom dia.

Isso:

F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsString

não pode ser assim.

Tente assim:

F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsDateTime.

[nsouza]

Olá amigo, bom dia.

Isso:

F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsString

não pode ser assim.

Tente assim:

F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsDateTime.

Colegas,

Estou conseguindo salvar as datas normalmente, meu problema agora é o contrario

tenho 3 campos datas, dois foi preenchido o campo que estava vazio deu a seguinte mensagem:

"Incorret data value: ' / / ' for collum 'dtAdmissao at row.1, ou seja preciso altera e salvar os dados

mesmo que o campo data fique vazio.

Desde já obrigado

[Douglas Soares]

Seguinte amigo, você está usando Edits?, se estiver tente usar DBEdits que ficam na paleta Data Controls, vai facilitar o seu trabalho...

Abraços...

[Jhonas]

Estou conseguindo salvar as datas normalmente, meu problema agora é o contrario

tenho 3 campos datas, dois foi preenchido o campo que estava vazio deu a seguinte mensagem:

"Incorret data value: ' / / ' for collum 'dtAdmissao at row.1, ou seja preciso altera e salvar os dados

mesmo que o campo data fique vazio.

Faça um teste antes de salvar os dados... só atribua o valor da data ao campo se ele não estiver vazio

exemplo:

if DateEdit1.Text <> ('  /  /    ') then
         CDS_CadastrodtAdmissao.Value := DateEdit1.Date;

abraço

[nsouza]

Estou conseguindo salvar as datas normalmente, meu problema agora é o contrario

tenho 3 campos datas, dois foi preenchido o campo que estava vazio deu a seguinte mensagem:

"Incorret data value: ' / / ' for collum 'dtAdmissao at row.1, ou seja preciso altera e salvar os dados

mesmo que o campo data fique vazio.

Faça um teste antes de salvar os dados... só atribua o valor da data ao campo se ele não estiver vazio

exemplo:

if DateEdit1.Text <> ('  /  /    ') then
         CDS_CadastrodtAdmissao.Value := DateEdit1.Date;

abraço

Deu certo, conforme o colega Jhonas instruiu.

Obrigado!