MinimumSize Property Example

NOTE: This example needs the following in order to be run: a PLSQL procedure EmployeeLong with a GetEmpName procedure that uses a table with column name ENAME_LONG that returns a long ename of approximately 200 characters.

Sub Form_Load ()

' Declare variables as OLE Objects.

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim OraDynaset As OraDynaset

' Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

' Create the OraDatabase Object.

Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)

' Add EMPNO as an Input/Output parameter and set its initial value.

OraDatabase.Parameters.Add "EMPNO", 9999, ORAPARM_INPUT

' Add ENAME as an Output parameter and set its initial value.

OraDatabase.Parameters.Add "ENAME_LONG", "foo", ORAPARM_OUTPUT

OraDatabase.Parameters("ENAME_LONG").MinimumSize = 201 'Since we require to hold a value of more than 128 bytes

' Execute the Stored Procedure Employee.GetEmpName to retrieve ENAME_LONG.

OraDatabase.ExecuteSQL ("Begin EmployeeLong.GetEmpName (:EMPNO, :ENAME_LONG); end;")