restart;
interface(worksheetdir);
currentdir(interface(worksheetdir));
currentdir();
#connect to the datbase
db := cat(currentdir(),"\134\134test.db");
try
conn:=Database[SQLite]:-Open(db):
catch:
error lastexception;
end try;
s:=cat("
BEGIN TRANSACTION;
DROP TABLE IF EXISTS PROBLEMS ;
CREATE TABLE PROBLEMS (
key INTEGER PRIMARY KEY AUTOINCREMENT,
command VARCHAR,
result VARCHAR
);"):
Database[SQLite]:-Execute(conn,s);
Database[SQLite]:-Execute(conn, "COMMIT;");
s:=cat("INSERT INTO PROBLEMS ( command) VALUES(
'
interface(''warnlevel''=4);
kernelopts(''assertlevel''=2);
ode:=diff(y(x),x)=sin(x);
sol:=dsolve(ode,y(x));
'
);"):
Database[SQLite]:-Execute(conn,s);
s:=cat("INSERT INTO PROBLEMS ( command ) VALUES(
'
interface(''warnlevel''=4);
kernelopts(''assertlevel''=2);
ode:=diff(y(x),x$2)+diff(y(x),x)+y(x)=sin(x);
sol:=dsolve(ode,y(x));
'
);"):
Database[SQLite]:-Execute(conn,s);
Database[SQLite]:-Close(conn):
<Text-field style="Heading 1" layout="Heading 1">READ DB</Text-field>
restart;
interface(worksheetdir);
currentdir(interface(worksheetdir));
#open the datbase
db := cat(currentdir(),"\134\134test.db");
try
conn:=Database[SQLite]:-Open(db):
catch:
error lastexception;
end try;
number_of_problems:=Database[SQLite]:-Prepare(conn,
"SELECT COUNT(*) from PROBLEMS;");
number_of_problems:=Database[SQLite]:-FetchAll(number_of_problems)[1,1];
# number_of_problems := 2
for N from 1 to number_of_problems do
stmt := Database[SQLite]:-Prepare(conn,
cat("SELECT command FROM PROBLEMS where rowid=",N,";"));
stmt := Database[SQLite]:-FetchAll(stmt)[1,1]:
stmt := StringTools:-Remove("\134n",stmt): #remove \134n from string
stmt := StringTools:-Split(stmt,";" ): #must split on ";".
for c in stmt do
eval(parse(c)):
od:
Database[SQLite]:-Execute(conn, "BEGIN TRANSACTION;");
Database[SQLite]:-Execute(conn,
cat("UPDATE problems SET result='",convert(sol,string),"' WHERE rowid =",N,";"));
Database[SQLite]:-Execute(conn, "COMMIT;");
od:
Database[SQLite]:-Close(conn):