Need help to generate "where current of" from ODBC

Question

Hi
I am trying to develop a small stand-alone program which uses Oracle Drivers.
I have installed PERL and came up with a code (structure) like below
But I dont know how to use the current cursor reference with a statement
This is what I came up with
use Win32::ODBC;
my($db) = new Win32::ODBC("dsn=TEST_DSN; uid=TEST; pwd=TEST");
$db->SetStmtOption(SQL_CURSOR_TYPE,SQL_CURSOR_KEYSET_DRIVEN);
$db->SetStmtOption(SQL_ROWSET_SIZE,10);
$db->SetCursorName("abc");
$cursth = $db->prepare('SELECT * FROM pos_update_table testupdate where val=1 FOR UPDATE');
$cursth->execute;
print $db->GetCursorName;
while ($cursth->fetch) {
$updsth = $db->prepare("update pos_update_table set val=val+100 WHERE CURRENT OF $cursth->{CursorName}");
$updsth->execute;
$db->commit;
$db->Close();
Thanks in advance
PS: The table has one row and the intention is to update the row using where current of clause.
Message was edited by:
k.venkat

Answer 1

Thanks Justin for your reply.
I am aware of I dont need a cursor for updating single row..but from one of the applications (which uses ORACLE ODBC) i get this ODBC error "no rows updated" if I hit on save button twice (from the application)
The ODBC trace shows "where current of" clause and in the database (ORACLE 9.2) shows "update tablename set ...where rowid = "
Now I am trying to test the ODBC and trying to generate the same Statements (with where current of)
and fyi: PERL/WIN32:ODBC supports where current of coding-style (source: http://www.codeproject.com/books/1578700671.asp ..search for 'where current of')
The point is I dont want to manually grab the rowid and use it for update..Instead I want the ODBC write its own statement
Thanks
Venkat