■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#2203-1RDOによるリモートアクセスYAEKO1999-07-28(水) 15:06
#2203-1
RDOによるリモートアクセス
はじめまして、初投稿致します。
VBをはじめて約3ヶ月です。
現在、VB5でサーバーDBにアクセスするプログラムを作成しているのですが、
DAOではレコードロックがかけられないので、RDOをつかっています(VB6だと
ADOがつかえるのですけど)。
が、ロックがうまくかかっていないらしく同時更新処理が行われてしまいます。
コードを以下に記載します。
dim en As rdoEnvironment
dim cn as rdoConnection
dim rsResult as rdoResult
dim qd as rdoQuery

strConnect = "ODBC;DATABASE=TESTDATA;PWD=guest1;UID=guest1;DSN="PostgreSQL"
Set en = rdoEngine.rdoEnvironments(0)
Set cn=en.OpenCeonnection("",rdDriverNoPrompt,False,strConnect)

Set qd.ActiveConnection = cn
qd.SQL = "SELECT * From test ;"
    
Set rdResult = qd.OpenResultset(rdOpenKeyset, rdConcurLock, rdAsyncEnable)
With rdResult
    .MoveFirst
    Do until .EOF 
        .Edit
        
        !equip_name = "SOLID BASE"
        .Update        
    End If
    .MoveNext
   Loop
    .Requery
End With
    
rdResult.Close
Set rdResult = Nothing
    
cn.Close
Set cn = Nothing
    
en.Close
Set en = Nothing

Batchカーソルをつかってやってみたのですがやはりエラーがでます。
実際にロックが実行されるのはどのこーどからなのか?
うまく同時更新処理を回避するにはどうしたらよいのか?
どうか、よきご助言をお願いします。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)