DBNull.Valueの扱いについて。

Question

###前提・実現したいこと
DBNullの値をDBに書き込む際に、一度変数にいれてから処理を行っているのですがその際に下記のエラーが出てしまいます。

###発生している問題・エラーメッセージ

共通型を推論できません。Option Strict Onが設定されている為、・・・。

###該当のソースコード

Dim x As String = "AAA"
Dim hoge = If(Not x = "", "AAA", DBNull.Value)

###試したこと

'下記のコードだと問題なし。
Dim x As String = "AAA"
Dim hoge = If(Not x = "", CType("AAA", Object), DBNull.Value)

###補足情報
型が推論できないということはDBNull.Valueというのは特殊な型なのでしょうか。また、C#のサンプルコードを調べた際では上記のようなコードで実現できていたようなのですがVBではうまくいきません。C#は不慣れなので読解ミスの可能性もございますが。何が原因なのでしょうか。
また、上記以外の解決策はございますでしょうか。(Option Strict OnをOffにする以外でお願い致します。)

Answer 1

DBNull.Valueは、特殊な型です。と言っても普通のシングルトンなのですが・・・
例えば、代わりに数値を置いても同じエラーになるはずです。

三項演算子で戻り値がStringとDBNull．Valueだとちょっと型の予測が出来ないと言ったところがエラーの原因だと思います。

思うに三項演算子を使わなければ代入特に難しくはないのでは？

Dim hoge As object = "AAA"
If hoge = "" then hoge = DBNull.Value

関数を定義しておくという手もあります。これなら、コンパイラに型情報もきちんと伝わるのでエラーにはなりません。
（できれば拡張メソッドでやりたかったのですが、VBではうまく書けませんでした・・・）

  shared Function IfEmpty(ByVal aString As String, ByVal atNull as object) as object
    if aString = "" then return atNull 
    return aString
  End Function

Dim x As String = "AAA"
Dim hoge = IfEmpty(x, DBNull.Value)

Comments

[yuki00079]

返信が遅れてしまい失礼しました。
>三項演算子
こちらの都合で三項演算子は極力使わないようにしております。
コード内でよく利用する処理なので拡張メソッドにて処理していきます。
お力お貸ししていただきありがとうございました。

Answer 2

以下のようにするということでは目的は果たせませんか？

Dim x As String = "AAA"
Dim hoge As Object
If Not x = "" Then
    hoge = "AAA"
Else
    hoge = DBNull.Value
End If

Comments

[yuki00079]

返信ありがとうございます。
記載漏れですが上記の動作は当方で確認済みでございます。
一行でうまくやれる方法がないかと考えております。

[退会済みユーザー]

If 演算子では "AAA" と DBNull.Value の型が違うからダメだと思います。

If 演算子に代えて IIf 関数を使ってはいかがですか？　以下のような感じです。

Dim hoge As Object = IIf(Not x = "", "AAA", DBNull.Value)

IIf 関数は第 2、第 3 引数が Object を取るのでうまく行くと思います

https://msdn.microsoft.com/ja-jp/library/27ydhh0d(v=vs.90).aspx

質問者さんは C# の ?: 演算子をイメージしていると思いますが、C# でも

object hoge = (x != "")? "AAA" : DBNull.Value;

は、"AAA" と DBNull.Value の型が違うのでエラーです。MSDN ライブラリの ?: 演算子の説明にはっきりそう書いてあります。

https://msdn.microsoft.com/ja-jp/library/ty67wk28.aspx

VB.NET の If 演算子の説明にはそういうことは書いてなかったですが、同じことでは？

[yuki00079]

返信が遅れてしまい失礼しました。
DBNull.Valueは特殊な型のようですね。IIfはこちらの都合で利用しない予定なので拡張メソッドにて対応予定です。

[退会済みユーザー]

DBNull.Value が特殊な型だからダメと言うことではなく、単純に型が違うし、暗黙の型変換も行われないからダメと言うことのはずですが・・・