Comments on: PL/SQL Table-to-Java Bean (and Data to Java Bean Manager) generator – useful for data driven demos without database

By: emeseeado

emeseeado — Thu, 18 Nov 2010 10:29:33 +0000

I just book marked your blog on Digg and StumbleUpon.I enjoy reading your commentaries.

By: Martien van den Akker

Martien van den Akker — Tue, 15 Jul 2008 18:06:16 +0000

Hi Lucas,

I wrote a similar article but using XSLT on http://darwin-it.blogspot.com/2008/07/code-generation-with-xslt.html.

Regards,
Martien

By: Lucas Jellema

Lucas Jellema — Fri, 27 Jun 2008 13:19:04 +0000

I did and it did compile. I only used the reformat option in JDeveloper to make it more pleasant to the eye. A long primitive can be passed in for a Long object – automatic casting takes place.

By: anton

anton — Fri, 27 Jun 2008 12:58:48 +0000

I can always try. Did you use the package code you supplied to generate the java code you showed in this blog?
And did that code compile? I see for instance the use of long and Long.

By: Lucas Jellema

Lucas Jellema — Fri, 27 Jun 2008 11:57:12 +0000

That is pretty neat Anton! Thanks for the improved code.

If you feel like it, could you also write the code for the singleton and the master-detail relations?

Lucas

By: anton

anton — Fri, 27 Jun 2008 10:54:59 +0000

No need for dbms_sql in procedure generate_create_statements. The following wil do the same (and uses another constructor for Timestamp) (this blog will probably destroy the layout of the code)

  procedure generate_create_statements
    ( p_class_name in varchar2
    , p_tbl_name in varchar2
    , p_where in varchar2 default null
    )
  is
    t_stmt varchar2(32000);
    t_constr varchar2(1000);
    t_rc sys_refcursor;
  begin
    for r_col in ( select case col.data_type
                            when 'VARCHAR2' then ' || '', '' || nvl2( ' || col.column_name || ', ''"'' || ' || col.column_name || ' || ''"'', ''null'' )'
                            when 'NUMBER'   then ' || '', '' || nvl2( ' || col.column_name || ', ''(' || case col.data_scale when 0 then 'long' else 'double' end || ') '' || to_char( ' || col.column_name || ' ), ''null'' )'
                            when 'DATE'     then ' || '', '' || nvl2( ' || col.column_name || ', ''new Timestamp( '' || ( ' || col.column_name || ' - to_date( ''01011970'', ''ddmmyyyy'' ) ) * 86400000 || '' )'', ''null'' )'
                          end c
                   from all_tab_columns col
                   where table_name = upper( p_tbl_name )
                   order by col.column_id
                 )
    loop
      t_stmt := t_stmt || r_col.c;
    end loop;
--
    t_stmt := 'select ' || substr( t_stmt, 12 ) || ' from ' || p_tbl_name || ' ' || p_where;
--
    open t_rc for t_stmt;
    loop
      fetch t_rc into t_constr;
      exit when t_rc%notfound;
      w( ' create' || p_class_name || '( ' || t_constr || ' );' );
    end loop;
  end;