Navigation  without Java Scripts

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