🚀 go-pugleaf

$B7'C+$G$9!#$3$s$K$A$O!#(B

VB4.0$B$G!V(B1$B;~4VKh$K(BAccess95$B$N(Bmdb$B$r8+$K$$$C$F!"(B
$B$=$N(Bmdb$B$K%l%3!<%I$,:n@.$5$l$F$$$?$i!"$=$N:9J,$r(B
$BCj=P$7$F!"JL$N(BAccess95$B$N(Bmdb$B$KJT=8$7$F%l%3!<%I$r(B
$B:n@.$9$k!#!W(B
$B$H$$$&=hM}$r=*N;%\%?%s$,2!$5$l$k$^$G9T$&(B
exe$B$r:n@.$7$?$N$G$9$,!"(B
1$B;~4VKh$K!"$3$N(Bexe$B$N%a%b%j;HMQ>u67$r8+$F$$$k$H!"(B
$B$I$s$I$s%a%b%j;HMQ%5%$%:$,A}2C$7$F$$$-$^$9!#(B
Access95$B$N(Bmdb$B$N(BClose$B$rK:$l$F$$$k$H$3$m$O(B
$B$J$$$N$G$9$,!&!&!&!#(B
$B$3$N$h$&$K!"(BAccess$B$N(Bmdb$B$N(Bopen,close$B$r9T$&>l9g!"(B
exe$B$,=*N;$7$J$$$H(BSnapshot$B$K;HMQ$7$?%a%b%j$O(B
db$B$r(Bclose$B$7$?$@$1$G$O3+J|$5$l$J$$$N$G$7$g$&$+(B?
$B$4B8$8$NJ}$,$*$j$^$7$?$i!"%"%I%P%$%9$r$*4j$$CW$7$^$9!#(B
<$B%3!<%INc(B>
  Set dtbaaa = DBEngine.Workspaces(0).OpenDatabase(AAA_DBPath)
  Set dtbbbb = DBEngine.Workspaces(0).OpenDatabase(BBB_DBPath)
  
  Set qdaaa = dtbaaa.CreateQueryDef("")
  qdaaaa.SQL = "SELECT * FROM Data_Flag WHERE StsFlag = '1'"
  Set rstaaa = qdaaa.OpenRecordset(dbOpenSnapshot)
   $B!&(B  
   $B!&(B
  rstaaa.Close
  dtbbbb.Close
  dtbaaa.Close

---
Hiroko Kumagai-Takahashi $BIY;NDLElKLDL?.%7%9%F%`(B($B3t(B)