Re: Executing SP in VB6

Sub ParameterExample()

   Dim cmd As New ADODB.Command

   Dim rs As New ADODB.Recordset

   Dim prm As ADODB.Parameter

   cmd.ActiveConnection = Provider=OraOLEDB.Oracle;User ID=scott;Password=tiger;Data Source=oraDSN;

   ' Set the command's text, and specify that it is an SQL statement.

   cmd.CommandText = "SELECT item_name FROM v_syouhin_info WHERE deptno = ?"

   cmd.CommandType = adCmdText

   ' Set up a new parameter for the select.

   Set prm = cmd.CreateParameter("deptno", adInteger, adParamInput, , 10)

   cmd.Parameters.Append prm

   ' Create a recordset by executing the command.

   Set rs = cmd.Execute

   ' Loop through the recordset and print the first field.

   Do While Not rs.EOF

      Debug.Print rs(0)

      rs.MoveNext

   Loop

   ' Close the recordset.

   rs.Close

End Sub

Sub ParameterExample()

   Dim cmd As New ADODB.Command

   Dim rs As New ADODB.Recordset

   Dim prm As ADODB.Parameter

   cmd.ActiveConnection = Provider=OraOLEDB.Oracle;User ID=scott;Password=tiger;Data Source=oraDSN;

   ' Set the command's text, and specify that it is an SQL statement.

   cmd.CommandText = "STORED_PROCEDURE_NAME"    ' <-- changed

   cmd.CommandType = adCmdStoredProc     ' <-- changed this part too

   ' Set up a new parameter for the select.

   Set prm = cmd.CreateParameter("deptno", adInteger, adParamInput, , 10)

   cmd.Parameters.Append prm

   ' Create a recordset by executing the command.

   Set rs = cmd.Execute

   ' Loop through the recordset and print the first field.

   Do While Not rs.EOF

      Debug.Print rs(0)

      rs.MoveNext

   Loop

   ' Close the recordset.

   rs.Close

End Sub