数据库增删改查Native SQL

阴天也不错

已于 2023-12-18 08:20:04 修改

阅读量383

点赞数 8

分类专栏：接口文章标签：数据库

于 2023-12-15 15:48:51 首次发布

本文链接：https://blog.csdn.net/weixin_49691117/article/details/135015202

版权

接口专栏收录该内容

4 篇文章 0 订阅

订阅专栏

DBCO：检查数据库是否连接

在这里插入图片描述

代码：

查询：
DATA: gv_dbs TYPE char30 VALUE 'XXXXXXXX'.		"数据库连接名称
DATA:gt_ztclaim_2 TYPE TABLE OF ztclaim_2.
DATA:gs_ztclaim_2 TYPE ztclaim_2.

TRY.
    EXEC SQL.
      CONNECT TO  :GV_DBS
    ENDEXEC.

    EXEC SQL PERFORMING frm_build_ztclaim_2.
      SELECT *
       INTO :gs_ztclaim_2
        from  ztclaim_2
    ENDEXEC.
ENDTRY.

FORM frm_build_ztclaim_2.
  IF gs_ztclaim_2 IS NOT INITIAL.
    APPEND gs_ztclaim_2 TO gt_ztclaim_2.
  ENDIF.
ENDFORM.

删除：
LOOP AT LT_DATA INTO DATA(LS_DATA).
        READ TABLE gt_role INTO DATA(ls_role) WITH KEY personid_ext = ls_data-personid_ext
                                                         BINARY SEARCH.
         IF sy-subrc EQ 0.
            EXEC SQL.
              DELETE from HCM_PA_EMP_ROLE
                     WHERE PERSONID_EXT = :ls_data-personid_ext
            ENDEXEC.
          ENDIF.

ENDLOOP.
增加：
        EXEC SQL.
          INSERT INTO HCM_PA_EMP_ROLE
          (
          PERSONID_EXT,
          PERNR,
          ASSIGN_PART,
          JOB_INDICATOR,
          PLANS,
          ZJSBM,
          ZJSMS,
          APPROVER,
          APPROVER_PLANS )
       VALUES (
          :LS_DATA-PERSONID_EXT,
          :LS_DATA-PERNR:LV_PERNR_NULL,
          :LS_DATA-ASSIGN_PART,
          :LS_DATA-JOB_INDICATOR,
          :LS_DATA-PLANS:LV_PLANS_NULL,
          :LS_DATA-ZJSBM,
          :LS_DATA-ZJSMS,
          :LS_DATA-APPROVER,
          :LS_DATA-APPROVER_PLANS:LV_APPROVER_PLANS_NULL )
        ENDEXEC.
断开连接：
    EXEC SQL.
      ROLLBACK WORK.
      DISCONNECT :gv_dbs
    ENDEXEC.