dim conn as adodb.connection
dim strout as string'进行数据库连接
conn.excute "pro_getovercan '& strout & "'"
debug.print strout
'参数要用单引号括起来!!!
dim strout as string'进行数据库连接
conn.excute "pro_getovercan '& strout & "'"
debug.print strout
'参数要用单引号括起来!!!
EXECUTE PROCEDURE pro_getovercan(:dang_code_str);
begin
pro_getovercan(:dang_code_str);
end;
SQL>begin
2 pro_getovercan(:dang_code_str);
3 end;
4 .
SQL>/
SQL>print dang_code_str;
SQL>VAR parmeter1 VARCHAR2;
SQL>EXECUTE procedure1(:parmeter1);
SQL>print parmeter1;