VB6.0 ADOでbyte型配列を Insertしたい

質問

始めて投稿させて頂きます。よろしくお願いします。

さて当方、VB6.0とADOを使ってSQL Serverに接続してデータのやりとりをするプログラムを開発しているのですが

byte型配列に入っている値をADOを使って、Char型のフィールドに入れたいんです。

このような処理は可能でしょうか？

いろいろと探してみたのですが、どうしてもわからずにほとほと困っております。

何か可能な方法があれば、ぜひよろしくお願いします。

回答No.3

BLUEPIXY · ベストアンサー

ＡＤＯのヘルプを読んでみたのですが、
image型の時
バイト配列が受け渡せるような記述がありますので、
やはりＤＢの方をimage型にするべきだと思います。

お礼

回答ありがとうございました。

実現不可ということで、設計の方で見直してもらえるように交渉してみます。

回答No.2

BLUEPIXY

＃１補足＜
例えば
IF &h20<= data(i) and data(i)< &h7F THEN
outstr = outstr + chr(data(i))
END IF
の様に値のチェックをして、制御コードなどを飛ばしてやれば良いと思いますが
本当に、バイトをＤＢに入れたいのなら
ＤＢの定義でCHARにするべきでなかったように思いますが。

お礼

回答ありがとうございます。

＞ＤＢの定義でCHARにするべきでなかったように思いますが。

やはりそうなんですか……。

ただＤＢ設計は担当外なものでして、何とかこちらで対応しようとしたのですが。

そうなるとＤＢ設計をimageにしてもらうべきでしょうか？
あるいは16進数変換して、char型を二倍の値にしてもらうべきなのでしょうね。。。

ありがとうございます。

回答No.1

BLUEPIXY

dim data(10) as Byte
dim outstr as String
の時
outstr=""
for i=0 to UBOUND(data)
outstr = outstr + chr(data(i))
next
のような感じで、文字列にしてやればいいのではないでしょうか

お礼

回答ありがとうございます。

私の質問の説明不足ですみませんが、このままですと、 data(i)　の中身が特殊コードになった時(たとえば 0 など)

cQiery = "INSERT INTO tablename VALUES ('" & outstr & "')"

adoObj.Execute(cQiery)

としても書き込めないのです。

ところで、ふと思ったのですが、もしかしてけっこう速度のいるプログラムなので、Insertより速度が遅いという事で試していなかったのですが、AddNewメソッドを使えば書き込めるのでしょうか？

そちらも試してみます。