不支持过载的pl/sql 过程/函数

Question

使用ADO连接的Oracle 10.2数据库，由于是运行环境报出来的，只有截图，也不清楚是数据库报的还是ADO引擎报出来的，大家有相类似的情况么？

Answer 1

这里无法上传图片
图中就是一个提示框，内容只有“不支持过载的pl/sql 过程/函数”没有多余的。

Answer 2

Exception提示框内也没有任何Oracle的出错编码，所以我判断有可能是ado的提示。

Answer 3

在plsqldev/toad等工具调试你的存储过程或函数，如果没有问题，那就是ADO的原因了，比如ADO里面的存储过程是否使用了你连接用户没有权限访问的那些个存储过程之类。重装编译环境再试。
我用VB调用没问题，用的是9i的例题。
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2556
   ClientLeft      =   48
   ClientTop       =   276
   ClientWidth     =   3744
   LinkTopic       =   "Form1"
   ScaleHeight     =   2556
   ScaleWidth      =   3744
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Get Dept No. for an Employee No."
      Height          =   492
      Left            =   360
      TabIndex        =   1
      Top             =   1440
      Width           =   2892
   End
   Begin VB.CommandButton Command1 
      Caption         =   " Get Employee Records by Dept"
      Height          =   492
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   2892
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()Dim Oracon As ADODB.Connection
Dim recset As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim param1 As New ADODB.Parameter
Dim param2 As New ADODB.Parameter
Dim objErr As ADODB.Error
Dim Message, Title, Default, EmpNoValueMessage = "Enter an employee number (5000 - 9000)"
Title = "Choose an Employee"
Default = "7654"On Error GoTo err_testEmpNoValue = InputBox(Message, Title, Default)
If EmpNoValue = "" Then Exit Sub
  
If EmpNoValue < 5000 Or EmpNoValue > 9000 Then EmpNoValue = 7654Set Oracon = CreateObject("ADODB.Connection")
Oracon.ConnectionString = "Provider=OraOLEDB.Oracle;" & _
                          "Data Source=db816;" & _
                          "User ID=scott;" & _
                          "Password=tiger;" & _
                          "PLSQLRSet=1;"
Oracon.OpenSet cmd = New ADODB.Command
Set cmd.ActiveConnection = OraconSet param1 = cmd.CreateParameter("param1", adSmallInt, adParamInput, , EmpNoValue)
cmd.Parameters.Append param1
Set param2 = cmd.CreateParameter("param2", adSmallInt, adParamOutput)
cmd.Parameters.Append param2cmd.CommandText = "{CALL Employees.GetDept(?, ?)}"
Set recset = cmd.Execute
MsgBox "Number: " & EmpNoValue & "  Dept: " & recset.Fields("deptno").ValueExit Suberr_test:
  MsgBox Error$
  For Each objErr In Oracon.Errors
    MsgBox objErr.Description
  Next
  Oracon.Errors.Clear
  Resume Next
  
End SubPrivate Sub Command2_Click()Dim Oracon As ADODB.Connection
Dim recset As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim param1 As New ADODB.Parameter
Dim param2 As New ADODB.Parameter
Dim objErr As ADODB.Error
Dim Message, Title, Default, DeptValueMessage = "Enter a department number (10, 20, or 30)"
Title = "Choose a Department"
Default = "30"On Error GoTo err_testDeptValue = InputBox(Message, Title, Default)
If DeptValue = "" Then Exit Sub
If DeptValue < 10 Or DeptValue > 30 Then DeptValue = 30
  
Set Oracon = CreateObject("ADODB.Connection")
Oracon.ConnectionString = "Provider=OraOLEDB.Oracle;" & _
                          "Data Source=db816;" & _
                          "User ID=scott;" & _
                          "Password=tiger;" & _
                          "PLSQLRSet=1;"
Oracon.OpenSet cmd = New ADODB.Command
Set cmd.ActiveConnection = OraconSet param1 = cmd.CreateParameter("param1", adSmallInt, adParamInput, , DeptValue)
cmd.Parameters.Append param1
Set param2 = cmd.CreateParameter("param2", adSmallInt, adParamOutput)
cmd.Parameters.Append param2cmd.CommandText = "{CALL Employees.GetEmpRecords(?, ?)}"
Set recset = cmd.Execute
Do While Not recset.EOF
   MsgBox "Number: " & recset.Fields("empno").Value & "  Name: " & _
   recset.Fields("ename").Value & "  Dept: " & recset.Fields("deptno").Value
   recset.MoveNext
Loop
  
Exit Sub
   
err_test:
  MsgBox Error$
  For Each objErr In Oracon.Errors
    MsgBox objErr.Description
  Next
  Oracon.Errors.Clear
  Resume Next
End Sub

Answer 4

这些过包都在一个package里，应该不是权限问题。现在这个事搞得项目无法推进，真是恼人，各位大侠救命啊。