Thread View: fj.lang.visualbasic
2 messages
2 total messages
Started by B9 BB0lLi J
Sat, 28 Feb 1998 00:00
$B#R#D#O$G0z?t$b$A$N%9%H%"(JD^$B%W%m%7%8%c!<$NN.$7J}(J
Author: B9 BB0lLi J
Date: Sat, 28 Feb 1998 00:00
Date: Sat, 28 Feb 1998 00:00
38 lines
1601 bytes
1601 bytes
$B$$$D$^$G$?$C$F$b#V#B=i?4<T$N(J $B$5$+$$$H?=$7$^$9!#(J
$B65$($F!J=u$1$F!K$[$7$$$3$H$,$"$j$^$9!#(J
$B#V#B!\#S#Q#L(J $B#S#E#R#V#E#R(J $B!J#R#D#O!K$G3+H/$r9T$C$F$$$^$9$,!"(J
$B#S#Q#L(J $B#S#E#R#V#E#RB&$G(J $B:n@.$7$?0z?t$r;}$C$?%9%H%"%I%W%m%7%8%c!<(J
$B$NN.$7J}$,$o$+$j$^$;$s!#(J
$BE,Ev$K:n@.$7$?$N$G$9$,!"$3$l$,2?8N$+$&$^$/F0$-$^$7$?!#$3$N$d$jJ}$O(J
$B4m81$J$N$G$7$g$&$+!)(J
$B#S#A#M#P#L#E(J
'$B%9%H%"%I%W%m%7%8%c!<!V(JTESTTES$B#T!W$N<B9T(J
'$B0z?t(J '001'
MySQL = "TESTTESTE '001'"
Set MyRenv = rdoenvironments(0)
Set MyRco = MyRenv.OpenConnection("",rdDriverNoPrompt,True,MyCon)
Set MyRsj = MyRco.OpenResultset(MySql,rdOpenForwardOnly,rdConcurReadOnly)
If MyRsj.Eof = False then
Form.text1.text = MyRsj("kai_cd")
Form.text2.text = MyRsj("kei_cd")
Form.text3.text = MyRsj("Syubetu_Cd")
End if
MyRsj.close
MyRco.close
MyRenv.close
$B#E#X#E#C#U#T#E(J $B$GN.$;$P!"$=$N%9%H%"%I%W%m%7%8%c!<$N7k2L!J<B9T7k2L!K$O(J
$B$o$+$k$H$*$b$$$^$9$,!"B??t!J$3$N>l9g(J kai_cd,Kei_cd,Syubetu_cd ) $B$N7k2L$r(J
$B$($i$l$^$;$s!#(J
$B$9$_$^$;$s$,!"65$($F$/$@$5$$!#(J
Re: ＲＤＯで引数もちのストアドプロシジャーの流し方
Author: Yuji Tagawa
Date: Mon, 02 Mar 1998 00:00
Date: Mon, 02 Mar 1998 00:00
50 lines
2278 bytes
2278 bytes
イントラネットシステムの田川です。
From が長くて化けているんですけど。
会社名は Organization: に入っているから、
From には書かなくていいんじゃないでしょうか？
森精機製作所 須？？？ wrote in message
<01bd4404$78a9e500$0301a8c0@uemura.infoweb.or.jp>...
>ＶＢ＋ＳＱＬ ＳＥＲＶＥＲ （ＲＤＯ）で開発を行っていますが、
>ＳＱＬ ＳＥＲＶＥＲ側で 作成した引数を持ったストアドプロシジャー
>の流し方がわかりません。
人から聞いたやり方なので、ヘルプのどこに載っているかわからないのですが
以下の方法でうまく行っています。
Dim g_conn As rdoConnection <--- Global 変数にしています。
Dim en As rdoEnvironment
Dim qy As rdoQuery
Dim rs As rdoResultset
Dim sql_cmd As String
Set en = rdoEnvironments(0)
Set g_conn = en.OpenConnection( _
dsname:="DSNAME", _
Prompt:=rdDriverNoPrompt, _
Connect:="uid=UID;pwd=password;") <=== はじめに１回だけ実行
sql_cmd = "{ call STP1 ('param1') }" <=== STP1 に param1 を渡す
Set qy = g_conn.CreateQuery("STP1", sql_cmd) <=== STP1 の呼び出し
Set rs = qy.OpenResultSet(rdOpenForwardOnly, rdConcurReadOnly)
Do While Not rs.EOF
AnwserA = rs(0) <=== 値の取出し
AnswerB = rs(1)
rs.MoveNext
Loop
rs.Close
qy.Close
----
〒105 港区芝大門2-5-5 住友芝大門ビル9F
イントラネットシステム株式会社 ＩＴ部
田川 勇治 (Email: yujit@intranet.co.jp)
(TEL: 03-5403-2688(Ext.537) FAX: 03-5403-0940)
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads