Re: SQL table updates

[Scott Taylor]

At 08:06 AM 10/31/02, you wrote:

One way.....

? Of the 3 fields which is unique field......I'll assume FuelCrd......

after ......print "$FuelCrd, $TrkID, $FuelCmp\n"; .....insert
this................

my ($check) = $dbh->selectrow_array ("SELECT fuelCrd FROM cardlock WHERE
fuelCrd = ?", undef,$FuelCrd);
if($check eq "")  #insert it.....
{
    $SQL = qq[insert into cardlock (cardno, trkid, fuelcmp)
                     values ('$FuelCrd', '$TrkID', '$FuelCmp')];
         $sth = $dbh->prepare($SQL) || die "$SQL\n$!\n";
         $sth->execute || die "$SQL\n$!\n";
}
else     #update it.......
{
    $dbh->do (qq{ UPDATE cardlock SET trkid=?, fuelcomp=? WHERE fuelcrd =
?}, undef, $TrkID, $FuelCmp,$FuelCrd);
}

Thanks Kurt,

my $check = $dbh->selectrow_array($SQL);
if ( $check eq "") {

That's the part I needed. Here is what I ended up with if anyone is interested.

while(<InFile>){
chomp;
my ($FuelCrd, $TrkID, $FuelCmp) = split(/,/,$_);
$FuelCrd =~ s/\"//g;
$TrkID =~ s/\"//g;
$FuelCmp =~ s/\"//g;
chomp($FuelCrd, $TrkID, $FuelCmp);
$SQL = qq[select trkid, fuelcmp from cardlock
where trkid = '$TrkID'
and fuelcmp = '$FuelCmp'];
my $check = $dbh->selectrow_array($SQL);
if ( $check eq "") {
$SQL = qq[insert into cardlock (cardno, trkid, fuelcmp)
values ('$FuelCrd', '$TrkID', '$FuelCmp')];
} else {
$SQL = qq[update cardlock
set cardno = '$FuelCrd'
, trkid = '$TrkID'
, fuelcmp = '$FuelCmp'
where trkid = '$TrkID'
and fuelcmp = '$FuelCmp'];
}

$sth = $dbh->prepare($SQL) || die print "$SQL\n$!\n";
$sth->execute || die print "$SQL\n$!\n";


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]