Çѹø $query¿¡ µ¥ÀÌŸ¸¦ ³õ°í,
µÎ¹ø° ¶Ç ´Ù¸¥ °ªÀ» $query¿¡ ³Ö¾îµµ...
±× ÀüÀÇ $query¿¡ °ªÀÌ ÀÖ´Ù¸é...
µÎ¹ø° $query¿¡ ³ÖÀ» insert¹®ÀÌ µé¾î°¥ÅÙµ¥...
¾Æ·¡ÀÖ´Â ºÎºÐÀ» ½ÇÇà½ÃÄѺ¸¸é,
$query = "SELECT sabun FROM pb_t_24 WHERE sabun='$sabun'";
my $sth = $dbh->prepare($query);
$sth->execute or die "Unable to execute query : $dbh->errstr\n";
($sabun_db) = $sth->fetchrow;
$sabun_db =~ s/\s//g;
print "
sabun_db: $sabun_db
\n";
if ($seq_num1 ne '') {
#$i=1;
if ($i ne ''){
for($i=1;$i<5;$i++){
$query = "INSERT INTO pb_t_24 (seqnum, hyufrom, hyuto, sabun, reqil, sayong, hyucode, sayu, signyn, updateil, bigo1, bigo2)
VALUES ('$seq_num1','$hyufrom$i','$hyuto$i','$sabun',$now_date2','$sayong$i','$hyucode$i','sayu', 'N','', '', '')";
print "query0 : $query
\n";
my $sth = $dbh->prepare($query);
$sth->execute or die "Unable to execute query : $dbh->errstr\n";
print "query1 : $query
\n";
}
print "query2 : $query
\n";
}
print "query1_1 : $query
\n";
$dbh->commit();
print "query1_2 : $query
\n";
}
-->
sabun_db: 9965214
query1_1 : SELECT sabun FROM pb_t_24 WHERE sabun='9965214'
query1_2 : SELECT sabun FROM pb_t_24 WHERE sabun='9965214'
ÀÌ·¸°Ô ³ª¿É´Ï´Ù...
±× Àü $query°¡ ³ª¿À´Âµ¥...
±×·¸´Ù¸é insert°¡ ¾ÈµÇ´Â°Çµ¥... ¹®¹ý»óÀÇ ¹®Á¦´Â ¾ø´Â °Í °°Àºµ¥¿ä..
¾îµð°¡ ¹®Á¦ÀÎÁö..?