戻る

ストアードプロシジャで複数行を読む

0001: ####################################################################
0002: # STORED-PROCEDURE を使う
0003: my($t1)=&Time::HiRes::time();
0004: my($trans);
0005: &startTransaction(\$DB, \$trans);
0006: my(@param)=($pvalue{FAMLY});
0007: my($state);
0008: if ($pvalue{FAMLY}=~/[a-z]/){
0009:     $state=&execProcedure(\$trans, \ "PF_N_SGFO", 2, \@param);
0010: }else{
0011:     $state=&execProcedure(\$trans, \ "PF_J_SGFO", 2, \@param);
0012: }
0013: my(%hash);
0014: my($c)=0;
0015: print("use procedure ------");
0016: while ($state->fetch(\%hash)==0){
0017:     $c++;
0018: }
0019: &commitTransaction(\$trans);
0020: my($t2)=&Time::HiRes::time();
0021: printf("Select:%4d rows Elapsed:%8.3f msec\n", $c, ($t2-$t1)*1000);

この HTML を検査する。( XHTML 1.0 Strict で書かれています )
Another HTML Lint Gateway ( Mirrored by htmllint.oosato.org )