Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

SQL::Generator::Command
base class for a pseudo bnf's implementation

SQL::Generator::Command - base class for a pseudo bnf's implementation


NAME

SQL::Generator::Command - base class for a pseudo bnf's implementation


SYNOPSIS


DESCRIPTION


Method validate( $href_args )

validate correct types and all required fields for existance.


Method totext


EXAMPLE


        my $sqlgen = new SQL::Generator( debug => 0 );

        printf "%s\n\n", $sqlgen->CREATE(

                COLS => [ 'col1 VARCHAR', 'col2 INTEGER', 'col3 BLOB' ],

                TABLE => 'mytable',

                );

        my $sqltext = $sqlgen->INSERT(

                COLS => [ qw/ col1 col2 col3 / ], VALUES => [ qw/ 1 2 3 / ],

                INTO => 'mytable',

                WHERE => 'col1 = 99 AND col3 = 99'

                );

        my %cols = ( 'id' => '0', 'created' => 'NOW()', 'data' => '?' );

        my $sqltext = $sqlgen->INSERT( COLS => [keys %cols], VALUES => [values %cols], INTO => 'article' );

        my $sqltext = $sqlgen->SELECT(

                COLS => [ qw/ col1 col2 col3 / ], FROM => 'mytable',

                WHERE => 'col1 = 12 AND col3 = 1'

                );


CLASS METHODS

finally following strings are constructed:


        sprintf( "USE %s" );

        sprintf( "SELECT * FROM $table WHERE id = %d", $id );

        sprintf( 'INSERT INTO %s (%s) VALUES (%s)', $args{'table'}, $nam, $val );

        sprintf( "DROP TABLE $table" );

        sprintf( "CREATE TABLE $table ( col ROWTYPE, col ROWTYPE )" );

        sprintf( "UPDATE $table SET %s WHERE id = %d",  join( ', ', @sql_cols ), $this->get('id') );

VERSION

Module Version 0.04

EXPORT

None by default.


AUTHOR

Murat Uenalan, muenalan@cpan.org


COPYRIGHT


    Copyright (c) 1998-2002 Murat Uenalan. Germany. All rights reserved.

    You may distribute under the terms of either the GNU General Public

    License or the Artistic License, as specified in the Perl README file.


SEE ALSO

perl(1), DBI, DBD::*

Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy