Article View: fj.lang.visualbasic
Article #462$B#R#D#O$G0z?t$b$A$N%9%H%"(JD^$B%W%m%7%8%c!<$NN.$7J}(J
From: 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
Technical Details
Message-ID:
<01bd4404$78a9e500$0301a8c0@uemura.infoweb.or.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 105c2e,21f87f74476b4b07,start X-Google-Attributes: gid105c2e,public From: "$B?9@:5!@=:n=j(J $B?\"B<0lLi(J" <fvbk1250@mb.infoweb.or.jp> Subject: $B#R#D#O$G0z?t$b$A$N%9%H%"(JD^$B%W%m%7%8%c!<$NN.$7J}(J Date: 1998/02/28 Message-ID: <01bd4404$78a9e500$0301a8c0@uemura.infoweb.or.jp> X-Deja-AN: 329359914 Organization: $B3t<02q<R(J $B?9@:5!@=:n=j(J Newsgroups: fj.lang.visualbasic