ＶＢ４でのC^0@更新　教えて下さい

Thread View: fj.lang.visualbasic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by 小野寺太郎 Sat, 30 Aug 1997 00:00

#1484

Author: 小野寺太郎
Date: Sat, 30 Aug 1997 00:00

36 lines
1656 bytes

$B=i$a$^$7$F!#!!>.Ln;{$H?=$7$^$9!#(J
$B;E;v>e!"(JVB4.0$B$N(J32bit$B4D6-$G!"(Joracle$B$+$i(Jaccess$B$KJQ49$7$?(JC^0@$B$r4IM}$7$h$&$H(J
$B$7$F$$$^$9!#(J
$B?75,$G$O@.8y$7$?$N$G$9$,!"$=$N(JC^0@$B=$@5$N99?7;~$K!"(J4W0(ORA-00936)$B$,$*$-!"(J
$B:$$C$F$$$^$9!#(J
$B$I$J$?$+2r7h:v$r$4B8$8$NJ}$$$i$C$7$c$$$^$;$s$G$7$g$&$+!)(J

VB$B$O!"$^$@;O$a$?$P$+$j$G!"$H$s$G$b$J$$5-=R$+$b$7$l$^$;$s$,!"(J
$B2<5-$N$h$&$K:n@.$7$^$7$?!#(J $B!J(J4W0$B=hM}$O(Jnews$BMQ$K>JN,!K(J
update$B$N$H$3$m$G!"(J4W0$B$,$*$-$^$9!#!!(J;0J^0$B4D6-$G$9!#(J


Public Sub D_Update( Kno As Long, Kcode As String )
Dim D_Table As rdoResultset

SQL="SELECT * FROM AA WHERE AA_Kcode = ' " &  Kcode &" '  AND  AA_Kno = ' "
& Kno &  " ' "
Set D_Table = MyDatabase.OpenResultset( SQL, rdOpenDynamic, rdConcurValues )

D_Table.MoveFirst
D_Table.Edit

D_Table!D_Scode = G1.TxtScode.Text
D_Table!D_Sname = G1.TxtSname.Text
$B!&!&!&N,!&!&!&(J

D_Table.Close
Set D_Table = Nothing
End Sub


OpenResultset$B$N!J!KFb$N5-=R$,2x$7$$$H;W$$!"$$$m$$$mD4$Y$F$$$k$N$G$9$,!"(J
$B$J$+$J$+$o$+$j$^$;$s!#!!!!$I$&$>!"$h$m$7$/$*4j$$$7$^$9!#(J

 onoshin@mx2.nisiq.net

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

Thread View: fj.lang.visualbasic

ＶＢ４でのC^0@更新 教えて下さい

Thread Navigation

ＶＢ４でのC^0@更新　教えて下さい