| |
現在、社内システムを構築中でMySQLへACCESSのパススルークエリのみで抽出、更新、削除処理を行っています。
その中で、Accessの帳票フォーム形式でレコードを追加、削除、更新ができないか試みてみました。しかし、パススルークエリからrecordsetをフォームにSETすると、更新不可のため困っております。
以下のような処理でqd.SQLを書き換えながら更新、削除、追加を行っております。
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("")
qd.Connect = "ODBC;Driver={{Driver}};DATABASE={DBName};SERVER={SQLServer};PWD={PASS};PORT=3306;STMT=SETCHARACTER SET SJIS;UID={USERID}"
qd.ReturnsRecords = True
qd.sql = "select * from ほげテーブル;"
set me.Recordset=qd.OpenRecordset
実現したいのは、データシートのような一覧表を表示し、フォームOPENでSTART TRANSACTIONを行い、更新、追加、削除の処理後、COMMIT又はROLLBACKできるようにしたいのです。一覧表から個別に選択して、レコードを処理することも考えましたが、できれば一覧表上でできないかと思います。
よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
