MyDDAS: bug fix on db_update/2
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1530 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
a4eaafaef3
commit
5f56e91375
@ -298,7 +298,7 @@
|
|||||||
'$get_values_for_set'(FieldList,ValueList,FieldValueList).
|
'$get_values_for_set'(FieldList,ValueList,FieldValueList).
|
||||||
|
|
||||||
'$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))],[' ',Field,' = "',Atom,'" ']).
|
'$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))],[' ',Field,' = "',Atom,'" ']).
|
||||||
'$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))|Comp],[' ',Field,' = "',Atom,'" '|Rest]):-
|
'$get_values_for_where'([comp(att(_,Field),'=','$const$'(Atom))|Comp],[' ',Field,' = "',Atom,'" AND '|Rest]):-
|
||||||
'$get_values_for_where'(Comp,Rest).
|
'$get_values_for_where'(Comp,Rest).
|
||||||
|
|
||||||
'$build_set_condition'([Field,Value|FieldValues],[SQLFirst|SQLRest]):-
|
'$build_set_condition'([Field,Value|FieldValues],[SQLFirst|SQLRest]):-
|
||||||
|
Reference in New Issue
Block a user