Deleting Rows

The following example uses the CreateSQL method to delete rows from the emp table.

Set OO4OSession = CreateObject("OracleInProcServer.XOraSession")

Set EmpDb = OO4OSession.OpenDatabase("ExampleDb", "scott/tiger", 0)

EmpDb.Parameters.Add "ENAME", "JONES", ORAPARM_INPUT

Set sqlStatement = EmpDb.CreateSQL ("DELETE from emp

WHERE ename = :ENAME")

To delete another row from the emp table, the parameter is value changed and the SQLStatement object is refreshed.

EmpDb.Parameters("ENAME").Value = "KING"

sqlStatement.Refresh