Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^7: New CGI Action Call

by tultalk (Monk)
on Mar 26, 2018 at 00:03 UTC ( [id://1211713]=note: print w/replies, xml ) Need Help??


in reply to Re^6: New CGI Action Call
in thread New CGI Action Call

I always do that unless I am overly confident. Seriously, I do test them.

Speaking of SQL: Statement below in "=for comment" tests fine. The error messages when I execute within program say otherwise.

I can't see the problem.

$stmt = "insert into users (user_id,username,password,pin,pos +ition,forename,lastname,business,address1,address2,city,state,zip, em +ail, phone_home, phone_cell, MJ, MD, DD, DP, comments) values ((SELEC +T AUTO_INCREMENT FROMinformation_schema.TABLES WHERE TABLE_SCHEMA=DAT +ABASE() AND TABLE_NAME='users'),CONCAT('bwm', (SELECT AUTO_INCREMENT +FROM information_schema.TABLES WHERE TABLE_SCHEMA=DATABASE()ANDTABLE_ +NAME='users')), ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $sth = $dbh->prepare ($stmt) or die "Error Preparing:\n" . $ +stmt . "\nDBI returned: \n", $dbh->errstr; $value = $sth->execute ($password, $pin, $position, $forename, $ +lastname, $business, $address1, $address2, $city, $state, $zip, $emai +l, $phone_home, $phone_cell, $MJ, $MD, $DD, $DP, $comments) or die "U +nable to execute query: " . $sth->errstr; my $new_id = $sth->{'mysql_insertid'};
=for comment insert into users (user_id, username,password,pin,position, fore +name,lastname,business, address1, address2,city,state,zip, email ,pho +ne_home, phone_cell,MJ,MD,DD,DP, comments) values ( (SELECT AUTO_INCR +EMENT FROM information_schema.TABLES WHERE TABLE_SCHEMA=DATABASE() AN +D TABLE_NAME='users'), CONCAT('bwm', (SELECT AUTO_INCREMENT FROM info +rmation_schema.TABLES WHERE TABLE_SCHEMA=DATABASE() AND TABLE_NAME='u +sers')), 'vmmv', 'BbwmB','3', 'Lucifer','Jackson','BWMLLC', '1610 W U +dall St','Apt 1', 'Jasonville','UT','87167','dingy@yahoo.com','(203) +418-5467','(203) 245-4567','2017-01-31','120.00', '2018-03-21','2019- +03-20','Blah Blah') =cut

Replies are listed 'Best First'.
Re^8: New CGI Action Call
by marto (Cardinal) on Mar 26, 2018 at 09:26 UTC

    "I always do that unless I am overly confident. Seriously, I do test them."

    "I can't see the problem"

    TABLE_SCHEMA=DATABASE()ANDTABLE_NAME='users'

    If you can't see the problem by just reading what you have, test your SQL outside of perl. Perl isn't prone to making things up randomly. Consider using an editor that supports Syntax_highlighting to give you an additional visual queue.

Re^8: New CGI Action Call
by poj (Abbot) on Mar 26, 2018 at 06:54 UTC
    I can't see the problem.

    missing spaces

    FROMinformation_schema.TABLES
    WHERE TABLE_SCHEMA=DATABASE()ANDTABLE_NAME
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1211713]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2024-04-25 05:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found