dim conn as adodb.connection
dim strout as string'进行数据库连接
conn.excute "pro_getovercan '& strout & "'"
debug.print strout
'参数要用单引号括起来!!!

解决方案 »

  1.   

    VAR dang_code_str VARCHAR2;
    EXECUTE PROCEDURE pro_getovercan(:dang_code_str);
      

  2.   

    VAR dang_code_str VARCHAR2;
    begin
       pro_getovercan(:dang_code_str); 
    end;
      

  3.   

    SQL>VAR dang_code_str VARCHAR2;
    SQL>begin
    2   pro_getovercan(:dang_code_str); 
    3 end;
    4 .
    SQL>/
    SQL>print dang_code_str;
      

  4.   

    在sql*plus中
    SQL>VAR parmeter1 VARCHAR2;
    SQL>EXECUTE procedure1(:parmeter1);
    SQL>print parmeter1;