Re: perl to write to more than one table in a database at the same time (or call anotherscript to do one)

thanks for your help, I have now got the following to work

use DBI;  
use CGI; 
$dbh = DBI->connect('dbi:mysql:Database','root','password')
or die "Connection Error: $DBI::errstr\n";

#my $sth = $dbh->prepare("insert into logintbl(username, password) val
+ues('jones2010','password') "); 
#my $sth2 = $dbh->prepare("insert into studenttbl(fname,lname,grade,DO
+B,email,tel_no,membertype,username) VALUES ('jamie','batty','7thkyu',
+'1988/07/21','battydave&#64hotmail.com','012345234543','monthly pay',
+'jones2010')");
#$sth->execute();
#$dbh->disconnect;

$dbh->{AutoCommit} = 0; # disable auto-commit
$dbh->do ("insert into logintbl(username, password) values('jones2100'
+,'password')");
$dbh->do ("insert into studenttbl(fname,lname,grade,DOB,email,tel_no,m
+embertype,username) VALUES ('jamie','batty','7thkyu','1988/07/21','ba
+ttydave&#64hotmail.com','01234523454','monthly pay','jones2010')");
$dbh->commit();
[download]

I shull now focus on gettng the O'NEIL problem fixed....tomorrow lol!

Thanks again! bogglemaster89.

Comment on Re: perl to write to more than one table in a database at the same time (or call anotherscript to do one) Download Code

Replies are listed 'Best First'.
Re^2: perl to write to more than one table in a database at the same time (or call anotherscript to do one) by Corion (Patriarch) on Mar 16, 2010 at 21:13 UTC
Use DBI placeholders. It's as easy as the following: ... $dbh->{AutoCommit} = 0; # disable auto-commit my $sth_insert_login = $dbh->prepare(<<'SQL'); insert into logintbl( username, password) values(?, ?) SQL my $sth_insert_student = $dbh->prepare(<<'SQL'); insert into studenttbl( fname,lname,grade,DOB,email,tel_no,membertype,username) values (?, ?, ?, ?, ?, ?, ?, ?) SQL #$dbh->do ("insert into logintbl(username, password) values('jones2100 +','password')"); $sth_insert_login->execute('jones2100', 'password'); #$dbh->do ("insert into studenttbl(fname,lname,grade,DOB,email,tel_no, +membertype,username) VALUES ('jamie','batty','7thkyu','1988/07/21','b +attydave&#64hotmail.com','01234523454','monthly pay','jones2010')"); $sth_insert_student->execute('jamie','batty','7thkyu','1988/07/21','ba +ttydave@hotmail.com','01234523454','monthly pay','jones2010'); $dbh->commit(); [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: perl to write to more than one table in a database at the same time (or call anotherscript to do one)
by Corion (Patriarch) on Mar 16, 2010 at 21:13 UTC

Use DBI placeholders. It's as easy as the following:

...
$dbh->{AutoCommit} = 0; # disable auto-commit

my $sth_insert_login = $dbh->prepare(<<'SQL');
    insert into logintbl(
           username, password)
    values(?,        ?)
SQL

my $sth_insert_student = $dbh->prepare(<<'SQL');
    insert into studenttbl(
            fname,lname,grade,DOB,email,tel_no,membertype,username)
    values (?,    ?,    ?,    ?,  ?,    ?,     ?,         ?)
SQL
#$dbh->do ("insert into logintbl(username, password) values('jones2100
+','password')");
$sth_insert_login->execute('jones2100', 'password');

#$dbh->do ("insert into studenttbl(fname,lname,grade,DOB,email,tel_no,
+membertype,username) VALUES ('jamie','batty','7thkyu','1988/07/21','b
+attydave&#64hotmail.com','01234523454','monthly pay','jones2010')");
$sth_insert_student->execute('jamie','batty','7thkyu','1988/07/21','ba
+ttydave@hotmail.com','01234523454','monthly pay','jones2010');

$dbh->commit();
[download]

[reply]
[d/l]