ABAP数据库操作
数据库操作，ABAP有自己封装的SQL语句操作数据库表。SQL语句分为DDL数据库定义语句，DML数据库操作语句。
程序宣告使用数据库表
语法：tables <数据库表名>
示例：
"宣告程序使用table TABLES spfli.
1插入数据库表记录
单行数据插入：
语法：insert into <数据库表> values <工作区>.
语法：insert <数据库表> from <工作区>.
示例：
*"数据库插入语句insert DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. t_spfli-carrid = 'AB'. t_spfli-connid = '112'. t_spfli-cityfrom = 'cq'. "单行数据 "插入数据库表, INSERT INTO spfli VALUES t_spfli. "插入数据库表 INSERT spfli FROM t_spfli.
多行插入：
语法：insert <数据库表> from table <内表>.
示例：
"多行数据 DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. t_spfli-carrid = 'ad'. t_spfli-connid = '112'. t_spfli-cityfrom = 'cq'. append t_spfli. t_spfli-carrid = 'bd'. t_spfli-connid = '112'. t_spfli-cityfrom = 'cq'. append t_spfli. "将内部数据插入数据库表 INSERT spfli FROM TABLE t_spfli.
插入时禁止插入关键字重复记录，如果不禁止插入关键字重复记录程式会崩溃！
示例：
"插入数据，禁止插入关键字重复记录 INSERT spfli FROM TABLE t_spfli ACCEPTING DUPLICATE KEYS.
2更新数据库表记录
更新单行数据：
语法：update <数据库表> from <工作区>
示例：
"***************************************更新数据库表 DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. "carrid,connid是数据库表键值，必须有值才能查找更新 t_spfli-carrid = 'ad'. t_spfli-connid = '112'. t_spfli-cityfrom = 'dps'. "更新数据库表数据,表的键值必须都赋值 UPDATE spfli FROM t_spfli.
更新多行数据：
语法：update <数据库表> from table <内表>
语法：update <数据库表> set <字段> = <值> [<字段> = <值> ] [where 子句]
更新多条满足条件记录。
示例：
"更新多条数据 DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. t_spfli-carrid = 'ad'. t_spfli-connid = '112'. t_spfli-cityfrom = 'dps'. APPEND t_spfli. t_spfli-carrid = 'bd'. t_spfli-connid = '112'. t_spfli-cityfrom = 'dps'. APPEND t_spfli. "更新内表数据到数据库表 UPDATE spfli FROM TABLE t_spfli. "更新多条满足条件记录 UPDATE spfli SET carrid = 'bd' connid = '113' WHERE carrid = 'bd'.
Modify关键词，更新或者添加记录。当记录存在则更新，不存在则插入。
语法：modify <数据库表> from <工作区>.
语法：modify <数据库表> from table <内表>.
示例：
"modify更新或插入 DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. t_spfli-carrid = 'cc'. t_spfli-connid = '113'. t_spfli-cityfrom = 'dg'. "更新或插入单笔 MODIFY spfli FROM t_spfli. t_spfli-carrid = 'cc'. t_spfli-connid = '113'. t_spfli-cityfrom = 'dgs'. APPEND t_spfli. t_spfli-carrid = 'cc'. t_spfli-connid = '112'. t_spfli-cityfrom = 'dgs'. APPEND t_spfli. "更新插入多笔 MODIFY spfli FROM TABLE t_spfli.
3删除数据库表记录
删除数据库表记录，单行删除：
语法：delete from <数据库表> [where 条件].
可以删除一条或多条。删除符合条件记录。
语法：delete from <数据库表> from wa.
根据工作区删除记录，必须指定所有关键词域值，其他域值忽略，即使不匹配，只要所有关键词字段匹配，就会删除。
示例：
DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. t_spfli-carrid = 'cc'. t_spfli-connid = '113'. t_spfli-cityfrom = 'dgs'. "删除符合条件记录，删除一条或多条 "可以指定key字段，删除一条 DELETE FROM spfli WHERE carrid = 'cc'. "根据工作区，必须指定关键词字段，其他字段可以忽略 DELETE spfli FROM t_spfli.
删除多笔记录，可以使用where条件，删除多笔符合条件记录也可使用内表。
语法：delete <数据库表> from table <内表>.
DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. t_spfli-carrid = 'cc'. t_spfli-connid = '112'. t_spfli-cityfrom = 'cqs'. APPEND t_spfli. t_spfli-carrid = 'cc'. t_spfli-connid = '113'. t_spfli-cityfrom = 'cqs'. APPEND t_spfli. "删除多笔记录，同样只比较关键词字段 DELETE spfli FROM TABLE t_spfli.
4查询数据库表记录
查询数据库表到内表，内表结构必须和查询的数据库表相匹配，查询数据库表部分字段元出来，如果定义内表字段多余查询数据库表字段，值是依次赋给内表字段，可能会错位。
循环查询语句：select …… endselect，循环查询并处理数据库每一笔符合条件记录。
语法：select * into <内表> from <数据库表>
[where条件]
[group by <字段>]
[having <条件>]
[order by <字段>].
“将工作区内容加入内表
“其他逻辑
endselect.
查询所有字段字段到内表工作区。
语法：select <字段名> [<字段名>] into <内表> from <数据库表>
[where条件]
[group by <字段>]
[having <条件>]
[order by <字段>].
”将工作区内容加入内表
”其他逻辑
endselect.
查询指定字段到内表工作区，如果定义内表字段名不等于数据库表字段名，那么查询出字段顺序应该和内表定义字段顺序保持一致，以防错位。
示例：
"宣告程序使用table
TABLES spfli.
"select * 查询所有字段
DATA:t_testCol LIKE TABLE OF spfli WITH HEADER LINE.
"查询所有字段
SELECT * INTO t_testCol FROM spfli .
endselect.
"数据库查询语句select
data: BEGIN OF testCol OCCURS 0,
col1 like spfli-carrid,
col2 like spfli-connid,
END OF testCol.
"select ………… endselect 相当于循环数据库表数据，一次一条
"注：这种方式不推荐使用，考虑到系统效能
"查询carrid, connid,必须要有into
SELECT CARRID CONNID INTO testCol FROM SPFLI
WHERE CARRID = 'AA'.
"将查询到记录添加到内表
APPEND testCol.
"其他逻辑
WRITE: / SPFLI-CARRID, SPFLI-CONNID.
ENDSELECT.
查询where条件语句
1、字段 和 值 比较，比较运算符：=,<,>,<=,>=;
2、字段 between 值 and 值；
3、字段元 in ( 字符串,数字,select-option内表)；
4、字段元 like “匹配字符串” ，‘_’代表一个字符，‘%’代表一个字符串；
5、not关键词，将条件取反；
所有比较的where条件都可使用（ 条件 ）使用 and 或者 or 连接，构成多个筛选条件查询。有的条件必须使用括号分隔才正确。
"查询条件
DATA:testTable LIKE TABLE OF spfli WITH HEADER LINE.
"直接where条件比较
select * FROM spfli INTO testTable WHERE carrid = 'AA' AND connid = '0001'.
WRITE:/ 'where条件:',testTable-carrid,testTable-connid.
ENDSELECT.
"between and
select * FROM SPFLI INTO testTable where period BETWEEN 1 and 2.
WRITE:/ 'between:',testTable-carrid,testTable-connid.
ENDSELECT.
"like _一个字符,%一个字符串
select * from spfli INTO testTable where cityfrom like '%new%'.
WRITE:/ 'like:',testTable-carrid,testTable-connid.
ENDSELECT.
*
*"in 在一个范围
select * from spfli INTO testTable where carrid in ('AA','LH').
WRITE:/ 'in字符串:',testTable-carrid,testTable-connid.
ENDSELECT.
select * from spfli INTO testTable where period in (1,2).
WRITE:/ 'in数字:',testTable-carrid,testTable-connid.
ENDSELECT.
*”使用range内表作为条件
DATA:testTable LIKE TABLE OF spfli WITH HEADER LINE.
"定义一个range类型
DATA:t_range LIKE RANGE OF spfli-carrid WITH HEADER LINE.
DATA:wa_range LIKE LINE OF t_range.
* 宏定义
DEFINE set_range.
wa_range-sign = 'I'.
wa_range-option = 'EQ'.
wa_range-low = &1.
append wa_range to t_range.
END-OF-DEFINITION.
set_range 'DL'.
SELECT * FROM spfli INTO table testTable WHERE carrid in t_range.
"混合条件，有些条件可以不使用括号括起来，有些必须括号分割
SELECT * FROM spfli INTO testTable WHERE ( period in (1,2) ) AND ( carrid = 'AA' ).
WRITE:/ '多条件：',testTable-carrid,testTable-connid.
ENDSELECT.
"not关键词，可以和比较条件，like,in,between and使用，将条件取反
select * from spfli INTO testTable where carrid not in ('AA','LH').
WRITE:/ 'in字符串:',testTable-carrid,testTable-connid.
ENDSELECT.
查询单行数据到工作区
语法：select single <字段>[<字段>……] from <数据库表> into <wa>
[where条件]
[group by <字段>]
[having <条件>]
[order by <字段>].
查询符合条件的一条记录到工作区中。
示例：
"*****************查询单行数据 DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. "查询单行数据到工作区 SELECT SINGLE * from spfli INTO t_spfli WHERE carrid = 'QF'. WRITE:/ t_spfli-carrid.
这里t_spfli是带表头行的内表，查询语句select single 是查询出一条记录到t_spfli的表头行（工作区）。
DATA:BEGIN OF wa_spfli,
carrid LIKE spfli-carrid,
connid LIKE spfli-connid,
END OF wa_spfli.
"查询指定字段，内表结构需要对应查询的字段顺序，不然错位
SELECT SINGLE carrid connid FROM spfli INTO wa_spfli WHERE carrid = 'QF'.
WRITE:/ wa_spfli-carrid , wa_spfli-connid.
这里查询部分字段的一条记录到指定内表。
"使用内表工作区挨个赋值对应 SELECT SINGLE carrid connid FROM spfli INTO (t_spfli-carrid,t_spfli-connid) where carrid = 'QF'. WRITE:/ t_spfli-carrid,t_spfli-connid.
使用内表工作区，挨个赋值给工作区字段
查询数据库表多条记录到内表，一次性查询到内存中。
语法：select * from <数据库表> into corresponding fields of table <内表>
[where条件]
[group by <字段>]
[having <条件>]
[order by <字段>].
示例：
"*******************一次性查询数据库记录到内表中 "查询多条记录到内表 DATA:t_spfli LIKE TABLE OF spfli WITH HEADER LINE. SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE t_spfli WHERE carrid = 'DL'.
语法：select * from <数据库表> into table <内表>
[where条件]
[group by <字段>]
[having <条件>]
[order by <字段>].
示例：
"查询所有符合条件记录到内表 SELECT * FROM spfli INTO TABLE t_spfli WHERE carrid = 'DL'.
语法：select <字段> [<字段>……] from <数据库表> into ( table | corresponding fields of table ) <内表>
[where条件]
[group by <字段>]
[having <条件>]
[order by <字段>].
示例：
DATA:BEGIN OF wa_spfli OCCURS 0,
carrid LIKE spfli-carrid,
connid LIKE spfli-connid,
END OF wa_spfli.
"查询部分字段元,也要对应顺序，不然错位
SELECT carrid connid FROM spfli INTO TABLE wa_spfli WHERE carrid = 'DL'.
LOOP AT wa_spfli.
WRITE:/ wa_spfli-carrid,wa_spfli-connid.
ENDLOOP.
"这种方式查询部分字段元，可以不需要对应顺序，查询结果直接对应到对应字段
SELECT carrid connid FROM spfli INTO CORRESPONDING FIELDS OF TABLE t_spfli WHERE carrid = 'DL'.
LOOP AT t_spfli.
WRITE:/ t_spfli-carrid,t_spfli-connid,t_spfli-cityfrom.
ENDLOOP.
Order by子句排序条件
使用示例：
SELECT * INTO TABLE test_spfli1 FROM zlujie_spfli1 UP TO 1 ROWS WHERE COUNTRYFR = 'CN' ORDER BY DATE_CR ASCENDING TIME_CR ASCENDING.
多表连接查询
语法：select <字段> [<字段>……] into ( table | corresponding fields of table ) <内表>
from <数据库表> AS A INNER JOIN <数据库表> AS B
ON A~<相同栏位> = B~<相同栏位>
[where子句]
[其他子句].
三张表链接查询
语法：select <字段> [<字段>……] into ( table | corresponding fields of table ) <内表>
from (<数据库表> AS A INNER JOIN <数据库表> AS B ON A~<相同栏位> = B~<相同栏位>）
[INNER JOIN <数据库表> AS C ON A or B~<相同栏位> = C~<相同栏位>]
[where子句]
[其他子句].
必须使用括号将前两个表的inner join括起来再inner join 新表。
示例：
"ABAP测试表 TABLES:spfli,sflight,scarr. DATA:BEGIN OF test_info OCCURS 0, carrid LIKE spfli-carrid, carrname like scarr-carrname, END OF test_info. "内连接查询 "逐条遍历 *SELECT A~carrid B~carrname INTO test_info * FROM spfli AS A INNER JOIN scarr AS B ON A~carrid = B~carrid * WHERE connid = 1. * "将查询记录加入内表 * APPEND test_info. *ENDSELECT. "逐条遍历 *SELECT A~carrid B~carrname INTO CORRESPONDING FIELDS OF test_info * FROM spfli AS A INNER JOIN scarr AS B ON A~carrid = B~carrid * WHERE connid = 1. * "将查询记录加入内表 * APPEND test_info. *ENDSELECT. "一次性查询到内表 SELECT A~carrid B~carrname INTO CORRESPONDING FIELDS OF TABLE test_info FROM spfli AS A INNER JOIN scarr AS B ON A~carrid = B~carrid WHERE connid = 1.
左连接：
"左连接 "A表记录全部显示，即使B表没有对应记录 SELECT A~carrid B~carrname INTO CORRESPONDING FIELDS OF TABLE test_info FROM spfli AS A LEFT JOIN scarr AS B ON A~carrid = B~carrid. "左外连接 SELECT A~carrid B~carrname INTO CORRESPONDING FIELDS OF TABLE test_info FROM spfli AS A LEFT OUTER JOIN scarr AS B ON A~carrid = B~carrid.
右连接：
好像不支持这个语法了。
"右连接，RIGHT OUTER JOIN 报错？？ *SELECT A~carrid B~carrname INTO CORRESPONDING FIELDS OF TABLE test_info * FROM spfli AS A RIGHT JOIN scarr AS B ON A~carrid = B~carrid.