5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Vb vs Oracle.OLE

1 :海馬子:01/09/14 14:10
Dim sqlstr As String '問合せSQL文領域定義
Dim oradyna As OraDynaset 'カーソル定義
Dim dynaopt As Integer 'カーソルオープンオプション定義
Dim o_syu As String '取得領域

'-----------------
'問合せSQL文編集
'-----------------
sqlstr = "SELECT z.syu " & _
" FROM fnaaa l, fnbbb z " & _
" WHERE l.yo = :h_yo " & _
" AND l.sys = z.sys "
'---------------
'パラメータセット
'---------------
With RtsDB
.Prameters.Add "h_yo", "0123456", ORARARM_INPUT
.Prameters("h_yo").ServerType = ORATYPE_CHAR
END With

'---------------
'カーソルオープン
'---------------
dynaopt = ORADYN_DEFAULT + ORADYN_READONLY _
+ ORADYN_NOCACHE + ORADYN_NO_BLANKSTRIP
Set oradyna = RtsDB.DbCreateDynaset(sqlstr, dynaopt)

IF (oradyna.RecordCount > 0) Then
o_syu = oradyna.Fields("syu").value
End if

 と、書かれた問合せするプログラムがあります。
この時、Set oradynaを実行するとFields("syu").valueの値
(例えば'2'としますね)とoradyna.RecordCount実行後のo_syu
の値(例えば'2・'となります)が違っています。
これは、どおいうことなの?
とりあえず、o_syu = Left(oradyna.Fields("syu").value,1)
でごまかしちゃいます。

2 :デフォルトの名無しさん:01/09/14 15:00
shine

3 :三村:01/09/14 15:02
>>1
なげーよ!

4 :デフォルトの名無しさん:01/09/14 15:52
www7.big.or.jp/~pinball/discus/oracle/index.html
逝ってきな

5 :デフォルトの名無しさん:01/09/14 16:25
くだらないスレ立ててる暇があったら勉強しろよ。
そう思わないか?勉強するならするで参考になる
スレあるんだから、そこでも読んでおけよ。第一な、こんなスレ立てて
レスがつくとでも思ったのか?
1よ、今更勉強などくだらないと言うならそれはそれで、少しでも
コード見なおすとか、設計見なおすとか
テメェの方でやることは一杯あるんだよ?
ハン!どうせこんなこと言ってもテメェは聞きやしないんだろうけどよ。
ン?

6 :tata:01/09/14 17:26
お!俺もその現象になったことあるで。
でも解決方法は分らんかった。
誰か知ってる人おらんかなぁ

7 :デフォルトの名無しさん:01/09/14 18:13
OSから再インストールしたら直るyo!

8 :デフォルトの名無しさん:01/09/30 18:25
OLEのバグ。有名

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)