Rexx-delete-operation

提供:Dev Guides
移動先:案内検索

Rexx-削除操作

データベースから一部のレコードを削除する場合は、DELETE操作が必要です。 次のプログラムは、AGEが20を超えるEMPLOYEEからすべてのレコードを削除する手順を示しています。

/*Main program*/
Call RxFuncAdd 'SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs'
Call SQLLoadFuncs

if SQLConnect(c1,'testuser','test123','testdb') == 0 then say 'Connect Succedded'
if SQLCommand(u1,"use testdb") == 0 then
   say 'Changed database to testdb'
   sqlstr = "DELETE FROM EMPLOYEE WHERE AGE > 20"