sybperl-l Archive

From: =?iso-8859-1?Q?Andr=E9_de_oliveira_Castanheira?= <andre dot castanheira at cariocaengenharia dot com dot br>
Subject: (no subject)
Date: Nov 22 2000 1:29PM

Hi,

I'm using sybperl, and I would like to show in my home page the error :
"Atenção! Problemas na Query!"
Because the user has access to the database but doesn't have grant to select
the table.

( $X = Sybase::DBlib->dblogin($user, $pwd, $server) )
    and print("")
    or print "Atenção! Login/Senha inválidos!";

( $X->dbuse($banco) == &SUCCEED )
    and print("")
    or print "Atenção! Problemas na abertura do banco de dados!";

($X->dbcmd("select * from tb_depto") == &SUCCEED)
    and print("")
    or print "Atenção! Problemas na Query!";



Any ideas appreciated,
André