いつもお世話になっております。
ただいま、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"
解決しました。BEGINとENDが抜けていました。
ご迷惑をおかけしました。