NAME

NTS::SqlLink - Front-end module to MySQL

DESCRIPTION

MySQL easy access

SYNOPSIS

        #!/usr/bin/perl]

        use strict;
        use NTS::SqlLink;
        my(@r,$c,$q,$i);

        # Open DB
        $c = new NTS::SqlLink({
                'type'      => 'mysql',
                'db'        => 'test',
                'host'      => 'localhost',
                'username'  => 'root',
                'passwd'    => '',
        });

        # Query Insert
        $q = "INSERT INTO test (id,name) VALUES (null,'user')";
        $c->do($q); undef $q;

        # Query Select
        $q = "SELECT id,name FROM test";

        # Result
        @r = $c->return($q);
        foreach $i (@r) {
                print "ID: ".$i->{id}." - Name: ".$i->{name}."\n";
        }

        # Close DB
        $c->disconnect;

METHODS

new({type,db,host,username,passwd})

        Create a new SqlLink object.

        my $c = new NTS::SqlLink({
                'type'          =>      'mysql',
                'db'        => 'test',
                'host'      => 'localhost',
                'username'  => 'root',
                'passwd'    => '',
        });

$c->return(query)

        only for select

        @r = $c->return($q);
        foreach $i (@r) {
                print "ID: ".$i->{id}." - Name: ".$i->{name}."\n";
        }

$c->do(query)

        to insert,update,replace,etc...

        $q = "INSERT INTO test (id,name) VALUES (null,'user')";
        $c->do($q); undef $q;

$c->disconnect()

        disconnect
        
        $c->disconnect();

$c->insertid()

        return last insert id

$c->qt(string)

        AddSlashes

        $q = "INSERT INTO test (id,name) VALUES (null,'".$c->qt($user)."')";

Authors

•     Udlei Nattis E<lt>unattis (at) nattis.comE<gt>
      http://www.nattis.com