Select Code to Download

[1046]tom@margo scripts $ perl -we '$harga = 0, $harga2 = kan.$harga;'
Unquoted string "kan" may clash with future reserved word at -e line 1
+.

[1052]tom@margo scripts $ sqlite /home/tom/sqlitetest.sldb
SQLite version 2.8.14
...
   ...>                         WHERE CompanyID = '2'
   ...>                     ORDER by rowid ASC ;
2|hello2

$sqlstatement2 =qq~
                      SELECT rowid, NamaBarang      
                         FROM barangan
                        WHERE CompanyID = '$companyid'
                     ORDER by rowid ASC ~;

$sqlstatement2 =qq~
                      SELECT rowid, NamaBarang      
...
                        WHERE CompanyID = ?
                     ORDER by rowid ASC ~;

my $quotedCID = $dbh->quote($companyid);
$sqlstatement2 =qq~
...
                        WHERE CompanyID = '$quotedCID'
                     ORDER by rowid ASC ~;