plsql连mysql数据库

DECLARE
    -- 定义变量
    conn UTL_TCP.connection;
    host VARCHAR2(20) := 'mysql_host';
    port VARCHAR2(10) := '3306';
    user_name VARCHAR2(20) := 'mysql_user';
    password VARCHAR2(20) := 'mysql_password';
    db_name VARCHAR2(20) := 'mysql_database';
BEGIN
    -- 建立与MySQL数据库的连接
    conn := UTL_TCP.open_connection(remote_host => host, remote_port => port, charset => 'AL32UTF8');
    
    -- 发送连接命令
    UTL_TCP.write_line(conn, 'CONNECT ' || db_name || ';' || user_name || ';' || password || ';');
    
    -- 执行SQL查询
    UTL_TCP.write_line(conn, 'SELECT * FROM table_name;');
    
    -- 读取查询结果
    LOOP
        EXIT WHEN UTL_TCP.end_of_input(conn);
        DBMS_OUTPUT.put_line(UTL_TCP.get_line(conn, TRUE));
    END LOOP;
    
    -- 关闭连接
    UTL_TCP.close_connection(conn);
EXCEPTION
    WHEN OTHERS THEN
        -- 异常处理
        DBMS_OUTPUT.put_line('An error occurred: ' || SQLERRM);
END;