in reply to Re^2: inserting and showing data from an MS Access database
in thread inserting and showing data from an MS Access database

yes, you can use something other than 'sth' .. that's just the common default/example variable name for a STatement Handle .. 
my $sth_ins = $dbh->prepare("INSERT ....");
my $sth_sel = $dbh->prepare("SELECT ....");
...
$sth_ins->execute();
...
$sth_sel->execute();
while( my $row = $sth_sel->fetchrow_arrayref() ){
  ...
}

[download]

Replies are listed 'Best First'.
Re^4: inserting and showing data from an MS Access database
by Anonymous Monk on Apr 11, 2006 at 21:58 UTC
    Thanks David, I'll give that a shot and see how it goes. I figured it would be something simple. I'll be glad when I'm comfortable enough with perl to deal with stuff like this without asking.
[reply]
Re^4: inserting and showing data from an MS Access database
by Anonymous Monk on Apr 12, 2006 at 05:10 UTC
    Thanks for the replies, gentlemen. Now I've pretty much mangled the code but it almost works. The only problem is that the insert statement is inserting a blank row each time with no data in each column. The insert code i'm using is: 
    my $sth_ins = $dbh->prepare("INSERT INTO users (firstname, lastname, s
+tate, country) VALUES (?, ?, ? ,?)") or die "Couldn't insert the data
+";
$sth_ins->execute($FORM{firstname}, $FORM{lastname}, $FORM{state}, $FO
+RM{country});

    [download]
    I was talking about this problem with a friend of mine who is vaguely familiar with Perl and he mentioned that $FORM{value} was the only way to retrieve the data from 
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}

    [download]
    Is there another way to do it or am I just overlooking something the way it is now?
[reply]
[d/l]
[select]
      if the row is blank, then i suspect that %FORM is empty/bad .. to verify, do: 
      use Data::Dumper;
print Dumper \%FORM;

      [download]
      But yeah, don't parse the data yourself to begin with -- use CGI: 
      use CGI qw/:standard/;
$sth_ins->execute( param('firstname'), param('lastname'), param('state
+'), param('country') );

      [download]
[reply]
[d/l]
[select]
        Hi, when I used 
        use Daga::Dumper;
pring Dumper \%FORM;

        [download]
        It printed $VAR1 = {}; so I guess that means %FORM is empty as you said. I'm off now to see what I can do about this.
[reply]
[d/l]

In Section Seekers of Perl Wisdom