PerlのMySQLにおいて、状況によってwhereの対象を変更したい

Question

お世話になっております。
下記を実装したいのですが、うまくいきません。おわかりになる方いらっしゃいましたら、よろしくお願いします。

【使用言語/DB】
・Perl5
・MySQL

【したいこと】
1.$valが設定されているときはその値を元にSELECT
2.$valが設定されていない時は全ての値をSELECT

【ソース】

my $dbh = DBI->connect( DB_DS, DB_USER, DB_PASS)

$sql = q{
	select * from tableA where fieldA IN ?
}

$sth = $dbh->prepare( $sql );

if(!$val){
	$val = 'SELECT fieldB FROM tableB';
}

$sth->execute(
	$val
}

【現状】
fieldAに入る可能性のある値はtableBのfieldBにある値のみなので、上記のように設定してみたがうまくいかなかった。
1.エラーにはならなかった
2.値が何も取得されなかった

Comments

[Orlofsky]

IN ?に設定した値とうまくいかなかった時の正確なエラーメッセージを質問に追記しては？

[KojiDoi]

結果を受け取る処理が見当たらないようですが、どこをどう「値が何も取得されなかった」と判断されたのでしょうか。

Answer 1

そもそもSQLでIN句で値の指定をする場合、

where fieldA IN (値1, 値2,・・・)

のように値を,で区切って列挙する必要があります。

また、目的の内容はselectを複数回問い合わせするより、一つのSQLに纏めた方が効率的です

select * from tableA where fieldA IN (SELECT fieldB FROM tableB)

valの値の有無によって、where条件の有り無しのSQLを切り替える方が良いかと思います。