🚀 go-pugleaf

$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