[pgsql-jp: 29022] Re: VBA+ODBCでトランザクションを行うには

[Hiroshi Saito]

さいとうです。

> 脱線したのでsubject:を付け替えました。

脱線ついでにDAOでも試してみました。
結果、同じようにうまく行ってます。

※DAOでは
BeginTrans->SQL_AUTOCOMMIT_OFF
CommitTrans->SQL_AUTOCOMMIT_ON
で動作しますね。
(なんか昔うまくいかなかったような??最近VBA使ってないもので)

ここまでいくと、ADO,RDOと・どなたかまともなサンプル出ますかね。(^_^;)

ここからVBA--------------------------------------------------------------

Private Sub PostgreSQL_Update()

    Dim wks As Workspace
    Dim con As Connection
    Dim que As QueryDef
    Dim dns As String
    dns = "ODBC;DATABASE=saito;UID=saito;PWD=;DSN=PostgreSQL;"
    Set wks = CreateWorkspace("", "saito", "", dbUseODBC)
    Set con = wks.OpenConnection("", dbDriverComplete, False, dns)
    Set que = con.CreateQueryDef("", "insert into saito values('SAITO');")
    que.Execute

    MsgBox "INSERT"

    wks.BeginTrans

    Set que = con.CreateQueryDef("", "update saito set xxx = 'したよ' where
xxx = 'SAITO';")
    que.Execute
    MsgBox "トランザクション内更新中です。他で覗いてみてね。"

    wks.CommitTrans

    MsgBox "トランザクションの外にでました。"

    con.Close
    wks.Close

End Sub