Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Looking for a simpler DBI solution.

by lo_tech (Scribe)
on Nov 01, 2001 at 23:27 UTC ( #122639=note: print w/replies, xml ) Need Help??


in reply to Looking for a simpler DBI solution.

Well, you havent told me what the problem is, but I'll try to help with what I can.

sub add_customer{ my ($company,$fname,$lname,$phn,$b2stre,$b2city,$b2stat,$b2zip,$s2st +re,$s2city,$s2stat,$s2zip) = @_; my ($handl) = DBI->connect('DBI:mysql:advanc'); or die "Couldn't con +nect to database: " . DBI->errstr; my $sql = "INSERT INTO customers (Company,FirstName,LastName,PhoneNumber,Bill2Street,Bill2City,Bill2S +tate,Bill2Zip,Ship2Street,Ship2City,Ship2State,Ship2Zip) VALUES (?,?,?,?,?,?,?,?,?,?,?,?) "; my $sth = $handl->prepare($sql) or die "Couldn't prep statement"; $sth->execute($company,$fname,$lname,$phn,$b2stre,$b2city,$b2stat,$b +2zip,$s2stre,$s2city,$s2stat,$s2zip) or die "Couldn't add customer"; }

changes

  • named the insert field names. Dont know if this matters to mysql, but Informix is picky that way
  • added "or die" to $sth to catch those before the execute()
  • shortened the varnames. not a nit, im just a lazy typist

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2021-05-11 17:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Perl 7 will be out ...





    Results (119 votes). Check out past polls.

    Notices?