当然要出错了
UpdateOptions.InsertSQL =
'INSERT INTO TMAILSYSTEM'#13#10'( FSUBJECT , FDATE , FGUID ) '#13#10'VALUES (' +
' :FSUBJECT , :FDATE , :FGUID )'#13#10#13#10'INSERT INTO TMAILREFERENCE'#13#10'( ' +
'FOWNERGUID , FGUID , FSTATE ) '#13#10'VALUES ( :FOWNERGUID , :FGUID_1 ' +
', :FSTATE )'#13#10#13#10
UpdateOptions.UpdateSQL =
'UPDATE TMAILSYSTEM '#13#10'SET FSUBJECT = :FSUBJECT , '#13#10' FDATE = :FD' +
'ATE , '#13#10' FGUID = :FGUID '#13#10'WHERE ( FSUBJECT = :OLD__FSUBJECT )' +
' '#13#10' AND ( FDATE = :OLD__FDATE ) '#13#10' AND ( FGUID = :OLD__FGUID )' +
' '#13#10#13#10'UPDATE TMAILREFERENCE '#13#10'SET FOWNERGUID = :FOWNERGUID , '#13#10 +
' FGUID = :FGUID_1 , '#13#10' FSTATE = :FSTATE '#13#10'WHERE ( FOWNERGUID ' +
'= :OLD__FOWNERGUID ) '#13#10' AND ( FGUID = :OLD__FGUID_1 ) '#13#10' AND (' +
' FSTATE = :OLD__FSTATE ) '#13#10#13#10
在一个里面不能写两条SQL语句的,只能写一条Insert语句 一条Update语句这样的,一个属性提供两条SQL语句肯定会出错的 |