怎么才能才VB里面导入存贮过程！大侠们请！

Question

我现在需要做个安装程序，在这里要把StoreProcedure导入到Oracle里，没头绪！
该怎么做呀！或者做个批处理也成，大家帮忙想想，最好有什么Sample，谢先！

Answer 1

连接数据库以后，用创建StoreProcedure的语句呀！SQL没有问题！

Answer 2

可是怎么调用呀？
我现在的SP都是些在***header.sql,和***body.sql的文件里的，现在好多个这样的文件，但是不能把这些SP的内容都在VB里写吧！
或者我可以在VB里打开sql文件，把里面的内容都读出来，但是这要怎么写呀？
最好是能在VB调用sqlplus,然后我有一个总的SQL文件，把它到进去就可以了！前辈们帮小弟想想办法啊！谢过了！

Answer 3

Oracle没用过。
SQL Server中有个Osql.exe，Oracle中有没有类似的？

Answer 4

sqlplus就可以导的呀
就不知道vb里怎么用

Answer 5

帮忙up的也谢谢！好兄弟啊，感动ing...

Answer 6

storeprodece是SQL的，还是ORACLE的，如果是SQL的，导到ORACLE可能也不能执行吧？

Answer 7

storeprodece本来就是ORACLE里的，现在只不过想要做个安装程序，把所有的ORACLE的SQ一次性的安装到数据库里！

Answer 8

先建立DB_ORACLE连接到你的ORACLE数据库
CONTRACT_INFO为procedure名
其中有两个参数:v_user_no(字符型),v_type(字符型),返回值为v_isvalid(整型)
调用如下:
Dim PRO_RETURN As Integer
Dim proc As New ADODB.Command
proc.CommandText = "CONTRACT_INFO"
proc.ActiveConnection = DB_ORACLE
proc.CommandType = adCmdStoredProc
DB_ORACLE.BeginTrans
proc.Parameters.Append proc.CreateParameter("v_user_no", adVarChar, adParamInput, 32, Trim(Text1.Text))
proc.Parameters.Append proc.CreateParameter("v_type", adVarChar, adParamInput, 32, Trim(Combo2.Text))
proc.Parameters.Append proc.CreateParameter("v_isvalid", adInteger, adParamReturnValue, 1)
proc.Execute
PRO_RETURN = proc.Parameters("v_isvalid").Value

Answer 9

谢谢楼上这位朋友！
不过还得请教一下：
Oracle的sp分成header和body两个部分，那就是每个sp都要到两次咯？
你的Text1.Text，和Combo2.Text，我应该传什么东西进去呢？

Answer 10

转贴一篇文章，由于我用的是日文操作系统，有些字是乱码
————————————————————————————
Oracle 存??程返回?果集    microchu（收藏）  
  
??字     oracle、存??程、?果集 
  
1.返回数? (作者:enhydraboy(乱舞的浮?) )在oracle后台?建一个程序包或者存??程
connect scott/tiger;CREATE OR REPLACE PACKAGE ado_callpkg AS
TYPE eid IS TABLE of NUMBER(4) INDEX BY BINARY_INTEGER;
TYPE ename IS TABLE of VARCHAR2(40) INDEX BY BINARY_INTEGER;
PROCEDURE getEmpNames (empid OUT eid,empname OUT ename);
end ado_callpkg;
CREATE OR REPLACE PACKAGE BODY ado_callpkg  AS
PROCEDURE getEmpNames (empid OUT eid,empname OUT ename) IS
CURSOR c1 IS select employee_id,first_name||','||Middle_Initial||','||last_name as name from employee;
cnt NUMBER DEFAULT 1;
c c1%ROWTYPE;
BEGIN
open c1;
LOOP
      FETCH c1 INTO c;
      empname(cnt):=c.name;
      empid(cnt):=c.employee_id;
      EXIT WHEN c1%NOTFOUND;  -- process the data
       cnt :=cnt+1;
  END LOOP;
close c1;
END;
end ado_callpkg;2 前台vb程序?用 Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cmd As New ADODB.Command
    Dim str As String
    
    str = "{call ado_callpkg.getEmpNames({resultset 100,empid,empname})}"
    cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=ORACLE;Persist Security Info=True"
    With cmd
        .CommandText = str
        .ActiveConnection = cn
        .CommandType = adCmdText
    End With
    
    rs.CursorLocation = adUseClient
    rs.Open cmd
    Do While Not rs.EOF
    
        Debug.Print rs.Fields(0).Value & vbTab & rs.Fields(1).Value
        rs.MoveNext
    Loop------------??
1 oracle的后台存??程，??通?一个?似数?并且?有数字索引的?量返回，有多少个列，就有??多少个?量
2 前台，?用的sql?句写法要注意，
{call <package_name>.<prodecure name>(<input1>,<input2>,....<inputn>,{resultset <number>,<output1>,<output2>,...<outputn>})}
注意的??，
(1) <number>要自己指定一个数字，表示接受的行数大小，如果太小，而??返回的??大于?个数字，会出?
(2) 如果有?入参数，??在command中?建?入参数,??的地方用?替代，如
{call ado_callpkg.getEmpNames(?,{resultset 100,empid,empname})}
(3) output和?存?函数的定?一致，参数名要一?，次序也一?，否?也会出?。 

Answer 11

楼上的朋友是调用sp吧！我要知道，在vb里怎么创建sp,但是还是谢谢你了！