Enable network service (ACL) and Send mail from APEX

Enabling Network Service: By default, the ability to interact with network services is disabled in Oracle Database 11g. Therefore, you must use the BMS_NETWORK_ACL_ADMIN package to grant connect privileges to any host for the APEX_040200 database user:

DECLARE
  ACL_PATH VARCHAR2(4000);
BEGIN
    -- Look for the ACL currently assigned to '*' and give APEX_040200
    -- the "connect" privilege if APEX_040200
    -- does not have the privilege yet.
  SELECT ACL INTO ACL_PATH FROM DBA_NETWORK_ACLS
    WHERE HOST = '*' AND LOWER_PORT IS NULL AND UPPER_PORT IS NULL;
  IF DBMS_NETWORK_ACL_ADMIN.CHECK_PRIVILEGE (ACL_PATH,'APEX_040200','connect') IS NULL THEN
    DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(ACL_PATH,'APEX_040200', TRUE, 'connect');
  END IF;
  EXCEPTION
    -- When no ACL has been assigned to '*'.
  WHEN NO_DATA_FOUND THEN
    DBMS_NETWORK_ACL_ADMIN.CREATE_ACL('power_users.xml',
    'ACL that lets power users to connect to everywhere',
    'APEX_040200', TRUE, 'connect');
  DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL('power_users.xml','*');
END;
/
COMMIT;

Send Mail: Oracle application express send mail using APEX_MAIL package. example…

APEX_MAIL.SEND(
        p_to        => 'email@gmail.com',
        p_from      => 'email2@oracle.com',
        p_subj      => 'APEX_MAIL with attachment',
        p_body      => 'Please review the attachment.',
        p_body_html => '<b>Please</b> review the attachment');
/

Send mail with attachments…

DECLARE
    l_id Number;
    x varchar2(100);
    y BLOB;
    z varchar2(100);
BEGIN
    l_id := APEX_MAIL.SEND(
        p_to        => 'email@gmail.com',
        p_from      => 'email2@oracle.com',
        p_subj      => 'APEX_MAIL with attachment',
        p_body      => 'Please review the attachment.',
        p_body_html => '<b>Please</b> review the attachment');

    SELECT FILENAME, IMAGE, MIMETYPE into x, y, z
        FROM CUSTOMER
        WHERE CUSTOMER_ID = 100;

        APEX_MAIL.ADD_ATTACHMENT(
            p_mail_id    => l_id,
            p_attachment => y,   -- BLOB column name
            p_filename   => x,   -- File Name 
            p_mime_type  => z);  -- MIME column name
END;
/

 

Introduction to PL/SQL (Control Structure)

Control Structure: This chapter shows you how to structure the flow of control through a PL/SQL program. There are three types of Control structure available in PL/SQL, These are Conditional constructs with the IF statements, CASE expression and LOOP control structure.

IF Statements: In Oracle, the IF-THEN-ELSE statement is used to execute code when a condition is TRUE, or execute different code if the condition evaluates to FALSE. It allows PL/SQL to perform actions selectively based on conditions.

Syntax:

IF condition THEN
  statements;
[ELSIF condition THEN
  statements;]
[ELSE
  statements;]
END IF;

Example:

DECLARE
  age number := 40;
BEGIN
  IF age < 11
     THEN DBMS_OUTPUT.PUT_LINE ('I am a child ');
    ELSIF age < 20 
     THEN DBMS_OUTPUT.PUT_LINE ('I am young ');
    ELSE 
     THEN DBMS_OUTPUT.PUT_LINE ('I always young');
  END IF;
END;

Note: ELSIF and ELSE are optional in an IF statements. You can have any number of ELSIF keyword but only one ELSE keyword in your IF statements. END IF makes the end of an IF statements and must be terminated by a semicolon.

CASE Expression: A CASE expression a results based on one or more alternatives. To return the result, the CASE expression uses a selector.  The selector is followed by one or more WHEN clause that are checked sequentially. If the value of the selector equals the value of WHEN clause expression, that WHEN clause is executed & that results is returned.

Syntax:

CASE selector
  WHEN expression1 THEN result1
  WHEN expression2 THEN result2
  ....
  WHEN expressionN THEN resultN
  [ELSE resultN+1]
END;

Example:

DECLARE
  grade VARCHAR2(1) := UPPER('&Grade');
  appraisal VARCHAR2(20);
BEGIN
  appraisal := 
    CASE
        WHEN grade = 'A' THEN 'Excellent'
        WHEN grade = 'B' THEN 'Good'
        WHEN grade IN ('C', 'D') THEN 'Fair'
        ELSE 'No such relusts'
    END;
  DBMS_OUTPUT.PUT_LINE ('Grade: '|| grade ||' appraisal '||appraisal);
END;

CASE Expression & CASE Statement: A case expression evaluates the condition and returns a value. On the other hand, a CASE statements evaluates the condition and perform an actions. A CASE statements can be complete PL/SQL block. CASE statements end with END CASE; but CASE expression end with END.

Example of CASE Statements:

DECLARE
 did NUMBER;
 dname VARCHAR2(20);
 emp NUMBER;
 mid NUMBER := 108;
BEGIN
  CASE mid
   WHEN 108 THEN
     SELECT department_id, department_name
     INTO did, dname FROM departments
     WHERE manager_id = 108;
   SELECT count(*) INTO emp FROM employees
    WHERE department_id = did;
  WHEN 200 THEN
  .........
  END CASE;
  DBMS_OUTPUT.PUT_LINE ('You are working in the ' || dname ||
  ' department. There are '|| emp || ' employees in this department');
END;

LOOP Statements: Loops are mainly used to execute statements repeatedly until an exit condition are reached. It is mandatory to have an exit condition in a loop, otherwise the loop is infinite. There are three loop types…

  • BASIC Loop
  • FOR Loop
  • WHILE Loop

Basic Loop: A basic loop allows execution of its statements at least once, even if the condition has been met upon entering the loop. Example are…

DECLARE
  star VARCHAR2(20);
BEGIN
  LOOP
  DBMS_OUTPUT.PUT_LINE (star);
    star := star||'*';
  EXIT WHEN LENGTH(star) > 5;
  END LOOP;
END;

WHILE Loop: Use the WHILE loop to repeat statements while a condition is TRUE. Example are…

DECLARE
  star VARCHAR2(20);
BEGIN
  star := '*';
  WHILE LENGTH(star) < 6 LOOP
  DBMS_OUTPUT.PUT_LINE (star);
    star := star||'*';
  END LOOP;
END;

FOR Loop:  Use FOR loop to shortcut the test for the number of iteration. Do not declare the counter, it is declared implicitly by lower_bound ..upper_bound syntax. Example are…

DECLARE
  star VARCHAR2(20);
BEGIN
  FOR i IN 0..5 LOOP
  DBMS_OUTPUT.PUT_LINE (star);
    star := star||'*';
  END LOOP;
END;

continue…..

Introduction to PL/SQL (SQL Statements)

SQL Statements in PL/SQL: PL/SQL supports data manipulation language (DML) and transaction control language (COMMIT, ROLLBACK, SAVEPOINT). You can use DML commands to modify the data in a database table. PL/SQL dose not directly support DDL statements, such as – CREATE TABLE, ALTER TABLE, DROP TABLE. These statements are dynamic SQL statements. Dynamic statements are built as character string at run time and can contain placeholders and parameters. Therefore, you can use dynamic SQL to execute your DDL statements in PL/SQL. Use the EXECUTE IMMEDIATE statement, which takes the SQL statements as an argument to execute your DDL statements.

SELECT statement: Retrieve data from the database with SELECT statement. In SELECT statement INTO clause is required, and query must return only one row.

Syntax:

SELECT select list ....
INTO {variable_name [, variable_name] ...
     | record_name}
FROM table
 [WHERE condition];

Example:

SET SERVEROUTPUT ON
DECLARE
  sum_sal NUMBER(10,2);
  deptno NUMBER NOT NULL := 60;
BEGIN
  SELECT SUM(salary) -- group function
  INTO sum_sal FROM employees
  WHERE department_id = deptno;
 DBMS_OUTPUT.PUT_LINE ('The sum of the salary is '||sum_sal);
END;
/

 If your requirement is to retrieve multiple rows and operate on the data. You can make use of explicit cursor. I discus about later.

Insert Statement:

BEGIN
  INSERT INTO employees
    (employee_id, first_name, last_name, email, salary)
   VALUES (employees_seq.NEXTVAL, 'Ali', 'Asgor', 'abc@ca.com', 4200);
END;
/

Update Statement:

DECLARE
  sal emp.salary%TYPE := 8000;
BEGIN
  UPDATE employees
  SET salary = sal
  WHERE job_id = 'ST_CLERK';
END;
/

Delete Statement:

DECLARE
  dept emp_department_id%TYPE := 10;
BEGIN
  DELETE FROM employees
  WHERE department_id = dept;
END;
/

Merge Statement:

DECLARE
  empno emp.employee_id%TYPE := 100;
BEGIN
  MERGE INTO copy_emp c
    USING emp e
    ON (e.employee_id = c.employee_id)
  WHEN MATCHED THEN
   UPDATE SET
    c.first_name = e.first_name,
    c.last_name  = e.last_name,
    .........
    c.manager_id = e.manager_id
  WHEN NOT MATCHED THEN
   INSERT VALUES (e.employee_id, e.first_name, ...... e.manager_id);
END;
/

SQL Cursor: A cursor is a pointer to the private memory area allocated by the oracle server. There are two type of cursor one is Implicit that’s create and manage internally by the oracle server, another is Explicit cursor that’s explicitly declared by the programer.

SQL Cursor attribute:

Attribute Description
SQL%FOUND Boolean Attribute that evaluates to TRUE if the most resent SQL statement returned at least one row.
SQL%NOTFOUND Boolean Attribute that evaluates to TRUE if the most recent SQL statement did not return even one row.
SQL%ROWCOUNT An integer value that represents the number or rows affected by the most recent SQL statement

Example:

VARIABLE rows_deleted VARCHAR2(30);
DECLARE
  empno emp.employee_id%TYPE := 105;
BEGIN
  DELETE FROM employees
  WHERE employee_id = empno;
 :rows_deleted := (SQL%ROWCOUNT || 'rows deleted');
END;
/
PRINT rows_deleted

SQL functions: Most of the function are valid in PL/SQL expression. But the following functions are not available in procedural statements.

  • DECODE
  • Group functions: AVG, MIN, MAX, COUNT, SUM, STDDEV and VARIANCE. Group functions apply to groups of a rows in a table and therefore are available only in SQL statements in a PL/SQL block.

continue…..

Introduction to PL/SQL (Lexical Units & Operator)

Lexical Units: Lexical units include letters, numerals, special characters, tabs, spaces, returns and symbol that building a PL/SQL block. Lexical unit can classified as following…

  • Identifier
  • Delimiters
  • Literals
  • Comments

Identifier: Identifier are the names given to PL/SQL objects.
Quoted Identifier: Quoted identifier makes identifier case sensitive, include character such as space and use reserved words. example-

“begin date” DATE;
“end adte” DATE;

Delimiters: Delimiters are symbols that have special meaning. I know you have already learned about that the semicolon (;) is used to terminate a SQL & PL/SQL statement. Therefore, (;) is the best example of a delimiters. A list of delimiters are following-

Symbol Meaning
+ Addition Operator
Subtraction/Negation Operator
* Multipluication Operator
/ Division Operator
= Equalty Operator
@ Remote access indicator
; Statement Terminator
<> Inequality Operator
!= Inequality Operator
|| Concatention Operator
Single line Comment ondicator
/* Beginning Comments Indicator
*/ Ending Comment Indicator
:= Assignment Operator

Literals: Any value that is assigned to a variable is a literal. Any character, numeral, boolean or date value that is not an identifier is a literal. Literal can classified as …
1. Character Literal : Such as – Asgor, 124c, 11-jan-2014
2. Numeric Literal : Such as – 51478, 45.457
3. Boolean Literal : TRUE, FALSE and NULL is boolean literals.

Comments: It is good programming practice to explain what a piece of a code is trying to achieve. When you include the explanation in a PL/SQL block, the compiler cannot interpret these instruction. Comments are given by the …

– Two hyphen (–) are used to single line comment.
– The beginning and ending comments delimiters (/* and */) are used to comments multiple lines.

continue….

Introduction to PL/SQL (Composite Data Type)

Composite data type: Composite data type stores values that have internal components. You can pass entire composite variables to subprograms as parameters, and you can access internal components of composite variables individually. Internal components can be either scalar or composite. You can use scalar components wherever you can use scalar variables or you can use composite components wherever you can use composite variables of the same type. There are two types of composite data type…

  • 1. PL/SQL records.
  • 2. PL/SQL collection.
    • INDEX by Table
    • Nested Table
    • VARRAY

1. PL/SQL records: Use PL/SQL records when you want to store values of different data types but only one occurrence at a time. PL/SQL record must contain one or more components (called fields) of any scalar, RECORD or Index by table data type.

Creating PL/SQL records:

Syntax:
TYPE type_name is RECORD
    (field_declaration [, field_declaration ]...);
identifier type name;

field_declaration:
field_name {field_type | variable%type
           | table.column%type | table%rowtype}
           [[NOT NULL] {:= | DEFAULT} expr]

Example:

...
TYPE emp_record_type IS RECORD
     (lname VARCHAR2(20),
      job_id VARCHAR2(30)  DEFAULT 'Developer',
      salary NUMBER emp.salary%TYPE);
emp_type emp_record_type;
...

Using %ROWTYPE in composite data type: The %ROWTYPE attribute is useful when the number and data types of the underlying database columns is unknown and  retrieving a row with the SELECT * from statement.

Example:

DECLARE
  emp_rec employees%ROWTYPE;
BEGIN
  SELECT * INTO emp_rec FROM employees
    WHERE employee_id = 124;
  emp_rec.hire_date := SYSDATE;
 UPDATE EMP SET ROW = emp_rec;
END;