在IBM i (OS/400)上通过ODBC连接到MySQL数据库

该示例代码介绍了如何在IBM i操作系统上，通过ODBC连接到MySQL数据库。需要先安装iAccess for Linux客户端和unixODBC驱动程序，并配置ODBC数据源。具体实现方式为在IBM i上创建一个ODBC配置文件，其中包含MySQL数据库的连接信息，并使用unixODBC驱动程序实现数据连接。

**free
ctl-opt dftactgrp(*no);

dcl-ds mysqlConDS extname('SQLCONN');
  SQL_ConnectionHandle int(10);
  SQL_StatementHandle int(10);
  SQL_EnvironmentHandle int(10);
end-ds;

dcl-proc ConnectToMySQL;
  dcl-pi *n int(10);
    ServerName char(50);
    UserName char(50);
    Password char(50);
    DbName char(50);
  end-pi;

  dcl-c sqlSuccess 0;
  dcl-c sqlHandleError -99999;
  dcl-c maxErrorBuf 1024;

  //初始化ODBC
  sqlSuccess = SQLAllocHandle( SQL_HANDLE_ENV, SQL_NULL_HANDLE, %addr(mysqlConDS.SQL_EnvironmentHandle) );
  sqlSuccess = SQLSetEnvAttr( mysqlConDS.SQL_EnvironmentHandle, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0 );

  //连接MySQL
  sqlSuccess = SQLAllocHandle( SQL_HANDLE_DBC, mysqlConDS.SQL_EnvironmentHandle, %addr(mysqlConDS.SQL_ConnectionHandle));
  sqlSuccess = SQLConnect( mysqlConDS.SQL_ConnectionHandle, %paddr(ServerName), SQL_NTS, %paddr(UserName), SQL_NTS, %paddr(Password), SQL_NTS );

  //选择数据库
  sqlSuccess = SQLAllocHandle( SQL_HANDLE_STMT, mysqlConDS.SQL_ConnectionHandle, %addr(mysqlConDS.SQL_StatementHandle) );
  sqlSuccess = SQLExecDirect( mysqlConDS.SQL_StatementHandle, %paddr(DbName), SQL_NTS );

  if sqlSuccess <> SQL_SUCCESS;
    //连接错误处理
  endIf;

  return 1;
end-proc;

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