VBA宏调用Oracle PL/SQL Procedure

1.定义一个测试Procedure,这个Procedure用于给临时表插入一条记录

create  sequence pt_debug_sequence
INCREMENT BY 1 -- 每次加几个
START WITH 1 -- 从1开始计数
NOMAXVALUE -- 不设置最大值
NOCYCLE -- 一直累加，不循环
CACHE 10;

--1. Create temp table.
create  table pt_debug_tab (seq INTEGER,text Varchar2(300),datetag Varchar2(30));

--2. Create procedure.
create or replace
procedure pt_debug(inStr Varchar2) as
PRAGMA AUTONOMOUS_TRANSACTION; 
BEGIN 
INSERT INTO pt_debug_tab VALUES(pt_debug_sequence.NEXTVAL,inStr,to_char(sysdate,'hh:mi:ss')); 
COMMIT; 
END;

2.VBA中的代码，参照： VBA - Hello World 样式，在Sheet中插入一个测试按钮，然后在按钮事件中加入下边的Macro代码

Private Sub CommandButton1_Click()
 
Dim rs As Object, com As Object, cn As Object

Set cn = CreateObject("ADODB.Connection")