🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.visualbasic
7 messages
7 total messages Started by Yoshikazu Tabata Mon, 13 Oct 1997 00:00
[Q] RDO problem with VB4
#1277
Author: Yoshikazu Tabata
Date: Mon, 13 Oct 1997 00:00
37 lines
1910 bytes
$B$3$s$P$s$o!"EDH*!w0BF^Ln$H$$$$$^$9!#(J

VB4 E.E. $B$H(J Oracle $B$G(J RDO $B$r;H$C$?%"%W%j%1!<%7%g%s$r:n$C$F$$$^$9$,!"(J
$B4JC1$J(J OpenResultset $B$,$&$^$/F0$$$F$/$l$^$;$s!#=u$1$F2<$5$$$^$;$s$+!)(J

$B!!!!!!(J sql = "select user_name from table where user_id = '" +
Trim(Userid.Text) + "'"

$B!!!!!!(J rQuery = OpenResultset (sql)

$B$3$l$@$1$J$s$G$9$,!"$3$N(J table $B$K(J test $B$H$$$&(J user_id $B$,EPO?$5$l$F(J
$B$$$?>l9g!"%U%)!<%`$N(J Userid.Text $B$K(J TEST $B$HF~NO$7$F$3$N(J OpenResultset
$B$r<B9T$9$k$H!":FEY(J Userid.Text $B$K(J test $B$H>.J8;z$GF~NO$7$F$b(J select $BJ8$,(J
$B@5$7$$%l%3!<%I$r8+$D$1$k;v$,$G$-$^$;$s!#(J

ODBC $B$N%@%s%W$r8+$F$_$F$b!"(J

$B!!!!!!(J select user_name from table where user_id = 'TEST'

$B$r7+JV$7<B9T$7$F$$$k$h$&$G$9!#$3$l$O(J ODBC $B$N;EMM$J$N$G$7$g$&$+!)(J

$B0lC6(J RDO $B$N@\B3$r@ZCG$7$J$$$H$3$N>u67$O2sHr$5$l$^$;$s!#(J
$B$b$7B>$K$&$^$$J}K!$r$4B8$8$NJ}$,$$$i$C$7$c$$$^$7$?$i65$($F2<$5$$!#(J

$B$A$J$_$K(J ODBC $B%I%i%$%P$K$O(J InterSolv $B$N$b$N$H(J Oracle $B$N$b$N$H!"(J
$B$I$A$i$r;H$C$F$b>u67$OJQ$o$j$^$;$s$G$7$?!#(JOracle $B$O(J Workgroup
Server R7.3 $B$r(J NT3.51 Server $B$GF0$+$7!"%/%i%$%"%s%H$O(J NT4.0 Workstation
$B$G$9!#(J

$B$h$m$7$/$*4j$$$7$^$9!#(J

--
Yoshikazu Tabata
E-Mail: tabata@pop06.odn.ne.jp
$B!!(J
$B!!(J
Re: [Q] RDO problem with VB4
#1183
Author: Terushi Arakawa
Date: Tue, 14 Oct 1997 00:00
24 lines
1467 bytes
$B9S@n(B@TSN BBS$B$G$9!#(B

Yoshikazu Tabata (tabata@pop06.odn.ne.jp) wrote:
> $B!!!!!!(B sql = "select user_name from table where user_id = '" +
> Trim(Userid.Text) + "'"

> $B!!!!!!(B rQuery = OpenResultset (sql)

> $B$3$l$@$1$J$s$G$9$,!"$3$N(B table $B$K(B test $B$H$$$&(B user_id $B$,EPO?$5$l$F(B
> $B$$$?>l9g!"%U%)!<%`$N(B Userid.Text $B$K(B TEST $B$HF~NO$7$F$3$N(B OpenResultset
> $B$r<B9T$9$k$H!":FEY(B Userid.Text $B$K(B test $B$H>.J8;z$GF~NO$7$F$b(B select $BJ8$,(B
> $B@5$7$$%l%3!<%I$r8+$D$1$k;v$,$G$-$^$;$s!#(B

> ODBC $B$N%@%s%W$r8+$F$_$F$b!"(B

> $B!!!!!!(B select user_name from table where user_id = 'TEST'

> $B$r7+JV$7<B9T$7$F$$$k$h$&$G$9!#$3$l$O(B ODBC $B$N;EMM$J$N$G$7$g$&$+!)(B

rdExecDirect$B$rIU$1$F$b$@$a$G$9$+(B?
-- 
Terushi Arakawa
mailto:bosturbo@bostn.tsn.or.jp
Re: [Q] RDO problem with VB4
#1184
Author: Masaya Hirano
Date: Tue, 14 Oct 1997 00:00
67 lines
3703 bytes


Yoshikazu Tabata <tabata@pop06.odn.ne.jp> wrote in article
<344226CD.1D32D50A@pop06.odn.ne.jp>...
> $B$3$s$P$s$o!"EDH*!w0BF^Ln$H$$$$$^$9!#(B

$B$I$&$b!"(BMedia io$B!J%a%G%#%"!&%$%*!K(B $B$N(B Masaya Hirano$B$H?=$7$^$9!#(B

> 
> VB4 E.E. $B$H(B Oracle $B$G(B RDO $B$r;H$C$?%"%W%j%1!<%7%g%s$r:n$C$F$$$^$9$,!"(B
> $B4JC1$J(B OpenResultset $B$,$&$^$/F0$$$F$/$l$^$;$s!#=u$1$F2<$5$$$^$;$s$+!)(B
> 
> $B!!!!!!(B sql = "select user_name from table where user_id = '" +
> Trim(Userid.Text) + "'"
> 
> $B!!!!!!(B rQuery = OpenResultset (sql)
> 
> $B$3$l$@$1$J$s$G$9$,!"$3$N(B table $B$K(B test $B$H$$$&(B user_id $B$,EPO?$5$l$F(B
> $B$$$?>l9g!"%U%)!<%`$N(B Userid.Text $B$K(B TEST $B$HF~NO$7$F$3$N(B OpenResultset
> $B$r<B9T$9$k$H!":FEY(B Userid.Text $B$K(B test $B$H>.J8;z$GF~NO$7$F$b(B select $BJ8$,(B
> $B@5$7$$%l%3!<%I$r8+$D$1$k;v$,$G$-$^$;$s!#(B
> 
> ODBC $B$N%@%s%W$r8+$F$_$F$b!"(B
> 
> $B!!!!!!(B select user_name from table where user_id = 'TEST'
> 
> $B$r7+JV$7<B9T$7$F$$$k$h$&$G$9!#$3$l$O(B ODBC $B$N;EMM$J$N$G$7$g$&$+!)(B
> 
> $B0lC6(B RDO $B$N@\B3$r@ZCG$7$J$$$H$3$N>u67$O2sHr$5$l$^$;$s!#(B
> $B$b$7B>$K$&$^$$J}K!$r$4B8$8$NJ}$,$$$i$C$7$c$$$^$7$?$i65$($F2<$5$$!#(B
>
> $B$A$J$_$K(B ODBC $B%I%i%$%P$K$O(B InterSolv $B$N$b$N$H(B Oracle $B$N$b$N$H!"(B
> $B$I$A$i$r;H$C$F$b>u67$OJQ$o$j$^$;$s$G$7$?!#(BOracle $B$O(B Workgroup
> Server R7.3 $B$r(B NT3.51 Server $B$GF0$+$7!"%/%i%$%"%s%H$O(B NT4.0 Workstation
> $B$G$9!#(B

$B40A4$J2rEz$G$J$/$F?=$7Lu$J$$$N$G$9$,!">e5-8=>]$O!"(BOracle$B$H(B
$B$$$&$h$j$b!"(BRDO$B$N;EMM$+$b$7$l$^$;$s!#(B

RDO$B$O(BSQL$B$r<B9T$9$k$H$-$K!"%G%U%)%k%H$G$O%9%F!<%H%a%s%H%O%s%I%k(B
$B$r#2$D%*!<%W%s$7!"(BrdoResultset$B$r%/%m!<%:$7$F$b!"#1$D$@$1$7$+%O(B
$B%s%I%k$r2rJ|$7$^$;$s!#$3$l$O!"7+$jJV$7F1Ey$N(BSQL$B$,<B9T$5$l$?>l9g(B
$B$3$N%9%F!<%H%a%s%H%O%s%I%k$r;HMQ$9$k$3$H$G!"%Q%U%)!<%^%s%9$r8~>e(B
$B$9$k0Y$+$H;W$o$l$^$9!#(B

$B;d<+?.$O!"1?NI$/(B(?)$BF1$88=>]$K=P$/$o$7$?$3$H$O$"$j$^$;$s$,!">e5-(B
$BJ8>O$rFI$`8B$j!"$3$N!VF1Ey$N(BSQL$B!W$+$I$&$+$rH=CG$9$k$N$K!"(BRDO$B$O(B
$BJ8;z$NBg>.$r0U<1$7$F$J$$$h$&$G$9$M(B(^^;$B!#(B

$B$G!"$3$l$G>e5-LdBj$,2r7h$5$l$k$+$I$&$+$O!"Dj$+$G$O$J$$$N$G$9$,!"(B
OpenResultset $B$N%*%W%7%g%s$K(B rdExecDirect $B$r;XDj$9$k$H(BRDO$B$O(B
$B%9%F!<%H%a%s%H%O%s%I%k$r#2$D%*!<%W%s$7$J$/$J$j$^$9!#(B
$B!J0x$_$K!"$3$N%*%W%7%g%s$O(B $B#V#B$N%X%k%W$N(B OpenResultset$B$N9`$K(B
$B$O5-:\$5$l$F$J$$$/$;$K!"(BrdoConnection$B!"(BrdoPreparedStatement
$B$N%l%Y%k$G$O!"@_Dj$,L5;k$5$l$^$9!#$5$9$,#M#S!*!*(B(^^;$B!K(B

$B>e5-J}K!$G$b%@%a$J$i!"(Buser_id$B$rBgJ8;z$@$1$+!">.J8;z$@$1$K@)8B(B
$B$7$F!"(BUserid.text$B$K(B UCase$B$+!"(BLCase$B$+$1$A$c$&$H$+!&!&!&(B(^^;$B!#(B

$B>/$7$G$b!"3+H/$N$*Lr$KN)$F$l$P9,$$$G$9!#(B

--------------------------------------------------------------------
Media io _ Masaya Hirano
mailto:masayah@mbox.kyoto-inet.or.jp
http://web.kyoto-inet.or.jp/people/masayah/
--------------------------------------------------------------------
Re: [Q] RDO problem with VB4
#1187
Author: Sato Masahiro
Date: Tue, 14 Oct 1997 00:00
18 lines
1187 bytes
In article <344226CD.1D32D50A@pop06.odn.ne.jp>, tabata@pop06.odn.ne.jp says...
>$B$3$l$@$1$J$s$G$9$,!"$3$N(B table $B$K(B test $B$H$$$&(B user_id $B$,EPO?$5$l$F(B
>$B$$$?>l9g!"%U%)!<%`$N(B Userid.Text $B$K(B TEST $B$HF~NO$7$F$3$N(B OpenResultset
>$B$r<B9T$9$k$H!":FEY(B Userid.Text $B$K(B test $B$H>.J8;z$GF~NO$7$F$b(B select $BJ8$,(B
>$B@5$7$$%l%3!<%I$r8+$D$1$k;v$,$G$-$^$;$s!#(B

PCDN $B$N(B FAQ $B$K!"(BRDO $B$NF1MM$N>c32$H!"$=$N2sHrJ}K!$,5-:\$5$l$F(B
$B$$$^$9!#(B

http://www.int21.co.jp/pcdn/vb/faq/faqsrch.html

$B8!:w8e!"(BID = 31 $B$r$4Mw$/$@$5$$!#(B

$B0J>e!";29M$K$J$l$P9,$$$G$9!#(B

-- 
$B:4F#@59((B <masahiro@cij.co.jp>
Re: [Q] RDO problem with VB4
#1193
Author: Yoshikazu Tabata
Date: Wed, 15 Oct 1997 00:00
52 lines
2458 bytes
$B$3$s$P$s$o!"EDH*!w0BF^Ln$G$9!#(J

$B855-;v$r0zMQ$9$k$HD9$/$J$C$F$7$^$&$N$G0zMQ$O$7$^$;$s$,!"(J
$BLdBj$O2sHr$G$-$^$7$?!#(J

$B$^$:2??M$+$NJ}$+$i(J OpenResultset $B$K(J rdExecDirect $B%*%W%7%g%s$r(J
$BIU$1$F$_$l$P!)(J $B$H$$$&;XE&$r<u$1$^$7$?!#<B$O$9$G$K$3$l$b;n$7$F(J
$B$_$?$N$G$9$,!"%@%a$@$C$?$N$G$7$?!#(J

$B$G!"%^%$%/%m%=%U%H$N(J Technical Information $B$N%[!<%`%Z!<%8$G$$$m$$$m(J
$BC5$7$F$$$?$i!"(JSQL Server $B$H(J RDO $B$N4XO"$G;qNA$,$"$j$^$7$?!#(J
$B$=$l$K$h$k$H!"$3$l$O(J "by design" $B$@$H$$$&$3$H$G!";EMM$N$h$&$G$9!#(J

$B$D$^$j!"(J

$B!!(J select * from tbl where clm = 'T001'
$B!!(J select * from tbl where clm = 't001'

$B$H$$$&(J SQL $BJ8$rH/9T$9$k$H!"(Jcase sensitive $B$G$J$$(J SQL Server
$B!J$N(J ODBC $B%I%i%$%P!"$@$H;W$$$^$9$,!K$O#2HVL\$KH/9T$5$l$?(J SQL
$BJ8$,:G=i$N$b$N$HF10l$@$HH=CG$7$F!"#2HVL\$N(J SQL $BJ8$OL5;k$7$F(J
$B:G=i$N(J SQL $BJ8$r:FEY<B9T$9$k!"$h$&$K$J$C$F$$$k$N$@$=$&$G$9!#(J

$B$G!"$3$l$r2sHr$9$k$?$a$K$O!"(J

$B!!(J 1. SQL Server $B$r(J "Case sensitive" $B$G$J$$$h$&$K:F%$%s%9%H!<%k$9$k!#(J

$B!!!!!!!!(J $B;d$O(J SQL Server $B$N%$%s%9%H!<%k$r$7$?$3$H$b;H$C$?;v$b$J$$$N$G(J
$B!!!!!!!!(J $BJ,$+$j$^$;$s$,!"$=$s$J%*%W%7%g%s!J!)!K$"$k$N$G$7$g$&$+!)(J

$B!!(J 2. $BKh2sH/9T$9$k(J SQL $BJ8$KE,Ev$K%9%Z!<%9$rA^F~$9$k!#(J

$B!!!!!!!!(J $B$D$^$j0[$J$k(J SQL $BJ8$G$"$k$+$N$h$&$K8+$;$+$1$k!"$G$9$M!#(J

$B$J$s$@$=$&$G$7$?!#(J

$B:#2s$O$3$N#2HVL\$NJ}K!$r;H$$$^$7$?!#$D$^$jKh2s(J SQL $BJ8$rAH$_N)$F$k(J
$B$?$S$K@hF,$K6uGr$rDI2C$9$k$h$&$K$7$^$7$?!#(J

$B$7$+$7$3$s$J$3$H$C$F!"$b$C$HC/$G$bCN$C$F$$$=$&$J(J FAQ $B$N$h$&$J5$$b(J
$B$9$k$s$G$9$,!D(J

$B$H$$$&$3$H$G!"$H$j$"$($:2r7h$G$-$^$7$?!#$A$g$C$H$9$C$-$j$7$^$;$s$1$I(J
(^_^;

$B$"$j$,$H$&$4$6$$$^$7$?!#(J

--
Yoshikazu Tabata
E-Mail: tabata@pop06.odn.ne.jp
$B!!(J
Re: [Q] RDO problem with VB4
#1204
Author: Yoshikazu Tabata
Date: Thu, 16 Oct 1997 00:00
30 lines
1557 bytes
$BEDH*!w0BF^Ln$G$9!#(J

Sato Masahiro wrote:

> In article <344226CD.1D32D50A@pop06.odn.ne.jp>, tabata@pop06.odn.ne.jp
> says...
> >$B$3$l$@$1$J$s$G$9$,!"$3$N(J table $B$K(J test $B$H$$$&(J user_id $B$,EPO?$5$l$F(J
> >$B$$$?>l9g!"%U%)!<%`$N(J Userid.Text $B$K(J TEST $B$HF~NO$7$F$3$N(J OpenResultset
>
> >$B$r<B9T$9$k$H!":FEY(J Userid.Text $B$K(J test $B$H>.J8;z$GF~NO$7$F$b(J select $BJ8(J
> $B$,(J
> >$B@5$7$$%l%3!<%I$r8+$D$1$k;v$,$G$-$^$;$s!#(J
>
> PCDN $B$N(J FAQ $B$K!"(JRDO $B$NF1MM$N>c32$H!"$=$N2sHrJ}K!$,5-:\$5$l$F(J
> $B$$$^$9!#(J

$B$:$C$HA0$KJL$N$3$H$G(J PCDN $B$N(J FAQ $B$+$iLdBj$r2r7h$7$?$3$H$O$"$C$?$s$G$9$,(J
$B!D(J

$B$3$s$J$H$3$K$b$"$C$?$s$G$9$M!#$b$C$H@h$K8+$F$$$l$PNI$+$C$?!#(J

PreparedStatement $B$r(J Close $B$9$l$PNI$$$s$G$9$M!#(J

$B!t(J $B$&!<$`!"$G$b%^%$%/%m%=%U%H$N2rEz$H$O$A$,$&%>!)!*(J

--
Yoshikazu Tabata
E-Mail: tabata@pop06.odn.ne.jp
$B!!(J
Re: [Q] RDO problem with VB4
#1213
Author: Sato Masahiro
Date: Fri, 17 Oct 1997 00:00
21 lines
1220 bytes
In article <3446172E.2EF55BF1@pop06.odn.ne.jp>, tabata@pop06.odn.ne.jp says...
>PreparedStatement $B$r(B Close $B$9$l$PNI$$$s$G$9$M!#(B

 $B$A$J$_$K!"$3$3$K5-:\$5$l$F$$$k%3!<%I$r$h$j@53N$K=q$/$J$i$P!"(B

Public Sub CloseStatement(Con as rdoConnection, SQL as string)
  Con.rdoPreparedStatements(SQL).Close
End Sub

$B$J$I$H$J$k$+$H;W$$$^$9!#(B

>$B!t(B $B$&!<$`!"$G$b%^%$%/%m%=%U%H$N2rEz$H$O$A$,$&%>!)!*(B

 $B$&!<$s!"$I$&$J$s$G$7$g$&$+(B...$B!#(B

 $B$H$j$"$($:(B Sybase + RDO $B$NAH$_9g$o$;$G$O!"A05-$NBP=h$G@5$7$/(B
$BF0$/$h$&$G$9!#(B

-- 
$B:4F#@59((B <masahiro@cij.co.jp>
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