DelphiAdo更新标准

代码将导致ADO在哪里子句中包括的每个字段。如果您想确保所做的当前用户更新才会成功如果为表格中的行中的任何字段中不进行了任何更改,将“更新条件”属性中使用此值。

此属性可用的常数,如下所示:
,,adCriteriaKey=0

,,,,,只使用主键

,,adCriteriaAllCols=1

,,,,,使用所有列的记录集

,,adCriteriaUpdCols=2,(默认)

,,,,,只使用被修改的列包含在记录集

,,adCriteriaTimeStamp=3

,,,,,使用时间戳列(如果可用)记录集
,,,,
注意:指定adCriteriaTimeStamp可能实际使用adCriteriaAllCols方法执行更新,如果表中没有一个有效的时间戳字段。另外,时间戳字段不必在该记录集本身。


,//纱订单明细
,adods_YarnJobDetail_PO做
,开始
,,,活动:=False;
,,,CommandText:=' SELECT job_item_id=a.Iden、a.Reserved_Qty a.Quantity、a.Order_Status a.Yarn_Type a.Yarn_Count,。Color_Code ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,“得到,,AX_YarnPPODetail与(NOLOCK) ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,“加入AX_YarnPPOHead c (NOLOCK)。PPO_No=c。PPO_No ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,“离开加入SystemDb . .pbYarnTypeList d (NOLOCK)。Yarn_Type=d。Yarn_Type ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,“离开加入systemdb . .pbcustomerlist f和c (NOLOCK)。Customer_CD=f。Customer_Code ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,”WHERE ,,一个。Yarn_Type=: Yarn_Type ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,和一个。Yarn_Count=: Yarn_Count ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,' a.Quantity-Reserved_Qty> 0 ' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,”和d。旗& lt;比;“N”' + # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,”和低(a.Order_Status)=爸な怠? # 13 # 10 +
,,,,,,,,,,,,,,,,,,,,,,,,,,”和c.Order_Type=N“阿宝”;
,,,,Parameters.ParamByName (“Yarn_Type”)。价值:=vYarn_Type;
,,,,Parameters.ParamByName (“Yarn_Count”)。价值:=vYarn_Count;
,,,,打开,
,,,,属性(“更新标准”)。价值:=1;
,,结束;
,,结果:=true;


DelphiAdo更新标准