🚀 go-pugleaf

$B9S@n(B@TSN BBS$B$G$9!#(B

JET$B$NJ8K!$O3P$($F$$$J$$$N$G$J$s$G$9$,!"(B
delete$B$9$k$H$-$C$F!"(B
delete from TABLENAME [where $B>r7o(B]
$B$N$h$&$J46$8$8$c$"$j$^$;$s$+(B?
$B%"%9%?%j%9%/$rIU$1$k$HE\$i$l$k$h$&$J5$$,$7$^$9!#(B

JianQiang Zhou (JQ.Zhou@mictokyo.co.jp) wrote:
> $B#W#i#n#9#5$G#V#B#5!%#0$N%W%m%0%i%`$,Fs$D$N#M#D#B%U%!%$%k$r(B
> $BF1;~$K%"%/%;%9$G$-$J$$%(%i!<$,5/$3$j$^$7$?!#(B

>     Set DB1 = DBEngine.Workspaces(0).OpenDatabase("test1.mdb")
>     DB1.QueryDefs("qry1").SQL = SQL1$
>     Set rst1 = DB1.OpenRecordset("qry1", dbOpenDynaset)
>     '***************************************************
>     Set DB2 = DBEngine.Workspaces(0).OpenDatabase("test2.mdb")
>     DB2.Execute "Delete * from table1"  <--- "table1$B$,$_$D$+$i$J$$(B"$B$H8@$&%((B
> $B%i!<%a%C%;!<%8(B

> $B%W%m%8%'%/%H$N;2>H@_Dj$K(B"Microsoft Jet SQL $B%j%U%!%l%s%9(B"$B$H(B
> $B8@$&$b$N(B(C:\Windows\System\MSJETSQL.TLB)$B$O(B"$B;2>HIT2D(B"$B$K$J$C$F$$$^$9!#(B
> $B2?J}$,2r7hJ}K!$r65$($FD:$-$^$;$s$+!#(B
> $B59$7$/$*4j$$$7$^$9!#(B

> $B#J#Q!w#M#i#C(B
-- 
Terushi Arakawa
mailto:bosturbo@bostn.tsn.or.jp