Query com Paradox, por favor me ajudem

09/05/2003

0

Pessoal é o seguinte faço as seguinte rotinas:
PARA DELETAR:
if Application.MessageBox(´Deseja realmente excluir este registro?´,´Atenção´, MB_YESNO+MB_ICONQUESTION) = ID_YES then
begin
qryExibe_PE_Ativo.DisableControls;
qryAuxiliar.SQL.Text := ´DELETE FROM PROGRAMAS_EXERCICIO_APARELHOS ´
+ ´WHERE COD_APARELHO = :COD_APARELHO ´
+ ´ AND COD_PROGRAMA_EXERCICIO = :COD_PROGRAMA_EXERCICIO´;
qryAuxiliar.ParamByName(´COD_APARELHO´).AsInteger := qryExibe_PE_Ativo.FieldByName(´COD_APARELHO´).AsInteger;
qryAuxiliar.ParamByName(´COD_PROGRAMA_EXERCICIO´).AsInteger := qryExibe_PE_Ativo.FieldByName(´COD_PROGRAMA_EXERCICIO´).AsInteger;
qryAuxiliar.ExecSQL;
qryExibe_PE_Ativo.Close;
qryExibe_PE_Ativo.Open;
qryExibe_PE_Ativo.EnableControls;
end;
PARA ALTERAR:
qryExibe_PE_Ativo.DisableControls;
qryAuxiliar.SQL.Text := ´UPDATE PROGRAMAS_EXERCICIO_APARELHOS ´
+ ´SET COD_APARELHO = :COD_APARELHO_NOVO, QUANTIDADE = :QUANTIDADE, ´
+ ´REPETICAO = :REPETICAO, CARGA = :CARGA ´
+ ´WHERE COD_APARELHO = :COD_APARELHO ´
+ ´ AND COD_PROGRAMA_EXERCICIO = :COD_PROGRAMA_EXERCICIO´;

qryAuxiliar.ParamByName(´COD_APARELHO_NOVO´).AsInteger := cmbAparelhos.KeyValue;
qryAuxiliar.ParamByName(´COD_APARELHO´).AsInteger := qryExibe_PE_Ativo.FieldByName(´COD_APARELHO´).AsInteger;
qryAuxiliar.ParamByName(´QUANTIDADE´).AsInteger := StrToInt(edtQuantidade.Text);
qryAuxiliar.ParamByName(´REPETICAO´).AsInteger := StrToInt(edtRepitacao.Text);
qryAuxiliar.ParamByName(´CARGA´).AsInteger := StrToInt(edtCarga.Text);
qryAuxiliar.ParamByName(´COD_PROGRAMA_EXERCICIO´).AsInteger := tblProgramas_Exercicios.FieldByName(´COD_PROGRAMA_EXERCICIO´).AsInteger;
qryAuxiliar.ExecSQL;

qryExibe_PE_Ativo.Close;
qryExibe_PE_Ativo.Open;
qryExibe_PE_Ativo.EnableControls;
simplesmente a de deletar funciona e a de alterar me da uma mensagem dizendo o seguinte [b:4751edae19]Type mismatch in Expression[/b:4751edae19].

uso Paradox, estou fazendo assim porque a query que exibe os dados no grid esta na memória(em CacheUpdate := True); tentei dar query.ApplyUpdates deu o mesmo erro, engraçado que quando executo no console funciona, então deduzi que não e nenhum erro no códgio. Porque então funciona com DELETE e UPDATE não já que á a mesma query(Componente) eu só mudo a propriedade SQL.TEXT.

Desde já agradeço qualuqer ajuda.


Fabio Colli

Fabio Colli

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