ActiveDelphi

[pauloroger]

Amigos e colegas, estou com uma grande dificuldade, parece-me que não estou enxerguando o problema, já tendeu de tudo por isso estou recorrendo ao Forum(experts), quando gravo o primeiro registor normal, grava a data em DD/MM/AAAA, do segundo registro em diante fica MM/DD/AAAA, trabacom com ADO, MS-Access pois é um programa simples,

minha AdoQuery:
INSERT INTO TBL_VALORES ( ID_MEMBRO, DATA, FORMA,VALOR )
VALUES (:PID_MEMBRO, :PDATA, :PFORMA, :PVALOR )

Obs: Parameters do PDATA= ftDataTime


Meu Botão de Gravar:
with DM.ADOQueryGravaValores do
begin
Close;
Parameters.ParamByName('PID_MEMBRO').Value := VarToStr(DBLookupComboBoxNome.KeyValue);
Parameters.ParamByName('PDATA').Value := StrToDate(MaskEditData.Text);
Parameters.ParamByName('PFORMA').Value := ComboBox1.Text;
Parameters.ParamByName('PVALOR').Value := StrToFloat(CurrencyEdit1.Text);
ExecSQL;
end;

Se alguem puder me ajudar, eu agradeço muito. [/b]
_________________
Ele é o leão da tribo de judá

[pestana]

Qual banco você está utilizando?

eu não trabalho como a tecnologia ADO, mas alguns tempos atrás aconteçeu algo semelhante usando os componente do IBX, o que eu fiz para resolver foi alterar o formato de data no windows.

No painel de controle do windows clique no icone Opções regionais e de idioma na aba Opções regionais clique no botão Personalizar depois aparecerá uma nova janela Personalizar opções regionais e na aba Data verifique se o Formato de data abreviada está neste padrão dd/mm/aaaa.

ou você pode alterar no delphi usando o comando abaixo no evento onCreate do form principal:

[pauloroger]

Na verdade consegui resolver assim:

with DM.ADOQueryInsereValores do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO TBL_VALORES (ID_MEMBRO, DATA, FORMA,VALOR ) VALUES (');
SQL.Add('"' + VarToStr(DBLookupComboBoxNome.KeyValue) + '",');
SQL.Add('"' + DateEdit1.Text + '",');
SQL.Add('"' + ComboBox1.Text + '",');
SQL.Add('"' + FloatToStr(RxCalcEditValor.Value) + '"');
SQL.Add(')');
Prepared := True;
ExecSQL;
end;

Ai deu certo, inseri SQL, e foi, mas valeu, obrigadão.

Paulo F.
_________________
Ele é o leão da tribo de judá