【结贴】[请求]TQuery**

jimmy

TQuery是否可以执行数据库更新操作？

Akon

可以

jimmy

我想用参数给update的字段赋值，该怎么做？
给各例子行吗？

Akon

你可以搞一个变量，先把参数的值赋给变量，然后再通过变量去update。

Akon

procedure TMainForm.Button1Click(Sender: TObject);
var
  lQuery: TQuery;
  Str: String;
  lBizUrl: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizUrl := TBizURL.Create;
  lQuery := TQuery.Create(nil);
  lContextCurrent := TContextCurrent.Create(Self.Context);
  try
  lBizURl.URL := 'Biz:\DEMOSPACE\YWCSZ1.ParamGroup\DDBH.Param';
  lQuery.ConnectionString :='DATABASEURL=Biz:\DEMOSPACE\DemoDB.Database';
   Str := Variants.VarToStr(TBizParam(lContextCurrent.GetParam(lBizUrl)).Value);
  lQuery.Close;
  lQuery.CommandText :='Update TORDERMASTER Set FSales = ''002'' where FOrderNo = '''+str+'''';
  lQuery.Execute;
  finally
    lQuery.Free;
  end;
end;

jimmy

结贴
谢谢