DateTimePicker

rcb · 3 de abril de 2010

Estou tentando gravar data no meu banco de dados que é SQL Server, o campo no banco de dados é datetime.

O código que estou gravando é:

  Query1.SQL.Add(' INSERT INTO Atendimento VALUES ');
  Query1.SQL.Add(' ('+codigo.Text+', "'+nome.Text+'", [COLOR="Red"][B]"'+DateTimePicker1.format+'"[/B][/COLOR], "'+sistema.Text+'", "'+atendimento.Text+'")');
  Query1.EXECSQL;
  Query1.SQL.Clear;

Porém ele grava da seguinte maneira no banco de dados 01/01/1900, porque isso ocorre?

Qual maneira correta de gravar?

al.duarte · 13 de abril de 2010

Fala rcb, acho que o DateTimePicker vai usar o formato do seu so, no caso deve ser windows brasil e este é o nosso formato, usa a função formatdatetime('dd/mm/yyyy hh:nn:ss',time) para trabalhar com datas e horas que você precisar onde:

d - retorna o dia (na forma 6), dd - retorna o dia (na forma 06), ddd - retorna o dia da semana Qui, dddd - retorna o dia da semana. Quinta Feira, etc.., m é o mês, y é o ano, h é a hora, n é o minuto,

s é o segundo. No SQL se não me engano o formato tem que ser 2010-04-13, então você usaria formatdatetime('yyyy-mm-dd',time) e time é qualquer coisa que te dê uma medida de data/tempo, por exemplo, o datatimepicker... Abraços e até mais...

LNW · 17 de outubro de 2013

Fabrícia,

Você chegou a formatar a data como sugerido pelo usuário acima?

Se você tivesse como postar o comando SQL usado talvez pudesse ajudar.

[]'s

LNW

LNW · 18 de outubro de 2013

Olá Fabrícia,

Aqui:

',Convert(datetime,'''+EdDtInicial.Format+''','')'+
',Convert(datetime,'''+EdDtFinal.Format+''',''))' ;

Creio que EdDtInicial/EdDtFinal seja um DateTimePicker, certo?

Bom, você provavelmente não vai precisar da função Convert(), pois você já vai fornecer a string da data num formato padrão (ISO). Então, teste o seguinte:

begin

  dInicial := FormatDateTime('yyyymmdd', EdDtInicial.Date);
  fFinal := FormatDateTime('yyyymmdd', EdDtFinal.Date);

  DMSystem.QCadUsuario.SQL.Text :=
           'INSERT INTO [System].[dbo].[CadUsuario]' +
           '([RegUser]     ' +
           ',[NomeUser]    ' +
           ',[PerfilUser]  ' +
           ',[SenhaUser]   ' +
           ',[EfeDInicial] ' +
           ',[EfeDFinal])  ' +
     'VALUES               ' +
           '('+EdRegistro.Text+
           ','''+EdNome.Text+''''  +
           ','''+EdPerfil.Text+''''  +
           ','+EdSenha.Text+
           ','''+[B]dInicial[/B]+'''  +
           ','''+[B]fFinal[/B]+''')' ;

           DMSystem.QCadUsuario.ExecSQL;
           DMSystem.QCadUsuario.SQL.Text := 'select * from CadUsuario order by RegUser';
           DMSystem.QCadUsuario.Active := true;

           FCadUsuario.Close;

end;

Declare dInicial e fFinal como String.

Talvez precise fazer algum ajuste com os apóstrofos.. realmente fiquei na dúvida ali. Uma boa alternativa a esse monte de concatenação seria o uso de Parameters. Mas teste primeiro dessa forma para ver se funciona.

Eu fiz uma alternativa (não testado no SQL), caso a minha edição ali dê algum problema:

DMSystem.QCadUsuario.SQL.Text :=
'INSERT INTO [System].[dbo].[CadUsuario]' +
'([RegUser], [NomeUser], [PerfilUser], [SenhaUser], [EfeDInicial], [EfeDFinal])' +
'VALUES ('''+EdRegistro.Text+''', '''+EdNome.Text+''', '''+EdPerfil.Text+'''' + ', '''+EdSenha.Text+''', '''+dInicial+''', '''+dFinal+''')';

[]'s

LNW