Table of Contents
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
- Navigate to the location given above and open
Ora_StoredProc.dproj
. - Press F9 or choose Run > Run.
- 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
1 2 3 4 5 6 |
var oAdapt: IFDDAptTableAdapter; <em>// ...</em> begin <em>// create table adapter</em> FDCreateInterface(IFDDAptTableAdapter, oAdapt); |
Assign command
1 2 3 4 5 6 7 8 |
var oComm: IFDPhysCommand; <em>// ...</em> begin <em>// ...</em> 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:
1 |
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.
1 2 3 4 5 6 7 8 9 |
with SelectCommand do begin <em>// set package name</em> BaseObjectName := 'FDQA_testpack'; <em>// set porcedure's name</em> CommandText := 'SelectShippers'; <em>// we have stored procedure with cursor</em> CommandKind := skStoredProcWithCrs; Prepare; end; |
Fetch rows
1 2 |
Define; Fetch; |
Uses
- FDCreateInterface
- IFDPhysCommand
- IFDPhysConnection
- Prepare
- The sample also uses some methods such as Define or Fetch of the following units:
- FireDAC.DApt.Intf
- FireDAC.DApt
For the original post please refer to the link below:
http://docwiki.embarcadero.com/CodeExamples/Sydney/en/FireDAC.OraclStoredProc_Sample
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition