Interbase/atualizar um campo Blob atraves de instrução Sql

Firebird

08/03/2004

try
dm.Qry.SQL.Clear;
dm.Qry.SQL.add(´update pessoa set Obs_pessoa =´+ QuotedStr(MObs.Lines.Text)+
´ where codigo_pessoa = ´+Qry.FieldByName(´codigo_pessoa´).AsString);
dm.Qry.ExecSQL;

except on
e : exception do
showmessage(´Erro: ´+#13+e.Message);

end;


Usando esse código aparece uma mensagem ´Erro conversion blob´, não consegui achar algum tópico relacionado que me ajudasse, se for possivel esse procedimento estarei aguardado, obrigado


Neomax

Neomax

Curtidas 0

Respostas

Afarias

Afarias

08/03/2004

Campos BLOB só podem ser atualizados por PARÂMETROS -- ou pelo uso de UDFs -- então, sugiro q use parâmentros::


with dm.Qry do
  try 
    SQL.Text := ´update pessoa set Obs_pessoa = :obs where codigo_pessoa = :cod´;
    ParamByName(´obs´).AsString := MObs.Lines.Text;
    ParamByName(´cod´).AsString := SomeOtherQry.FieldByName(´codigo_pessoa´).AsString;
    ExecSQL; 
except 
  on E: Exception do 
    ShowMessage(´Erro: ´+#13+E.message); 
end;



T+


GOSTEI 0
POSTAR