「ストリング・データの右側が切り捨てられました。」のエラー

Question

###前提・実現したいこと
DBからSELECT文で画面入力された日付を条件にデータを取得する際、以下のエラーが発生すると友人から相談を受けました。
自分の環境では再現せずエラーが解消できないので、考えられる原因等をご教示いただけないでしょうか。

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

[IBM][CLI Driver] CLI0109E 
ストリング・データの右側が切り捨てられました。SQLSTATE=22001 

###試したこと
いろいろ調べたところ、指定したサイズより大きいデータをパラメータに代入してSQLを実行すると発生するエラーであることが分かりました。
下記の、パラメータのサイズを最大10バイトに制限しているところが原因ではと思っているのですが、日付をToStringでyyyy-MM-ddの形式に変換した文字列のサイズが10バイトより大きくなることはありますでしょうか。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub GetData(ByVal InputDate As Date)
（省略）
    Dim Value As String = InputDate.ToString("yyyy-MM-dd")
    Dim Parameter As New DB2Parameter("@Date", DB2Type.Char)
    Parameter.Direction = ParameterDirection.Input
    Parameter.Size = 10
    Parameter.Value = Value
（省略）
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

###補足情報(言語/FW/ツール等のバージョンなど)
言語…VB DB…DB2 OS…Windows

Comments

[SVC34]

カラムのデータ型とデータベースの文字コード設定はどうなっていますか

[bbb_eight]

質問ありがとうございます。カラムのデータ型はDATE型です。文字コードの設定は月曜日に確認します。Windows+日本語環境なので、おそらくShift-JIS(IBM943？）だと思うのですが、UTF-8等が設定される場合もありますでしょうか。

[SVC34]

最近のDB2ではUTF-8がデフォルトですね。

Answer 1

VB.NETの文字コードがUTF-16になっていて、yyyy-MM-ddが20バイトになっているのではないでしょうか。

DB2Parameter.Sizeはマニュアル上Unicode文字列においては文字数を表すと書かれているので、10でも問題ない気もするのですが、何かの要因でUTF-16と判定できずにバイト数として扱われているのではないかと推測します。

• DB2 11.1 DB2Parameter.Size プロパティー

非ストリング・データ・タイプおよび ANSI ストリング・データの場合、Size プロパティーはバイト数を表します。 Unicode ストリング・データの場合、Size プロパティーは文字数を表します。 ストリングのカウントには、終了文字は含まれません。

Comments

[bbb_eight]

返信遅くなり申し訳ありません。
確認したところ、DBの文字コードはIBM-943でした。仰るとおり、アプリケーション側の文字コードが影響しているのかもしれません。
VB.NETの文字コードを確認したいのですが、どうすればいいかご教示頂けますでしょうか。

[SVC34]

VB.NETの内部文字コードはUTF-16で固定ではないでしょうか。
.Netは素人なので他に手段があるかもしれませんが、GetByteCount()の結果が20であればUTF-16であることが確認できるのでは。