Insert Problem

butchseaman · #1 (**permalink**) 10-06-05, 15:54

I am using the following script with no results.

DB: saddlebo_sbsongs
TABLE: testdb

my $dbh = DBI->connect("DBI:mysql:saddlebo_sbsongs:localhost","s addlebo_webuser","lfsb");

my $dbh->do("INSERT INTO 'testdb'
values (?,?,?,?,?)", 'NULL','robert','robert@law.com','8175556666','bas s');

#$STH->execute # Execute the query
# or die "Couldn't execute statement: " . $STH->errstr;

my $dbh->execute();
my $dbh->finish();

senza_nome · #2 (**permalink**) 10-10-05, 21:32

Perhaps something like the following will do what you want:

ripped and modified from working code

Code:

#!/usr/bin/perl
use strict;
use warnings;
use DBI qw(:sql_types);

use constant {
   DSN=>"dbi:mysql:testing:localhost",
   USERNAME=>"",    # Username
   PASSWORD=>"",    # Password
    };

   # Suppose, for example
   my($s_Field_1,$s_Field_2,$s_Field_3)=('A','B','C');

   my($o_dbh)=DBI->connect($s_DSN,$s_Username,$s_Password) or die "Unable to connect to the Database!\n";
   my($s_SQLStatement)="insert into $s_Tablename (Field_1,Field_2,Field_3) values (?,?,?)";
   my($o_sth)=$o_dbh->prepare($s_SQLStatement) or die $o_dbh->errstr();
   my($i);
   $o_sth->bind_param(++$i,$s_Field_1,SQL_VARCHAR);
   $o_sth->bind_param(++$i,$s_Field_2,SQL_VARCHAR);
   $o_sth->bind_param(++$i,$s_Field_3,SQL_VARCHAR);
   $o_sth->execute() or die $o_dbh->errstr();
   $o_dbh->disconnect();

Internet Services

Web Development

Digital Marketing

Consumer Tech