(Resolvido) Envio de dados ao BD

[Nino Marques]

Aew....

uma duvida sobre Banco de Dados no Delphi aqui....

Queria q meu programa enviasse para o BD feito em Acess, o seguinte...a diferença entre dois tempo registrados no programa, ou seja o tempo de execução de determinada função..

Eu então declarei duas variaveis....iniciot e finalt, e fiz o seguinte:

iniciot:= FormatDateTime(' hh:mm:ss',now);

finalt:= FormatDateTime(' hh:mm:ss',now);

DM.ADOQuery_bt4.Parameters.ParamByName('tempo de execução').Value := 'finalt - iniciot';

Mas dessa forma não está dando certo.....a ideia é essa, mas como eu faço da forma certa?!

Espero q alguém possa ajudar!!

Grato!!

[Daniel Sanches]

iniciot:= FormatDateTime(' hh:mm:ss',now);

finalt:= FormatDateTime(' hh:mm:ss',now);

DM.ADOQuery_bt4.Parameters.ParamByName('tempo de execução').Value := 'finalt - iniciot';

qual o tipo do campo 'tempo de execução' ???

a função FormatDateTime retorna string...

pelo que entendi, você quer salvar a diferença entre os 2 tempos no campo 'tempo de execução', correto ??

tente algo assim:

var
iniciot, finalt: TTime;
begin
   iniciot:= now;
   sleep(10000);
   finalt:= now;
   DM.ADOQuery_bt4.Parameters.ParamByName('tempo de execucao').Value := FormatDteTime('hh:mm:ss',(finalt - iniciot));

sendo:

sendo:

o campo 'tempo de execucao' do tipo String...

iniciot e finalt do tipo Time...

abraços !!!

[Nino Marques]

Daniel,

Da forma q você me passou, está compilando, parece que deu certo...

Mas esta dando erro na hora de executar, dizendo que o parametro Tempo de execução não está sendo encontrado...

[Daniel Sanches]

realmente eu errei em uma coisa ... o nome do campo está errado, não pode ter espaço em branco ...

no caso ficaria assim:

var
iniciot, finalt: TTime;
begin
   iniciot:= now;
   sleep(10000);
   finalt:= now;
   DM.ADOQuery_bt4.Parameters.ParamByName('tempo_de_execucao').Value := FormatDteTime('hh:mm:ss',(finalt - iniciot));
end;

[Nino Marques]

Ah sim..

Só me fla uma coisa....tem problema se no fonte eu colocar tempo_de_execucao, e no BD o nome do campo ser com espaços mesmo?!

[Daniel Sanches]

sim ... o nome que está no banco, tem que ser exatamente igual ao do sistema ... se o banco de dados aceita nome de campos com espaços em branco, evite usá-los para evitar erros ... sempre use underline (_) para separação...

abraços !!!

[Nino Marques]

E agora na Execução deu outro problema, "Nenhum valor fornecido aos Parametros necessario"

O que será q tah ficando errado?!

=/

[Daniel Sanches]

post o código aki pra dar uma olhada ...

está exatamente igual ao que te passei ???

[Nino Marques]

Mas Brigadão Daniel....

Acho q já to no caminho certo agora!!!

Agora é pensar um pouco aqui!!

Abraço!

Agora deu certo mesmo...

Enviou tudo certinhoo!!! Aeeeeeeeeew!!

PROBLEMA RESOLVIDO!!

Brigado Brother!!!

Abraço!!

[Daniel Sanches]

o problema está no parâmetro passado ...

DM.ADOQuery_bt4.Parameters.ParamByName('tempo_de_execucao').Value := FormatDteTime('hh:mm:ss',(finalt - iniciot));

como você está utilizando este parâmetro ???

você pode passar direto ao campo:

DM.ADOQuery_bt4.FieldByName('tempo_de_execucao').Value:= FormatDteTime('hh:mm:ss',(finalt - iniciot));

abraços !!!

[Nino Marques]

PROBLEMA RESOLVIDO!!!

Agora tá passando tudo certinho!!!

Valeu mesmo Brother!!

Quebro um Galhãooo!!

Abraço....