既存のAccessをシステム化して、WebシステムへレベルアップできるdbSheet Access対応版の紹介

【システム構成】

元々ADPはSQL Server側でデータ処理を行うため、ネットワークの負担を軽減しパフォーマンスの良いシステムが構築できるメリットがありました。

【Access ADPの特徴】

1. クライアント側のファイル形式はADP
2. クライアント側にテーブルやクエリはない
3. リンクテーブルに比べ、処理速度が速い(最小限のトラフィック)
4. データの抽出・参照はSQL Serverのビューを利用
5. 追加・更新・削除にはストアドプロシージャを利用

【フォームオープン時：サーバーDBのデータ取得】

サーバーDBにある必要なデータをクライアントPCに取り込むときのサンプルです。
Accessのフォームが開くタイミングで、SELECT文で抽出したレコードをAccessファイルのテーブルに取り込みます。

・VBAのコード例

Private Sub Form_OPen()
	Dim blnStatus As Boolean
	'取込開始
	blnStatus = dbsCls.CopyLocal_fromSvr("注文", "SELECT * FROM [注文]", True, 1) 'ヘッダー部分の取込
	If blnStatus = False then
		MsgBox "サーバーからの取込に失敗しました。", vbOkOnly + vbExclamation, "注文管理システム"
		Exit Sub
	Else
		blnStatus = dbsCls.CopyLocal_fromSvr("注文内容", "SELECT * FROM [注文内容]", True, 1) '明細部分の取込
		If blnStatus = True Then
			Msgbox  "サーバーからの取込を完了しました。", vbOkOnly + vbInformation, "注文管理システム"
			Me.Requery
		Else
			MsgBox "サーバーからの取込に失敗しました。", vbOkOnly + vbExclamation, "注文管理システム"
		End If
	End If

【データ更新時：サーバーDBへの反映】

クライアントPCのデータをサーバーDBに書き込む場合のサンプルです。
テーブル(注文)のレコードをクライアントPCのデータを元に、サーバーDBの更新データとして書き換えます。

・VBAのコード例

Private Sub サーバー更新()
	Dim blnStatus As Boolean
	'サーバーDB 更新
	blnStatus = dbsCls.CopySvr_fromLocal(“注文”, “WHERE 注文ID =” & Me. 注文ID, False)
	If blnStatus = True Then
		MsgBox“ サーバー更新を完了しました。”, vbOKOnly + vbExclamation,“ 注文管理システム”
	End If

Private Sub ログ出力_Click()
   Dim blnStatus As Boolean
   blnStatus = dbsCls.SetSvr_UserLog("ログ出力", "テストログです。") 
   If blnStatus = True then
        MsgBox "ログ出力を完了しました。", vbOkOnly + vbInformation
   Else
         MsgBox "ログ出力に失敗しました。", vbOkOnly + vbExclamation
   End If