query - gravar dados em table

28/04/2003

0

Estou copiando os registros da qryVeiculo para tvlTempVeiculo, mas pq depois desses laços eu consulto a tabela e não tem nenhum registro gravado?

Obs.: Debuguei e sei que o delphi passou por essas linhas inclusive passou no comando post.


Pq a tabela está vazia?

while not (qryVeiculo.Eof) do begin // copia os registros pra POTMV
if qryVeiculo.FieldByName(´SSCOD´).Value = tblTempVeiculo.FieldByName(´TMCARRO´).Value then begin
tblTempVeiculo.Edit;
auxiliar := tblTempVeiculoTMTOTALHORA.AsString;
SomaHor := StrToTime(auxiliar) + StrToTime(qryVeiculoCSHORAS.AsString);
tblTempVeiculoTMTOTALHORA.AsString := TimeToStr(SomaHor);
tblTempVeiculo.Post;
qryVeiculo.Next;
end
else begin
tblTempVeiculo.Insert;
tblTempVeiculoTMCARRO.AsString := qryVeiculoSSCOD.AsString;
tblTempVeiculoTMDATA.AsDateTime := qryVeiculoCSDATA.AsDateTime;
tblTempVeiculoTMTOTALHORA.AsString := qryVeiculoCSHORAS.AsString;
tblTempVeiculo.Post;
qryVeiculo.Next;
end;
end;


Debora

Debora

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar