Based on an xsd schema create a table

Question

Hi all,
i need a way that allow me to create a table having an xsd file, in others word i load the xsd schema and create a table accordingly to the element that the xsd schema has respecting also the datatype of every element.
Is the some functionality that allow me to do a thing like that?
thanks to every one
Francesco
Italy

Answer 1

I should now give the following output
Connected.
SQL> set termout on
SQL> set feed on
SQL>
SQL> drop user test cascade;
User dropped.
SQL>
SQL> purge dba_recyclebin;
DBA Recyclebin purged.
SQL>
SQL> create user test identified by test;
User created.
SQL>
SQL> grant xdbadmin, dba to test;
Grant succeeded.
SQL>
SQL>
SQL> connect test/test
Connected.
SQL>
SQL> set echo on
SQL> set termout on
SQL> set feed on
SQL> set long 100000
SQL> set pages 5000
SQL>
SQL> var schemaPath varchar2(256)
SQL> var schemaURL  varchar2(256)
SQL>
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- Create an XML Schema root.xsd in directory /public/
SQL>
SQL> ----------------------------------------------------------
SQL> declare
  2    res boolean;
  3    xmlSchema xmlType := xmlType(
  4  '<?xml version="1.0" encoding="UTF-8"?>
  5   <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"
  6              xmlns:xdb="http://xmlns.oracle.com/xdb"
  7              elementFormDefault="qualified"
  8              attributeFormDefault="unqualified"
  9              xdb:storeVarrayAsTable="true">
10   <xs:element name="ROOT" xdb:defaultTable="ROOT_TABLE" xdb:maintainDOM="false">
11    <xs:annotation>
12     <xs:documentation>Example XML Schema</xs:documentation>
13    </xs:annotation>
14    <xs:complexType xdb:maintainDOM="false">
15     <xs:sequence>
16      <xs:element name="ID" type="xs:integer" xdb:SQLName="ID"/>
17      <xs:element ref="INFO" xdb:SQLInline="false" />
18     </xs:sequence>
19    </xs:complexType>
20   </xs:element>
21   <xs:element name="INFO" xdb:SQLName="INFO_TYPE">
22    <xs:complexType xdb:maintainDOM="false">
23     <xs:sequence>
24      <xs:element name="INFO_ID" type="xs:integer" xdb:SQLName="TYPE_INFO_ID"/>
25      <xs:element name="INFO_CONTENT"
26                  xdb:SQLName="TYPE_INFO_CONTENT" type="xs:string"/>
27     </xs:sequence>
28    </xs:complexType>
29   </xs:element>
30  </xs:schema>');
31  begin
32  if (dbms_xdb.existsResource(:schemaPath)) then
33      dbms_xdb.deleteResource(:schemaPath);
34  end if;
35   res := dbms_xdb.createResource(:schemaPath,xmlSchema);
36  end;
37  /
PL/SQL procedure successfully completed.
SQL>
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- Selecting repository files and folders via XDBUriType
SQL>
SQL> ----------------------------------------------------------
SQL> select xdbURIType ('/public/root.xsd').getClob()
  2  from   dual;
XDBURITYPE('/PUBLIC/ROOT.XSD').GETCLOB()
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xdb="http://xmlns.o
racle.com/xdb" elementFormDefault="qualified" attributeFormDefault="unqualified"
xdb:storeVarrayAsTable="true">
  <xs:element name="ROOT" xdb:defaultTable="ROOT_TABLE" xdb:maintainDOM="false">
    <xs:annotation>
      <xs:documentation>Example XML Schema</xs:documentation>
    </xs:annotation>
    <xs:complexType xdb:maintainDOM="false">
      <xs:sequence>
        <xs:element name="ID" type="xs:integer" xdb:SQLName="ID"/>
        <xs:element ref="INFO" xdb:SQLInline="false"/>
      </xs:sequence>
    </xs:complexType>
  </xs:element>
  <xs:element name="INFO" xdb:SQLName="INFO_TYPE">
    <xs:complexType xdb:maintainDOM="false">
      <xs:sequence>
        <xs:element name="INFO_ID" type="xs:integer" xdb:SQLName="TYPE_INFO_ID"/
>
        <xs:element name="INFO_CONTENT" xdb:SQLName="TYPE_INFO_CONTENT" type="xs
:string"/>
      </xs:sequence>
    </xs:complexType>
  </xs:element>
</xs:schema>
1 row selected.
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- Create an XML Document root.xml in directory /public/
SQL>
SQL> ----------------------------------------------------------
SQL> begin
  2    :schemaURL := 'http://www.myserver.com/root.xml';
  3    :schemaPath := '/public/root.xml';
  4  end;
  5  /
PL/SQL procedure successfully completed.
SQL> declare
  2    res boolean;
  3    xmlSchema xmlType := xmlType(
  4  '<?xml version="1.0" encoding="UTF-8"?>
  5  <ROOT xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"  xsi:noNamespaceSchemaLocation="root.xsd">
  6   <ID>0</ID>
  7   <INFO>
  8     <INFO_ID>0</INFO_ID>
  9     <INFO_CONTENT>Text</INFO_CONTENT>
10   </INFO>
11  </ROOT>');
12  begin
13  if (dbms_xdb.existsResource(:schemaPath)) then
14      dbms_xdb.deleteResource(:schemaPath);
15  end if;
16   res := dbms_xdb.createResource(:schemaPath,xmlSchema);
17  end;
18  /
PL/SQL procedure successfully completed.
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- Selecting repository files and folders via XDBUriType
SQL>
SQL> ----------------------------------------------------------
SQL> select xdbURIType ('/public/root.xml').getClob()
  2  from   dual;
XDBURITYPE('/PUBLIC/ROOT.XML').GETCLOB()
<?xml version="1.0" encoding="UTF-8"?>
<ROOT xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchem
aLocation="root.xsd">
  <ID>0</ID>
  <INFO>
    <INFO_ID>0</INFO_ID>
    <INFO_CONTENT>Text</INFO_CONTENT>
  </INFO>
</ROOT>
1 row selected.
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- Register the XML Schema and create the OR objects
SQL>
SQL> ----------------------------------------------------------
SQL> select * from tab;
no rows selected
SQL> --
SQL> alter session set events='31098 trace name context forever';
Session altered.
SQL> --
SQL> BEGIN
  2   DBMS_XMLSCHEMA.registerSchema
  3   (SCHEMAURL => 'root.xsd',
  4    SCHEMADOC => xdbURIType('/public/root.xsd').getClob(),
  5    LOCAL     => FALSE, -- local
  6    GENTYPES  => TRUE,  -- generate object types
  7    GENBEAN   => FALSE, -- no java beans
  8    GENTABLES => TRUE,  -- generate object tables
  9    OWNER     => USER
10   );
11  END;
12  /
PL/SQL procedure successfully completed.
SQL> select * from tab;
TNAME                          TABTYPE  CLUSTERID
INFO1902_TAB                   TABLE
INFO1904_TAB                   TABLE
ROOT_TABLE                     TABLE
3 rows selected.
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- Insert some data with XDBURIType
SQL>
SQL> ----------------------------------------------------------
SQL> DECLARE
  2     XMLData xmlType := xmlType(xdbURIType ('/public/root.xml').getClob());
  3  BEGIN
  4    for i in 1..10
  5    loop
  6        insert into ROOT_TABLE
  7        VALUES
  8        (XMLData);
  9    end loop;
10  END;
11  /
PL/SQL procedure successfully completed.
SQL> -- randomize the data a little
SQL> update ROOT_TABLE
  2  set object_value = updateXML(object_value,
  3                              '/ROOT/ID/text()',
  4                              substr(round(dbms_random.value*100),0,2)
  5                              );
10 rows updated.
SQL> update ROOT_TABLE
  2  set object_value = updateXML(object_value,
  3                              '/ROOT/INFO/INFO_ID/text()',
  4                              substr(round(dbms_random.value*100),0,2)
  5                              );
10 rows updated.
SQL> pause
SQL> ----------------------------------------------------------
SQL>
SQL> -- End Result
SQL>
SQL> ----------------------------------------------------------
SQL> select count(*) from root_table;
  COUNT(*)
        10
1 row selected.
SQL> select * from root_table where rownum <= 2;
SYS_NC_ROWINFO$
<?xml version="1.0" encoding="US-ASCII"?>
<ROOT>
  <ID>54</ID>
  <INFO>
    <INFO_ID>28</INFO_ID>
    <INFO_CONTENT>Text</INFO_CONTENT>
  </INFO>
</ROOT>
<?xml version="1.0" encoding="US-ASCII"?>
<ROOT>
  <ID>33</ID>
  <INFO>
    <INFO_ID>35</INFO_ID>
    <INFO_CONTENT>Text</INFO_CONTENT>
  </INFO>
</ROOT>
2 rows selected.
SQL>