Rexx-delete-operation

提供:Dev Guides
2020年6月23日 (火) 01:02時点におけるMaintenance script (トーク | 投稿記録)による版 (Imported from text file)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
移動先:案内検索

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"