Vb .net オブジェクトの属性に応じて値を変え

質問

Vb .net オブジェクトの属性に応じて値を文字列に加工して渡したいです。
DataTableのセルやStringやIntegerやdateなどの値が渡されることを想定しています。

postgresqlのWhere句に渡す事を想定しています。

strTmp = TestTest(Object1)
strSql = "Where item1 = " & strTmp

＜内容＞
・オブジェクトの値がDBNull.Valueなら文字列で"null"

・数字属性の場合、
　文字列に変換して数字を渡す

・日付属性の場合、
　文字列に変換して値を渡す

・文字属性の場合、
　シングルクオートした値を渡す。

・上記以外は文字列で"null"を渡す。

＜書きかけ＞
function TestTest(byref p01 Object) As String
dim aaaa as object
dim bbbb as string

if aaaa is DBNull.Value then
bbbb = "null"
else
Select Case aaaa 属性
Case 数字の場合
bbbb = aaaa.toString
Case 文字の場合
bbbb = "'" & aaaa.toString & "'"
Case 日付の場合
bbbb = "'" & to_timestamp('" & Format( aaaa, "yyyy.mm.dd hh:nn:ss" ) & "', 'YYYY.MM.DD HH24:MI:SS')"
Case Else
bbbb = "null"
End Select
end if
Return (bbbb)
end function

＜メモ＞
・属性の判定方法が分かりません。
・何か見落としている事はありませんか？

以上、よろしくお願いします。

回答No.1

Picosoft · ベストアンサー

> ・属性の判定方法が分かりません。
TypeOf演算子を使うと変数の型を取得できます。
Select Case True
　　Case TypeOf aaaa Is Integer
　　　　'整数の場合
　　Case TypeOf aaaa Is String
　　　　'文字列の場合
　　Case TypeOf aaaa Is DateTime
　　　　'日付の場合
　　Case aaaa Is DBNull.Value
　　　　'DBNullの場合
　　Case Else
　　　　'その他
End Select

> ・何か見落としている事はありませんか？
細かいことを言うと、TestTestの引数p01が使われていないですが……。

また、
> ・文字属性の場合、
> 　シングルクオートした値を渡す。
SQLインジェクションへの対策は大丈夫でしょうか？

お礼

有難う御座います。

> 細かいことを言うと、TestTestの引数p01が使われていないですが……。

orz
aaaaa = p01 が１行目にある事にして下さい。

> SQLインジェクションへの対策は大丈夫でしょうか？

限定的なWindowsアプリなので、あまりシビアに考えてませんが、ダメでしょうか？

回答No.2

Picosoft

> 限定的なWindowsアプリなので、あまりシビアに考えてませんが、ダメでしょうか？
自分しか使わない、とかならそれもありですが……。

まぁ対策と言っても、ただ問題になりそうな文字をエスケープするだけですから、
ついでにやっておいて損はないかと思います。