宏です。

Perl-DBIで作成していて解らない事があるので質問させて頂きます。

例えば、フィールド名「txt1」、「txt2」、「txt3」というのがあるとして、その
フィールドの
中の「txt1」にUPDATEコマンドで送られてきたコマンドを入れようと思っていて、そ
こ
のフィールド名の数字の部分を変数にして実行しようと思って下記のようにプログラ
ムを作ってみたのですがエラーは何もでないのですがデータベースの中をみても、
全然送られてきたデータが入っていないのです。色々試してみたのですが上手くい
きません。どうか何かいい方法があればお教えください。

$a=1;
$txtbun="テスト";
$dbh = DBI -> connect ($dns, $username, $password) or &Error("データベースへ
アクセスできません。2");
$sth2 = $dbh->prepare( qq{ UPDATE box SET "txt$a" = "$txtbun" WHERE id =
"aa"});
$sth2 -> execute() or &Error("MySQL UPDATE コマンドを実行できません。1");
$sth2 -> finish();
$dbh -> disconnect();