Ir para conteúdo
Fórum Script Brasil
  • 0

Problema com data


Pedro Dias

Pergunta

Boa tarde.

É o seguinte, tenho que fazer um insert no banco, no cado estou utilizando MySql.

E ta assim no momento:

var

data : TDate;

codFaz : String;

begin

codFaz := VarToStr(DBcbFazenda.KeyValue);

With dtChuvas do

begin

data := StrToDate(MaskEditIni.Text);

SQL.Add('INSERT INTO chuva (ChData, ChMilim, ChFazCod)');

SQL.Add('VALUES (:dat, :milim, :fazen)');

ParamByName('dat').AsDate := data;

ParamByName('milim').AsInteger := StrToInt(EditMili.Text);

ParamByName('fazen').AsInteger := StrToInt(codFaz);

ExecSQL;

end;

Mas retorna um erro dizendo que os campo datas são invalidos.

E não consigo achar a solução.

Se puder me ajudar fico grato.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Boa Tarde! :D

Supondo que o componente dtChuvas seja um SQLQuery, insira sua SQL diretamente nele e em seguida aparecerão os Params do lado esquerdo no Object TreeView! Vá nos 3 parametros e coloque em DataType: ftInteger para o parametro milim e fazen, e no parametro dat coloque ftDate, após isso coloque em ParamType: ptInput para os 3 parametros. Agora basta limpar o SQL em sua rotina antes de adicionar sua query.

var

data : TDate;

codFaz : String;

begin

codFaz := VarToStr(DBcbFazenda.KeyValue);

With dtChuvas do

begin

data := StrToDate(MaskEditIni.Text);

SQL.clear; //INSIRA ISSO

SQL.Add('INSERT INTO chuva (ChData, ChMilim, ChFazCod)');

SQL.Add('VALUES (:dat, :milim, :fazen)');

ParamByName('dat').AsDate := data;

ParamByName('milim').AsInteger := StrToInt(EditMili.Text);

ParamByName('fazen').AsInteger := StrToInt(codFaz);

ExecSQL;

end;

Tente agora e deve funcionar :B

Editado por Douglas Soares
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...