怎么用ClientdataSet.commandtxt 更新image或 memo

Question

/

Answer 1

这是保存图片的类型的代码
var AStream : TMemoryStream;
begin
  FUpdate := False;
  ClientdataSet..Insert;
  AStream := TMemoryStream.Create;
  dxFlowChart.SaveToStream(AStream);
  AStream.Position := 0;
  TBlobField(ClientdataSet.FieldByName('picture')).LoadFromStream(AStream);//关健
  AStream.Free;
  ClientdataSet..FieldByName('area_id').AsString:=GBV_Area_id;
  ClientdataSet..Post;
  ClientdataSet..ApplyUpdates(-1);
  FUpdate:= True;
 end;
end;

Answer 2

你可以写入param,然后更新过去就是使了。

Answer 3

谢谢penet(永远)的回答.
我是说怎么用commandtext ,用SQL语言更新image,memo
我用下面方法,就说TEXT与IMAGE类型不兼容,而下面方法对与MEMO就没有问题/
procedure TForm1.Button1Click(Sender: TObject);
var
  st: TStringStream;
begin
  st := tstringstream.create('');
  Dbimage1.Picture.Bitmap.SaveToStream(st);
  CLientdataset1.CommandText:='insert into 学生资料表(学号,班级代号,照片) values(''1'',''610002'',:pic)';
  CLientdataset1.Params[0].AsBlob:=st.DataString;
  CLientdataset1.Execute;
end;