ORA-06550: line 1, column 7: PLS-00306: wrong number or types of arguments in call to

[kaashiefl]

Hi there

Please help with this error ORA-06550

Im trying to call this procedure from within VB. please help with this error

PLSQL
-----

create or replace procedure sel_barcode (p_barcode OUT VARCHAR2, p_productcode OUT VARCHAR2)
 
is
 
begin
  select barcode, PRODUCTCODE into p_barcode, p_productcode from barcode where barcode = '00123001';
 
 
end;
 
 
 
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
  With Me
     Dim con1 As New OracleConnection("Data Source=localhost;User Id=xxx;Password=xxx")
 
      'Declare Variables
      Dim theFnameString, theLnameString As String
      Dim messageString As String
      Dim opBarCode = New SqlParameter("@resBarCode", SqlDbType.NVarChar)
      opBarCode.Direction = ParameterDirection.Output
      opBarCode.Size = 50
 
      Dim opProdCode = New SqlParameter("@resProdCode", SqlDbType.NVarChar)
      opProdCode.Direction = ParameterDirection.Output
       opProdCode.Size = 50
 
       Dim addTherapistCommand As New OracleCommand("sel_barcode ", con1)
       addTherapistCommand.CommandType = CommandType.StoredProcedure
 
 
       addTherapistCommand.Parameters.Add("@resBarCode", OracleType.VarChar, 50).Direction = ParameterDirection.Output
       addTherapistCommand.Parameters.Add("@resProdCode", OracleType.VarChar, 50).Direction = ParameterDirection.Output
 
 
            'Open Connection
                Try
                    con1.Open()
 
                Catch ex As Exception
                    MessageBox.Show(ex.ToString())
                Finally
                End Try
 
 
                'Execute oracle "add_therapist" procedure
                addTherapistCommand.ExecuteNonQuery()
                addTherapistCommand.Parameters.Clear()
                addTherapistCommand.Dispose()
                con1.Close()
 
                'Clear TextBoxes
                With Me
                    .theLnameTextBox.Clear()
                    With .theFnameTextBox
                        .Clear()
                        .Focus()
                    End With
                End With
                messageString = "Update Complete"
                MessageBox.Show(messageString, "Database Upadated", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End With
 
        End Sub

[Rabbit]

Please use code tags when posting code or formatted data.

The issue is most likely line 6. You can only SELECT ... INTO 1 table, not multiple tables.