Adsense Ad

Thursday, 4 April 2024

How to export table data into CSV file using Oracle Forms Developer.

 

This article would demonstrate how to export table data into CSV file using Oracle Forms Developer.

 

To fulfil this task, you need Oracle Database, Oracle Forms Developer with client libraries installed e.g client_Text_IO. Follow the following steps to run the code given below:

 

1. Create “Location” table in your Oracle database

 Create table Location(

Location_code varchar(20),

state varchar(20),

Location_details varchar(100)

);

 

2. Insert some rows into the table

Insert into Location(‘LHE,’PUJ’,’LAHORE’);

Insert into Location(‘KHI’,’SIN’,’KARACHI’);

 

3. Paste the following code on button pressed trigger in your form. Then compile and run your form.

DECLARE

— File handler

lv_File client_Text_IO.File_Type;

 

 –File Name

lv_File_Name VarChar2(30);

 

 — Timer variable

lv_wait timer;

 

Cursor Load_Rows is

select

v.Location_code||’,’||

v.state||’,’||

v.Location_details data

from Location v;

 

BEGIN

— File Path

 

lv_File_Name := ‘C:\temp\Locations.csv’;

 

–Open file in write mode

lv_File :=  client_text_io.FOpen(lv_File_Name,’W’);

 

— Write header columns

client_text_io.Put_Line(lv_File,’Code,State,Location Name/Details,Locality,Post Code,Output Type,Active?’);

–Write rows into the file

FOR i IN Load_Rows LOOP

   client_text_io.Put_Line(lv_File, i.DATA);

END LOOP;

–Close File

client_text_io.FClose(v_File);

 

–Open file in read mode

lv_File :=  client_text_io.FOpen(lv_File_Name,’R’);

 

–Close file

client_text_io.FClose(lv_File);

lv_wait := create_timer(‘gen_doc’, 2500, NO_REPEAT);

END;

Friday, 12 May 2023

How to play a video file from a database table?

To play a video file from a database table, you need to store the video file as a BLOB (binary large object) in the table and use Webutil to access it from Oracle Forms. You also need to use the host built-in procedure to invoke a media player that can play the video file. Here is a possible code snippet that you can modify according to your needs:

declare
  v_blob blob;
  v_filename varchar2(100);
  v_player varchar2(100) := 'C:\\Program Files\\Windows Media Player\\wmplayer.exe';
begin
  select video into v_blob from tfile where id = :block.id; -- assuming you have a block with an id item
  v_filename := webutil_file_transfer.as_to_client_with_progress(v_blob,'video.mp4','Downloading video file...'); -- assuming the video file is mp4 format
  host(v_player || ' ' || v_filename); -- invoking the media player with the video file as argument
end;
This code queries the video column from the tfile table based on the id item in the current block1. Then it uses the webutil_file_transfer.as_to_client_with_progress function to transfer the BLOB to a temporary file on the client machine. Finally, it uses the host procedure to launch the Windows Media Player with the temporary file as an argument.

I hope this helps you. Please note that this code is not tested and may not work as expected. You may need to do some adjustments and configurations to make it work.

Wednesday, 19 April 2023

How to create a DB link between two oracle database instances

Oracle has invested heavily in distributed database technology and the creation of a database link is very straightforward.  You specify the database link name, the remote user to connect to, the password for the remote user and the TNS service name for the database link connection:

create public database link
  mylink
connect to
  remote_username
identified by
  mypassword
using 'tns_service_name';

Starting in 11g release 2, the syntax has been enhanced to remove the need to epscify a TNS service_name:

create public database link
  mylink
connect to
  remote_username
identified by
  mypassword
using 'myserver:1521/MYSID';

Above we see that the TNS instance name has been replaced by allowing the server name, port number and Oracle system ID (ORACLE_SID).

You can also create a database link to non-Oracle databases, the steps for a database link to MySQL:

Step 1:  Your first step is having installed the TRANSPARENT GATEWAY (it comes in as of the options when you install Oracle).

Step 2: You must have a user in the SQL Server.

Step 3: In the directory <ORACLE_HOME>\tg4msql\admin look for the file inittg4msql.ora and have the following options:

HS_FDS_CONNECT_INFO="SERVER=name_server;DATABASE=name_db"
HS_FDS_TRACE_LEVEL=OFF
HS_FDS_RECOVERY_ACCOUNT=user_sqlserver
HS_FDS_RECOVERY_PWD=pass_user_sqlserver


Step 4: Configure the listener and add the following

(SID_DESC =
(PROGRAM = tg4msql)
(SID_NAME = MYSQL)
(ORACLE_HOME = C:\oracle1)
)
)


and in our tnsnames.ora add

MYSQL=
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = server_ip)(PORT = 1521))
)
(CONNECT_DATA =
(SID = MYSQL)
)
(HS=OK)
)


where HS set up as a heterogonous service

Step 5: create a link to sql server.

create database link mysql connect to user_in_sqlserver identified by <password> using 'MYSQL';

Step 6: You can now use the database link to a foreign database:

select * from table@mysql
 

Wednesday, 16 November 2022

IMP-00013: only a DBA can import a file exported by another DBA

How to fix IMP-00013: only a DBA can import a file exported by another DBA

Error Description:
Import using imp utility is failing with following error.

Export file created by EXPORT:V11.02.00 via conventional path
IMP-00013: only a DBA can import a file exported by another DBA
IMP-00000: Import terminated unsuccessfully

Solution Description:
This is because of lack of privilege for importing the dump file. The export dump would have taken by a DBA privileged user but the user is trying to import the dump should have at least IMP_FULL_DATABASE privilege or a DBA privileged user can import the dump easily. You can give the access using the following syntax.

Syntax: grant IMP_FULL_DATABASE to username;

Example:


imp file=exp_schema.dmp log=imp_exp_schema.log fromuser=scott touser=test

Import: Release 11.2.0.2.0 - Production on Mon Oct 15 02:03:41 2012

Copyright (c) 1982, 2009, Oracle and/or its affiliates.  All rights reserved.

Username: test
Password:

Connected to: Oracle Database 11g Enterprise Edition Release 11.2.0.2.0 - 64bit Production
With the Partitioning, Real Application Clusters, Automatic Storage Management, OLAP,
Data Mining and Real Application Tes

Export file created by EXPORT:V11.02.00 via conventional path
IMP-00013: only a DBA can import a file exported by another DBA
IMP-00000: Import terminated unsuccessfully


SQL> conn test/test
Connected.

SQL> select * from session_roles;

no rows selected

SQL> conn / as sysdba
Connected.
SQL> grant IMP_FULL_DATABASE to test;

Grant succeeded.

SQL> conn test/test
Connected.
SQL> select * from session_roles;

ROLE
------------------------------
IMP_FULL_DATABASE
SELECT_CATALOG_ROLE
HS_ADMIN_SELECT_ROLE
EXECUTE_CATALOG_ROLE
HS_ADMIN_EXECUTE_ROLE

Trying the import after granting the privilege and it worked.

imp file=exp_schema.dmp log=imp_exp_schema.log fromuser=scott touser=test

Import: Release 11.2.0.2.0 - Production on Mon Oct 15 02:06:34 2012

Copyright (c) 1982, 2009, Oracle and/or its affiliates.  All rights reserved.

Username: test/test

Connected to: Oracle Database 11g Enterprise Edition Release 11.2.0.2.0 - 64bit Production
With the Partitioning, Real Application Clusters, Automatic Storage Management, OLAP,
Data Mining and Real Application Tes

Export file created by EXPORT:V11.02.00 via conventional path

Warning: the objects were exported by SCOTT, not by you

import done in US7ASCII character set and AL16UTF16 NCHAR character set
import server uses AL32UTF8 character set (possible charset conversion)
. importing SCOTT's objects into TEST
. . importing table                      "My_Tab"      1000 rows imported
Import terminated successfully without warnings.

Wednesday, 19 October 2022

Oracle SQL: Generating Dates in Sequence & Time in Sequence

To achieve our task we use connect by level in our SQL to generate the followings:

SQL for Generating Dates in Sequence:

Select To_Date(Sysdate-30, 'dd-mm-rrrr') + (Level - 1) Dates
From Dual
Connect By Level <= ((To_Date(Sysdate, 'dd-mm-rrrr') -
To_Date(Sysdate-30, 'dd-mm-rrrr')) + 1);

Result:






















SQL for Generating Time in Sequence:

Select Level,
To_Char(Trunc(Sysdate) + (Level - 1) / 24, 'YYYY-MM-DD HH24:MI') As Date_Hour,
To_Char(Trunc(Sysdate) + (Level - 1) / 24, 'HH24:MI') As Hours
From Dual
Connect By Level <= 24;

Result:


Tuesday, 31 May 2022

Oracle SQL-PL/SQL: Create WM_CONCAT in ORACLE 12c

 WM_CONCAT  is not working in ORACLE 12c and Oracle suggested an alternative solution is to use LISTAGG.

LISTAGG working fine in Database and Oracle Reports level,

But Oracle Forms 11g (Version 11.1.2.0.0) have compilation error when using LISTAGG.

The Easiest solution in this issue …..

Create WM_CONCAT function in ORACLE 12c database:

You can try the following steps to create WM_CONCAT  in ORACLE 12c ……

Step 1: Create a TYPE and TYPE BODY

—————————Script ——————–

DROP TYPE WMSYS.WM_CONCAT_IMPL;

CREATE OR REPLACE TYPE WMSYS.Wm_Concat_Impl wrapped
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
d
270 160
bg9hz+fBwa888VEZGViHFs/oOP0wg433f64df3QCWE7VehmhTFcUe3y+JrsniV3cSuvmnE3g
Y93dtR+cCsU1N+UQDGbtzhCf2HIdr8lPzfgF2bmCTvmGlHQbTAjTftNrDq3p093ncwb32OyX
3ZFDTeH2jpjm3uWYyT8kZBfJIYxRwgLfRApoW32cpy0eRnvDBt2XfTAMXKCSNnqSoTiGA83W
6deKW+rWyBu9L/EPyFkmQZeBncNsiNDF8fa1Sm6vdQiEanlCQnaPJ11a0na8hK6psDSaey+x
fdMupCwSvg6gMrSV4QCguhOCqW2AmxRVMqpXJootPpTBxBFZc7hORGbriUI=
/

DROP TYPE BODY WMSYS.WM_CONCAT_IMPL;

CREATE OR REPLACE TYPE BODY WMSYS.Wm_Concat_Impl wrapped
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
e
431 1d6
4E5KBnNGi9ZdccetOt5Qas902MUwgzsJr0gVfHRVWGSl8CvsyI9XoIRaVeA+MgrbNy0MKs17
YaSfXYacoF8yX8sh94R2lTMSM+u3LvBLTcKy2MTwPxIQP5IREfj5ZWZ44bhRRiFdQQ1plWkB
7MPMVFaJyn+9PoTQdVdiKGeou0Q8AYzVPPKrxfa3OY5tBmId+MA3bxWAbe3drFfb3dOYu7nQ
e7Yz1Bp8IAwzL/ckiVdYV2Qqex8DhTHPjuD0YvndS6zfRttr+q6uIwXTMrBB1OyNwiMmilYC
macOerMZg9T0sj6P8g66Z6eFS8Yiw0Z5KLtVy9TEhgT83sRiqwdJe8ve/+FVjUa9RYnbEN5A
AYhXVXTVAXphRT8pnzX2SMPuZt6w9oOa3mn8Ig8PhdU+CVFi+SGebpoKgoGKxG6cIyZ5T26/
w3bHJXj6ctAgIKT7+cahCLw6NnMqtSQ=
/

—————————————————————–

Step 2: Create the function wm_concat

————————Script———————————-

CREATE OR REPLACE function WMSYS.wm_concat wrapped
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
8
58 96
+CuW1MAfZPVR6NOnXKVmXY2o9pswg8eZgcfLCNL+XhZy8K7/cgzcVrPnfMPnx3TAM7h0ZSXD
j57Asr2ym9ZtFldFmFu+RdpAU8VGORKSvtVG+DmAOR4C+NTa+Pit2kDbEpI5zhZUgqameSkE
DQ==
/
———————————————–

Step 3: GRANT it to PUBLIC
————————Script———————————-
GRANT EXECUTE ON WMSYS.wm_concat TO PUBLIC;

———————————————–

Oracle Forms: Avoid duplicated records in a block

 The purpose is to reject two records that contain duplicated values


The technique used to solve this problem comes from the Kevin D Clarke’s calculated item famous solution.

 

It uses two calculated items, one in the data bock and another in a control block.



The first calculated item (:DEPT.MATCH_FOUND) is added to the DEPT block. It contains the formula as follow:

 

Comparaison(:ctrl.charsave, :dept.deptno||:dept.dname)

 

Notice in this case,that we want to avoid duplicates on both DEPTNO and DNAME values.

 

Function COMPARAISON (val1 varchar2, val2 varchar2)

Return number

Is

   answer number := 0;

Begin

   if val1 = val2 then

      answer := 1;

   end if;

   return(answer);

End;

 

COMPARAISON is a program unit stored in the Forms module.

 

The two values are compared to each other, then the function returns 1 (a value greatest than 0) if both the values are identical.

The first value (:ctrl.charsave) contains the bakup value of the current record.

 

The DEPT block must have the following properties setting:

 

Query all records

YES

 

 

The CTRL block must have the following properties setting:

 

Query all records

YES

Single record

YES

Database data block

NO

 

 

The second calculated item (:CTRL.MATCH_FOUND) is added to the CTRL block.

It summarize the values contained in all the rows of the DEPT block (dept.match_found).

If the total is greater than 1, we have two duplicated data.