Problema com data

[Pedro Dias]

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.

[Douglas Soares]

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

Edited March 22, 2012 by Douglas Soares

[Pedro Dias]

Cara... Eu mosqueeei aqui hein!

AHAHAHHAHA'

Falta de atenção =/

Mas fazer o que né, acontece!

Valeu pela luz ae

Abrax

RESOLVIDO :D

Edited March 22, 2012 by Pedro Dias

[Douglas Soares]

Relaxa ahahah, precisando estou aqui :P.