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

##</code><code>##

[1052]tom@margo scripts $ sqlite /home/tom/sqlitetest.sldb
SQLite version 2.8.14
Enter ".help" for instructions
sqlite> create table barangan (NamaBarang text NOT NULL, CompanyID int(9));
sqlite> insert into barangan (NamaBarang, CompanyID) VALUES ('hello', 1);
sqlite> insert into barangan (NamaBarang, CompanyID) VALUES ('hello2', 2);
sqlite> SELECT rowid, NamaBarang
   ...>                          FROM barangan
   ...>                         WHERE CompanyID = '2'
   ...>                     ORDER by rowid ASC ;
2|hello2

##</code><code>##

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

##</code><code>##

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


##</code><code>##

my $quotedCID = $dbh->quote($companyid);
$sqlstatement2 =qq~
                      SELECT rowid, NamaBarang      
                         FROM barangan
                        WHERE CompanyID = '$quotedCID'
                     ORDER by rowid ASC ~;