🚀 go-pugleaf

こんにちは　よろずや kin-chan　です

hiroko kumagai <kuma@tcs.ts.fujitsu.co.jp> wrote in article
<6dgmpk$2p5@tusasim.tcs.ts.fujitsu.co.jp>...
> 熊谷です。こんにちは。
（略）
> <コード例>
>   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)
>    ・  
>    ・
>   rstaaa.Close
>   dtbbbb.Close
>   dtbaaa.Close
    Set rstaaa = Nothing
    Set dtbbbb = Nothing
    Set dtbaaa = Nothing

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

$B%U%)%m!<$7$FD:$$$?FbMF$r@9$j9~$_!"%F%9%H%W%m%0%i%`$r(B
$B:n$C$FD4::$7$F$_$^$7$?!#!"(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

$B4D6-$O!"(BWindowsNT4.0+$B%5!<%S%9%Q%C%/(B3$B$G(B
Access95$B%i%s%?%$%`4D6-$G!"(BVB4.0$B$,%$%s%9%H!<%k$5$l$F$$$J$$4D6-$G$9!#(B

1$BJ,Kh$K(BA.mdb$B$+$i(BB.mdb$B$X%F!<%V%k%3%T!<$r$9$k$H$$$&%F%9%H%W%m%0%i%`$r:n@.$7!"(B
$B%a%b%j>uBV$r4F;k$7$F$_$^$7$?$,!"%a%b%j$OA}Bg$7$^$;$s$G$7$?!#(B
$B<!$K!"(BA.mdb$BFb$N%F!<%V%k$+$i(B1$B%l%3!<%IKh$K%U%#!<%k%I$r(B
$BFI$_=P$7(BB.mdb$BFb$N%F!<%V%k$K!"(B1$B%l%3!<%IKh$K(B
$B%G!<%?$r%3%T!<$7$F$$$/(B(Dynaset$B$G(Bopen$B$7!"(BAddNew,Update$B$r;HMQ(B)$B=hM}$K(B
$BJQ99$7$F%F%9%H$7$?$H$3$m!"%a%b%j$,A}Bg$7$F$$$-$^$7$?!#(B

Dynaset$B$,860x$+$J$"(B?

<$B%3!<%INc(B>
 
 Private Sub Timer1_Timer()

 Set dbA = DBEngine.Workspaces(0).OpenDatabase("AAA.mdb")
 Set dbB = DBEngine.Workspaces(0).OpenDatabase("BBB.mdb")
 Set rsA = dbA.OpenRecordset("select * from TableA",dbOpenSnapshot)
 Set rsB = dbB.OpenRecordset("TableB",dbOpenDynaset)
 If rsA.RecordCount > 0 Then
    rsA.MoveFirst

    Do Until rsA.EOF
 
       rsB.AddNew
	   rsB!Fild_1 = rsA!fild_a   
       rsB!Fild_2 = rsA!fild_b
     
       $B!&!&!&(B
	   rsB.Update

	   rsA.MoveNext   
    Loop
 End If
 rsB.Close
 dbB.Close
 rsA.Close
 dbB.Close
 Set rsB = Nothing
 Set dbB = Nothing
 Set rsA = Nothing
 Set dbA = Nothing

 End Sub




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