如何在IBM i (OS/400)上使用SQL SELECT语句查询数据

本片文章提供了使用SQL SELECT语句查询IBM i (OS/400) 数据库中数据的解决方案。此方法不需要使用特殊库或产品，而是使用SQL CLI接口。本解决方案适用于任何IBM i操作系统版本。

  //创建SQL语句
  D SQLSTMT          S           1000    
                              VARYING VALUE    
  SQLSTMT = 'SELECT * FROM MYLIB.MYTABLE WHERE FIELD1 = ?'

  //建立SQL连接
  D HSTMT            S               *    
  D HVARIABLE        S               *    
  EXEC SQL CONNECT TO MYDB USER MYUSER USING MYPASS   
  CONNECT:    
  IF SQLSTATE = '08001'    
     //发生错误
  ELSE    
    //准备执行SQL命令
    EXEC SQL    
         ALLOCATE DESCRIPTOR 'MYDESC'    
         END-EXEC    
    EXEC SQL    
         PREPARE STMT FROM :SQLSTMT    
         END-EXEC    
    EXEC SQL    
         DECLARE C1 CURSOR FOR STMT    
         END-EXEC    
    EXEC SQL    
         USING HVARIABLE    
                SET DESCRIPTOR 'MYDESC'    
                VALUE 1    
         END-EXEC  

    //执行SQL SELECT语句    
    EXEC SQL    
         OPEN C1    
         END-EXEC    
    EXEC SQL    
         FETCH NEXT FROM C1 INTO :VAR1, :VAR2, :VAR3    
         END-EXEC    
    EXEC SQL    
         CLOSE C1    
         END-EXEC  
  ENDIF    
  EXEC SQL DISCONNECT ALL    
  RETURN    

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com