Thread View: fj.lang.visualbasic
4 messages
4 total messages
Started by JianQiang Zhou
Tue, 10 Feb 1998 00:00
二つのMDBファイルを同時にアクセスできない
Author: JianQiang Zhou
Date: Tue, 10 Feb 1998 00:00
Date: Tue, 10 Feb 1998 00:00
18 lines
1397 bytes
1397 bytes
Win95でVB5.0のプログラムが二つのMDBファイルを
同時にアクセスできないエラーが起こりました。
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がみつからない"と言うエ
ラーメッセージ
プロジェクトの参照設定に"Microsoft Jet SQL リファレンス"と
言うもの(C:\Windows\System\MSJETSQL.TLB)は"参照不可"になっています。
何方が解決方法を教えて頂きませんか。
宜しくお願いします。
JQ@MiC
Re: 二つのMDBファイルを同時にアクセスできない
Author: norish
Date: Wed, 11 Feb 1998 00:00
Date: Wed, 11 Feb 1998 00:00
23 lines
1560 bytes
1560 bytes
可能性をあげると、
1.テーブル名のスペルが違う。(大文字小文字の違いなど)
2.実際に開いているMDBファイルが違う。(絶対パスを検討)
JianQiang Zhou wrote:
>
> Win95でVB5.0のプログラムが二つのMDBファイルを
> 同時にアクセスできないエラーが起こりました。
>
> 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がみつからない"と言うエ
> ラーメッセージ
>
> プロジェクトの参照設定に"Microsoft Jet SQL リファレンス"と
> 言うもの(C:\Windows\System\MSJETSQL.TLB)は"参照不可"になっています。
> 何方が解決方法を教えて頂きませんか。
> 宜しくお願いします。
>
Re: 二つのMDBファイルを同時にアクセスできない
Author: 長久保
Date: Wed, 11 Feb 1998 00:00
Date: Wed, 11 Feb 1998 00:00
11 lines
1048 bytes
1048 bytes
こんにちは よろずや kin-chan です JianQiang Zhou <JQ.Zhou@mictokyo.co.jp> wrote in article <6bpe3r$s5j$1@mercury.mine.ne.jp>... (略) > プロジェクトの参照設定に"Microsoft Jet SQL リファレンス"と > 言うもの(C:\Windows\System\MSJETSQL.TLB)は"参照不可"になっています。 "参照不可"になっているものを1回削除して、設定しなおすと できたりします。
Re: 二つのMDBファイルを同時にアクセス
Author: Terushi Arakawa
Date: Thu, 19 Feb 1998 00:00
Date: Thu, 19 Feb 1998 00:00
30 lines
1646 bytes
1646 bytes
$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
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