在IBM i (OS/400)上使用RPG程序访问MySQL数据库
作者:佚名
上传时间:2023-05-22
运行软件:RPG
软件版本:IBM Rational Development Studio for i Version: 9.6.0.0
版权申诉
本示例展示了如何在IBM i (OS/400)上使用RPG程序访问MySQL数据库。通过建立ODBC连接,RPG程序可以读写MySQL数据库中的数据,并进行一些简单数据操作。在连接建立之前,需要在IBM i (OS/400)系统中安装MySQL ODBC驱动程序。
D BOF DS
D TABLE1 20A
D PADDING 1A
D DATA 7A
D EOF DS
D FLAG 1A
D MyConn S *
D EnvHandle S 10I 0
D ConnHandle S 10I 0
D SqlStmtHandle S 10I 0
D SqlState S 10A
D SqlMessage S 100A
D Sql S 5000A
C *ENTRY PLIST
C PARM TABLE1
C EVAL *INLR = *ON
C CALL 'QZQQMCL'
C 'QZQQINIT'
C Parm MyConn
C IF MyConn <> *NULL
C CALL 'SQLAllocHandle'
C Parm SQL_HANDLE_ENV
C Parm *NULL
C Parm EnvHandle
C CALL 'SQLSetEnvAttr'
C Parm EnvHandle
C Parm SQL_ATTR_ODBC_VERSION
C Parm SQL_OV_ODBC3
C CALL 'SQLAllocHandle'
C Parm SQL_HANDLE_DBC
C Parm EnvHandle
C Parm ConnHandle
C CALL 'SQLConnect'
C Parm ConnHandle
C Parm 'MySQL'
C Parm Userid
C Parm Password
C IF SQLCODE = 0
C EVAL SqlStmtHandle = *NULL
C CALL 'SQLAllocHandle'
C Parm SQL_HANDLE_STMT
C Parm ConnHandle
C Parm SqlStmtHandle
C IF SQLCODE = 0
C EVAL Sql = 'SELECT * FROM '
C + %trim(TABLE1)
C CALL 'SQLExecDirect'
C Parm SqlStmtHandle
C Parm Sql
C IF SQLCODE = 0
C CALL 'SQLFetch'
C Parm SqlStmtHandle
C IF SQLCODE = 0
C EVAL PADDING = ' '
C EVAL DATA = %trim(DATA) +
C PADDING
C ENDIF
C ENDIF
C ENDIF
C ENDIF
C ELSE
C EVAL SqlState = ' '
C DO SqlCode = 1 TO %SUBST(SqlMessage,1, %SUBST(SqlMessage:1:1x)).
C ENDIF
C ENDIF
C ENDIF
C CALL 'SQLError'
C Parm EnvHandle
C Parm ConnHandle
C Parm SqlStmtHandle
C Parm SqlState
C Parm *NULL
C Parm SqlMessage
C Parm 100
C EVAL *INLR = *ON
C QUIT
免责申明:文章和图片全部来源于公开网络,如有侵权,请通知删除 server@dude6.com
用户评论
相关推荐
在IBM i (OS/400)上使用RPG程序访问MySQL数据库
本示例展示了如何在IBM i (OS/400)上使用RPG程序访问MySQL数据库。通过建立ODBC连接,RPG程序可以读写MySQL数据库中的数据,并进行一些简单数据操作。在连接建立之前,需要在IB
IBM Rational Development Studio for i Version: 9.6.0.0
RPG
2023-05-22 13:07
在IBM i (OS/400)上使用RPG编程语言(IBM i (OS/400))
IBM i (OS/400)是一种流行的操作系统,广泛用于企业级应用程序的开发和部署。其中,RPG编程语言是一种高级编程语言,适用于开发企业级应用程序。本文将介绍在IBM i (OS/400)上使用R
IBM i (OS/400) V7R4,Rational Developer for i 9.6
Rational Developer for i
2023-04-03 04:01
如何在IBM i(OS/400)上编写RPG程序来访问MySQL数据库
本示例代码演示如何在IBM i系统中,使用RPG语言来访问MySQL数据库,实现数据读取和更新。/copy z_mysql_h准备数据库连接参数
IBM i7.3
IBM Power Systems Developer Center
2023-03-18 22:49
在IBM i (OS/400)中使用RPG程序连接MySQL数据库
本示例展示如何使用RPG程序在IBM i (OS/400)系统中连接MySQL数据库,并进行读写操作。使用IBM i (OS/400)自带的JDBC驱动程序进行连接,并通过sample数据表进行增删改
IBM i (OS/400) V7R3
RPG程序
2023-05-28 10:09
在IBM i (OS/400)上使用Python调用RPG IV程序
本示例展示了如何在IBM i (OS/400)操作系统上使用Python编程语言调用RPG IV程序。Python是一种流行的高级编程语言,它与IBM i系统平台兼容。RPG IV是一种程序设计语言,
Python 3.7.2, IBM i (OS/400) 7.3
IBM i Access Client Solutions
2023-04-27 04:02
在 IBM i (OS/400) 上如何使用 SQL 调用 RPG 程序
本例中展示了如何使用在IBM i系统上使用SQL语句调用RPG程序。RPG程序将被传递变量后,将输出被返回到SQL查询的结果集中。CREATE FUNCTION MY_RPG_FUNCTION (I
IBM i 7.4
IBM RPG编译器
2023-05-24 11:52
使用IBM i (OS/400)执行RPG程序
IBM i(先前称为OS/400)是IBM的操作系统,广泛用于企业应用程序。本示例演示了如何在IBM i上执行RPG(Report Program Generator)程序,这是一种常见的编程语言,用
IBM i (OS/400)
RPG编程环境
2023-11-01 06:52
如何在IBM i (OS/400)上运行RPG程序
本文将介绍如何在IBM i (OS/400) 操作系统上运行RPG程序,同时提供一些示例代码和代码释义,以及总结。示例代码以下是一个简单的RPG程序示例: FMyFile IF
7.3
IBM i Access Client Solutions
2023-04-10 00:14
在IBM i (OS/400)上使用RPG程序的WebService调用示例
该示例展示了如何在IBM i (OS/400)上使用RPG程序调用远程Web服务。这个简单的示例使用了IBM i (OS/400)的HTTPAPI服务以及SOAP客户端RPC。通过这个示例,你可以学习
IBM i 7.3
RPG
2023-03-18 23:54
在IBM i(OS/400)上使用RPG编写XML文档生成程序
该示例代码展示了如何在IBM i(OS/400)上使用RPG编写XML文档生成程序。通过使用IBM i(OS/400)自带的XML Toolkit,程序可以生成一个符合XML规范的文档,并将其保存在I
IBM i(OS/400) V7R3
RPG IV
2023-04-29 02:01