On Wed, Jan 2, 2013 at 7:01 PM, Art Heimsoth <artst...@artheimsoth.com>wrote:
> Perhaps, but I think autoCommit is the default with ooSQLite and
> so far I have not found the syntax for Rollback or Commit to
> try that - are they implemented in ooSQLite? or must the hooks
> be used? However, in playing with the sample programs included
> with ooSQLite, it appears that the DELETE is working there - so it
> must be something else in my program.
>
Art,
Yes auto commit should be the default. It is something else. It could be
your quoting:
DELETE FROM table WHERE upper(name) = "SOME NAME"
It is hard to say what your actually Rexx code is from that. But, I think
SOME NAME needs to be in single quotes.
Here is a test program that works. You can run it using the ooFoods.rxdb
that is shipped with ooSQLite.
It goes to some lengths to check that the row for Cinnamon Bobka exists and
to add it back in if the delete is successful. But, it works. Comment out
the last bit of code that adds the row back in after the delete and you can
see for sure it works.
You'll need to fix up the lines that wrap, they should be easy to spot.
Note that I use single quotes for Cinnamon Bobka.
/* deleteTest.rex */
db = .ooSQLiteConnection~new('ooFoods.rdbx')
if db~initCode <> db~ok then do
-- report error
return 99
end
say 'Checking for Cinnamon Bobka'
stmt = .ooSQLiteStmt~new(db, "SELECT * FROM foods WHERE name='Cinnamon
Bobka';")
if stmt~initCode <> db~ok then do
say 'Line:' .line 'Statement error - error msg:' stmt~lastErrMsg
stmt~finalize
db~close
return 99
end
i = 0
do while stmt~step == stmt~ROW
i += 1
say 'Got a row ('i')'
say stmt~columnText(1)~left(10) || stmt~columnText(2)~left(15) ||
stmt~columnText(3)~left(15)
end
stmt~finalize
say
if i == 0 then do
say 'No row for Cinnamon Bobka. Going to add that row.'
stmt = .ooSQLiteStmt~new(db, "INSERT INTO foods (name, type_id) VALUES
('Cinnamon Bobka', 1);")
ret = stmt~step
if ret <> db~done then do
say 'Line:' .line 'Step return error:' ret
stmt~finalize
db~close
return 99
end
stmt~finalize
end
stmt = .ooSQLiteStmt~new(db, "DELETE FROM foods WHERE name='Cinnamon
Bobka';")
if stmt~initCode <> db~ok then do
say 'Line:' .line 'Statement error - error msg:' stmt~lastErrMsg
stmt~finalize
db~close
return 99
end
ret = stmt~step
if ret <> db~done then do
say 'Line:' .line 'Step return error:' ret
stmt~finalize
db~close
return 99
end
stmt~finalize
say 'Checking that Cinnamon Bobka row was deleted'
stmt = .ooSQLiteStmt~new(db, "SELECT * FROM foods WHERE name='Cinnamon
Bobka';")
if stmt~initCode <> db~ok then do
say 'Line:' .line 'Statement error - error msg:' stmt~lastErrMsg
stmt~finalize
db~close
return 99
end
i = 0
do while stmt~step == stmt~ROW
i += 1
say 'Got a row ('i')'
say stmt~columnText(1)~left(25) || stmt~columnText(2)~left(25) ||
stmt~columnText(3)~left(25)
say 'Delete failed.'
end
stmt~finalize
say
if i == 0 then do
say 'No row for Cinnamon Bobka. Delete was successful.'
say 'Going to add that row back in.'
stmt = .ooSQLiteStmt~new(db, "INSERT INTO foods (name, type_id) VALUES
('Cinnamon Bobka', 1);")
ret = stmt~step
if ret <> db~done then do
say 'Line:' .line 'Step return error:' ret
stmt~finalize
db~close
return 99
end
stmt~finalize
end
ret = db~close
return ret
::requires 'ooSQLite.cls'
--
Mark Miesfeld
------------------------------------------------------------------------------
Master Visual Studio, SharePoint, SQL, ASP.NET, C# 2012, HTML5, CSS,
MVC, Windows 8 Apps, JavaScript and much more. Keep your skills current
with LearnDevNow - 3,200 step-by-step video tutorials by Microsoft
MVPs and experts. ON SALE this month only -- learn more at:
http://p.sf.net/sfu/learnmore_122712
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
