🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.visualbasic
4 messages
4 total messages Started by JianQiang Zhou Tue, 10 Feb 1998 00:00
二つのMDBファイルを同時にアクセスできない
#713
Author: JianQiang Zhou
Date: Tue, 10 Feb 1998 00:00
18 lines
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ファイルを同時にアクセスできない
#717
Author: norish
Date: Wed, 11 Feb 1998 00:00
23 lines
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ファイルを同時にアクセスできない
#720
Author: 長久保
Date: Wed, 11 Feb 1998 00:00
11 lines
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ファイルを同時にアクセス
#595
Author: Terushi Arakawa
Date: Thu, 19 Feb 1998 00:00
30 lines
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