Introducing a new feature in Access 2013 web apps—Download in Excelしばらく前に情報は公開されていたのだけど、手元の環境で使用できるなったのでさらっと確認。小難しい内容は全くなく、コマンドボタンが自動的に配備されるから特段の手順などなく使えるようになる。特徴は 生成された Excel ファイルをダウンロードするということと、ダウンロードするとき最新のレコードを出力するから ビュー に表示されている レコード と異なる場合があること。
編集中のデータを別のユーザーが変更している場合、実行時エラーを生成します (ダイナセット タイプのみ)。レコードが更新されていないことを確認して更新をする仕組み（オプティミスティック同時実行制御）になっている。この時発生する可能性がある実行時エラー は、
3197 ：
The Microsoft Access database engine stopped the process because you and another user are attempting to change the same data at the same time.
他のユーザーが同じデータに対して同時に変更を試みているので、プロセスが停止しました。なのだけど、
You must use the dbSeeChanges option with OpenRecordset when accessing a SQL Server table that has an IDENTITY column.
IDENTITY 列を持つ SQL Server テーブルにアクセスする場合は、OpenRecordset で dbSeeChanges オプションを使用する必要があります。なので、 dbSeeChanges を使用する必要がある。
CREATE TABLE Table_0( ID int IDENTITY(1,1) ,F_Num int ,F_Date date ,F_TS rowversion CONSTRAINT PK_Table_0 PRIMARY KEY CLUSTERED (ID ASC) )この時、こんな感じでRecordsetを取り扱う。
Sub DAORecordset_Dynaset()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset( _
"SELECT ID, F_Num FROM Table_0" _
, DAO.RecordsetTypeEnum.dbOpenDynaset _
, DAO.RecordsetOptionEnum.dbSeeChanges _
)
End Sub
レコードの更新/削除が可能。また、フィールドに主キーが含まれているから、レコードの追加が可能。なければ追加できない。OpenRecordset メソッドが実行された時、SQLExecDirect: SELECT "dbo"."Table_0"."ID" FROM "dbo"."Table_0" SQLPrepare: SELECT "ID","F_Num","F_TS" FROM "dbo"."Table_0" WHERE "ID" = ? SQLExecute: (GOTO BOOKMARK) SQLExecute: (GOTO BOOKMARK)最初に主キーのみ取得する。条件があれば条件に該当する主キーのみ取得。その主キーを利用してレコードを取得する。該当するレコードがあれば先頭のレコードのみ取得まで。該当する他のレコードをすぐさま取得しないことと rowversion のフィールドを自動的に取得することがポイント。
Microsoft® SQL Server® 2014 ExpressSSMS まで必要ないなら、PowerShell で管理できるように、
本体：SqlLocalDB.msi と、お好みで 管理用ツールは、SSMS
Microsoft® SQL Server® 2014 Feature Pack
Import-Module SQLPS -DisableNameChecking
# Create database
$QueryString = @"
USE master;
GO
CREATE DATABASE testDB on (
name = 'testDB1',
filename='C:\LocalDB_data\testDB.mdf'
)
COLLATE Japanese_XJIS_100_CI_AS_KS_WS;
"@
Invoke-Sqlcmd $QueryString -ServerInstance '(LocalDB)\MSSQLLocalDB'
# Create table
$QueryString = @"
USE testDB;
GO
CREATE TABLE Table_1 (
ID int IDENTITY(1,1) NOT NULL
,F_Num int
,F_Date date
,CONSTRAINT PK_Table_1 PRIMARY KEY (ID ASC)
)
"@
Invoke-Sqlcmd $QueryString -ServerInstance '(LocalDB)\MSSQLLocalDB'
# Drop database
Invoke-Sqlcmd "DROP DATABASE testdb" -ServerInstance "(localdb)\MSSQLLocalDB"
照合順序を Japanese_XJIS_100_CI_AS_KS_WS にしているのは、Access アプリに合わせているから。コマンド ライン管理ツール: SqlLocalDB.exe
Sub test_Database_Execute()
On Error GoTo ErrHnd
Dim dbs As DAO.Database
Set dbs = CurrentDb
dbs.Execute _
"insert into Table_0 (F_Num) values (100);", _
DAO.dbFailOnError
Debug.Print dbs.RecordsAffected
Debug.Print dbs.OpenRecordset("SELECT @@IDENTITY")(0)
dbs.Execute _
"update Table_0 set F_Num = 99 where F_Num = 100;", _
DAO.dbFailOnError
Debug.Print dbs.RecordsAffected
dbs.Execute _
"delete from Table_0 where F_Num = 99;", _
DAO.dbFailOnError + DAO.dbSeeChanges
Debug.Print dbs.RecordsAffected
Done:
Exit Sub
ErrHnd:
If DBEngine.Errors.Count > 0 Then
Dim e As DAO.Error, msg As String
For Each e In DBEngine.Errors
msg = msg & e.Number & ":" & e.Description & vbCrLf
Next
Debug.Print msg
End If
Resume Done
End Sub
DELETE Table_1.F_Num FROM Table_1 WHERE Table_1.F_Num Between 15 And 20;
SQLExecDirect: SELECT "dbo"."Table_1"."ID" FROM "dbo"."Table_1" WHERE ("F_Num" BETWEEN 15 AND 20 )
SQLPrepare: SELECT "ID","F_Num","F_Date","F_Text","F_TS" FROM "dbo"."Table_1" WHERE "ID" = ?
SQLExecute: (GOTO BOOKMARK)
SQLPrepare: DELETE FROM "dbo"."Table_1" WHERE "ID" = ?
SQLExecDirect: DELETE FROM "dbo"."Table_1" WHERE "ID" = ?
SQLExecute: (GOTO BOOKMARK)
SQLPrepare: DELETE FROM "dbo"."Table_1" WHERE "ID" = ?
SQLExecDirect: DELETE FROM "dbo"."Table_1" WHERE "ID" = ?条件にマッチするレコードの主キーのみをまず取得。ここでレコード数が0であれば終了。そのあと、1レコードずつフェッチしながら削除を繰り返す流れ。UPDATE Table_1 SET Table_1.F_Num = 999, Table_1.F_Text = "ABC" WHERE Table_1.ID In (10,11);
SQLExecDirect: SELECT "dbo"."Table_1"."ID" FROM "dbo"."Table_1" WHERE ("ID" IN (10 ,11 ) )
SQLPrepare: SELECT "ID","F_Num","F_Text" FROM "dbo"."Table_1" WHERE "ID" = ?
SQLExecute: (GOTO BOOKMARK)
SQLPrepare: UPDATE "dbo"."Table_1" SET "F_Num"=?,"F_Text"=? WHERE "ID" = ?
SQLExecute: (UPDATE)
SQLExecute: (GOTO BOOKMARK)
SQLExecute: (UPDATE)
ここで実施されているのは、INSERT INTO Table_1 ( F_Text )
VALUES ('ABC');SQLExecDirect: INSERT INTO "dbo"."Table_1" ("F_Text") VALUES (?)
SQLExecDirect: SELECT @@IDENTITYログ上ではこの内容のみとなるけど、実際には、SELECT Table_1.F_Text, Sum(Table_1.F_Num) AS SumOfF_Num FROM Table_1 GROUP BY Table_1.F_Text HAVING Sum(Table_1.F_Num)>100;
SQLExecDirect: SELECT "F_Text" ,SUM("F_Num" ) FROM "dbo"."Table_1" GROUP BY "F_Text" HAVING (SUM("F_Num" ) > 100 )期待通りの集計がされて、全レコードを取得するようなことはない。ただし、SELECT Table_1.ID, Table_1.F_Num, Year([F_Date]) AS F_Year, Month([F_Date]) AS F_Month FROM Table_1;
SQLExecDirect: SELECT "dbo"."Table_1"."ID" FROM "dbo"."Table_1" SQLPrepare: SELECT "ID","F_Num","F_Date" FROM "dbo"."Table_1" WHERE "ID" = ? SQLExecute: (GOTO BOOKMARK) SQLPrepare: SELECT "ID","F_Num","F_Date" FROM "dbo"."Table_1" WHERE "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? SQLExecute: (MULTI-ROW FETCH)
SQLExecDirect: SELECT "ID" ,"F_Num" ,"F_Date" FROM "dbo"."Table_1"演算は ACE もしくは Access で実施となる。
SELECT Table_1.ID, Table_1.F_Num FROM Table_1;
SQLExecDirect: SELECT "dbo"."Table_1"."ID" FROM "dbo"."Table_1" SQLPrepare: SELECT "ID","F_Num" FROM "dbo"."Table_1" WHERE "ID" = ? SQLExecute: (GOTO BOOKMARK) SQLPrepare: SELECT "ID","F_Num" FROM "dbo"."Table_1" WHERE "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? SQLExecute: (MULTI-ROW FETCH)
SQLExecDirect: SELECT "ID" ,"F_Num" FROM "dbo"."Table_1"並び替え/抽出がないので、特に見どころはない。Dynaset の場合、主キーの取得がまず実施される。それらを利用しレコードをフェッチしていくことになる。Snapshot の場合、すべてのレコードを取得する。
SQLExecDirect: SELECT "dbo"."Table_1"."ID" FROM "dbo"."Table_1" SQLPrepare: SELECT "ID","F_Num" FROM "dbo"."Table_1" WHERE "ID" = ? SQLExecute: (GOTO BOOKMARK) SQLPrepare: SELECT "ID","F_Num" FROM "dbo"."Table_1" WHERE "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? OR "ID" = ? SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH) SQLExecute: (MULTI-ROW FETCH)大事なのは、1行目と4行目以降。
SQL Server のデータにリンクするにあるから特に説明はない。DSN-less とかの工夫するくらいだろうか。
SELECT [ID]
,[ObjectName]
,[Definition]
FROM [AccessSystem].[Objects]
WHERE [ObjectTypeNumber] = 112
ここでした。FilterType 列挙体 / FilterType enumeration / "thisRow"
 |
| 配置はこの状態 |
Office 365 と Internet Explorer に関する FAQ
Description of Microsoft Office 2013 Service Pack 1 (SP1)
 |
| でかーい |
Office 365 ユーザー向けに Access アプリの一般提供を開始記事は2/3に読んではいたのだけど、いったい何を言ってんだろと思っていたわけで。
Access apps General Availability for Office 365 customers
MSアクセスマクロWhere条件式に256文字制限
