Error in the consult predicate. Example
database - my
tmp(string,integer,string)
database - my1
tmp1(string,integer,string)
predicates
p(string)
p1(string)
s()
clauses
tmp("string 1",1,"string 1.1").
tmp("string 2",2,"string 2.1").
tmp("string 3",3,"string 3.1").
tmp("string 4",4,"string 4.1").
tmp("string 5",5,"string 5.1").
tmp("string 6",6,"string 6.1").
tmp("string 7",7,"string 7.1").
tmp("string 8",8,"string 8.1").
tmp("string 11",11,"string 11.1").
tmp("string 12",12,"string 12.1").
tmp("string 13",13,"string 13.1").
tmp("string 14",14,"string 14.1").
tmp("string 15",15,"string 15.1").
tmp("string 16",16,"string 16.1").
tmp("string 17",17,"string 17.1").
tmp("string 18",18,"string 18.1").
tmp("string 1",1,"string 1.1").
tmp("string 2",2,"string 2.1").
tmp("string 3",3,"string 3.1").
tmp("string 4",4,"string 4.1").
tmp("string 5",5,"string 5.1").
tmp("string 6",6,"string 6.1").
tmp("string 7",7,"string 7.1").
tmp("string 8",8,"string 8.1").
tmp("string 11",11,"string 11.1").
tmp("string 12",12,"string 12.1").
tmp("string 13",13,"string 13.1").
tmp("string 14",14,"string 14.1").
tmp("string 15",15,"string 15.1").
tmp("string 16",16,"string 16.1").
tmp("string 17",17,"string 17.1").
tmp("string 18",18,"string 18.1").
p(Name):-
trap(consult(Name,my),E,write("Base ",Name," Error: ",E,"\n")),
write("Base ",Name," loaded successful"),nl,!.
p(_Name).
p1(Name):-
trap(consult(Name,my1),E,write("Base ",Name," Error: ",E,"\n")),
write("Base ",Name," loaded successful"),nl,!.
p1(_Name).
s():-
trap(save("a:\\Bad.db",my),E,write(E,"\n")).
s().
goal
s(),
p("a:\\Bad.db"),
p1("a:\\Good.db").
Back
to the description
|