FireDAC.OraclStoredProc Sample

From RAD Studio Code Examples
Jump to: navigation, search

This sample demonstrates how to work with Oracle stored procedures.

Location

You can find the OraclStoredProc sample project at:

  • Start | Programs | Embarcadero RAD Studio Sydney | Samples and then navigate to:
    • Object Pascal\Database\FireDAC\Samples\DApt Layer\Oracl_StoredProc
  • Subversion Repository:
    • You can find Delphi code samples in GitHub Repositories. Search by name into the samples repositories according to your RAD Studio version.

Description

The OraclStoredProc sample shows you how to work with Oracle stored procedures.

Note: This demo requires Oracle Demo connection definition. See Demo Databases.

How to Use the Sample

  1. Navigate to the location given above and open Ora_StoredProc.dproj.
  2. Press F9 or choose Run > Run.
  3. Click on the Use Connection Definition combo box and select an option.

Files

File in Delphi Contains

Ora_StoredProc.dproj
Ora_StoredProc.dpr

The project itself.

fOra_StoredProc.pas
fOra_StoredProc.fmx

The main form.

Implementation

The sample implements the following features.

Create table adapter

  var
    oAdapt: IFDDAptTableAdapter;
    // ...
  begin
    // create table adapter
    FDCreateInterface(IFDDAptTableAdapter, oAdapt);

Assign command

  var
    oComm: IFDPhysCommand;
    // ...
  begin
    // ...
    with oAdapt do begin
      FConnIntf.CreateCommand(oComm);
      SelectCommand := oComm;

Set the DatSTable name

To set the DatSTable name where the rows are fetched, type the following:

      DatSTableName := 'StoredProc';

Set up the SelectCommand property

The SelectCommand property is set up by setting the following properties:

  • BaseObjectName to set the package name.
  • CommandText to set the procedure name.
  • Command Kind to set the kind of content of the CommandText property. It is set to stored procedure with cursor.

Once the parameters are set up, the sample calls the Prepare method.

      with SelectCommand do begin
        // set package name
        BaseObjectName := 'FDQA_testpack';
        // set porcedure's name
        CommandText := 'SelectShippers';
        // we have stored procedure with cursor
        CommandKind := skStoredProcWithCrs;
        Prepare;
      end;

Fetch rows

      Define;
      Fetch;

Uses

See Also

Samples