Dynasetを使用しないSelect文 (ID:84203)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつもお世話になっております。 ただいま、Win2000 VB6.0＋Oracle9i でc/sシステムを構築しようとしております。Dynasetを使用しない方法で構築したいので、下記URLのソースを試しにやってみたところ、メッセージボックスが空白になってしまいます。なぜでしょうか？ 教えてください。よろしくお願いします。 URL http://homepage1.nifty.com/shimajun/ Dim OraSession As Object Dim OraDatabase As Object Dim W_SQL As String Dim W_Item1 As String Dim W_Item2 As String Dim W_Item3 As String 'Create Session Object set OraSession = CreateObject("OracleInProcServer.XOrasession") 'Create OraDatabase Object set OraDatabase = OraSession.dbOpenDatabase("db","user/pass",&H0) OraDatabase.Parameters.Add "ITEM1"," ",ORAPARM_INPUT '(A) OraDatabase.Parameters.Add "ITEM2"," ",ORAPARM_INPUT OraDatabase.Parameters.Add "ITEM3"," ",ORAPARM_INPUT W_SQL = "select W_SQL = W_SQL & "item1," W_SQL = W_SQL & "item2," W_SQL = W_SQL & "item3 " W_SQL = W_SQL & "into " W_SQL = W_SQL & ":ITEM1," W_SQL = W_SQL & ":ITEM2," W_SQL = W_SQL & ":ITEM3 " W_SQL = W_SQL & "from tblA" '(B) OraDatabase.dbExecuteSQL(W_SQL) '(C) W_Item1 = OraDatabase.Parameters("ITEM1").Value '(D) W_Item2 = OraDatabase.Parameters("ITEM2").Value W_Item3 = OraDatabase.Parameters("ITEM3").Value Msgbox W_Item1 '(E) Msgbox W_Item2 Msgbox W_Item3 OraDatabase.Parameters.Remove "ITEM1" '(F) OraDatabase.Parameters.Remove "ITEM2" OraDatabase.Parameters.Remove "ITEM3"