如何在IBM i（OS/400）上编写RPG程序来访问MySQL数据库

本示例代码演示如何在IBM i系统中，使用RPG语言来访问MySQL数据库，实现数据读取和更新。

/copy z_mysql_h准备数据库连接参数                            
    connectString = 'DRIVER=MySQL ODBC 5.1 Driver;Server=myserver;Database=mydatabase;Uid=myusername;Pwd=mypassword;'；    
    z_mysql_set_connect_string(connectString:1)；

    /copy z_mysql_h                   
    connNum = z_mysql_get_new_connect()；
    z_mysql_connect(connNum:1)；

    /copy z_mysql_h                   
    sql = 'SELECT * FROM mytable'；
    z_mysql_query(connNum:sql:1)；          //查询并获取结果集  

    /copy z_mysql_h                   
    z_mysql_fetch_assoc(connNum:%addr(row):%addr(has_next_row):1)；
    dow has_next_row；
        ... // 处理查询结果
        z_mysql_fetch_assoc(connNum:%addr(row):%addr(has_next_row):1)；
    enddo；

    /copy z_mysql_h                   
    sql = 'UPDATE mytable SET mycolumn = myvalue WHERE myid = 1'；
    z_mysql_query(connNum:sql:1)；          //执行更新操作

    /copy z_mysql_h
    z_mysql_close(connNum)；                //关闭连接，释放资源

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