#DEFINE SQL_SUCCESS 0 DECLARE SHORT SQLRowCount IN odbc32; INTEGER StatementHandle, INTEGER @RowCountPtr DECLARE SHORT SQLExecDirect IN odbc32; INTEGER StmtHandle, STRING StmtText, INTEGER TextLen LOCAL hFoxConn, hStmt, cStmt, nCount hFoxConn = SQLConnect('foxx') IF hFoxConn = -1 ? 'Connection handle is invalid.' RETURN ENDIF * obtaining real statement handle hStmt = SQLGetProp(hFoxConn, "ODBChstmt") * SQL statement to be executed cStmt = "UPDATE products SET price=4.12 WHERE item LIKE 'IK%'" IF SQLExecDirect(hStmt, cStmt, Len(cStmt)) = SQL_SUCCESS nCount=0 IF SQLRowCount(hStmt, @nCount) = SQL_SUCCESS ? 'Records modified:', nCount ELSE ? 'SQLRowCount: ODBC error' ENDIF ELSE ? 'SQLExecDirect: ODBC error' ENDIF = SQLDisconnect(hFoxConn)