お詫びと訂正はこちら（Visual Basic データベースプログラミング for SQL Server2012）
「アプリ作成で学ぶ Visual Basic データベースプログラミング for SQL Server2012」
Visual Basic「売上管理システム」 サンプルファイル（完成版）
「アプリ作成で学ぶ Visual Basic データベースプログラミング for SQL Server2012」（秀和システム刊）のサンプルファイルです。
ダウンロードする前に、Visual Studio Express 2012 for Windows DesktopとSQL Server2012 Expressをインストールしておいてください。詳しくは書籍をご覧ください。
任意の場所に保存し、ファイルを解凍（展開）してください。フォルダ内のDBSystem.slnをダブルクリックすると、Visual Studio Express 2012 for Windows Desktopが起動します。
サンプルファイルは、SQL Server2012 Expressのデータベースとの連携が必要です。別途データベースを作成しておかないと動作確認ができません。ご了承ください。
詳しくは書籍を参考にしてください。
なお、ダウンロードされた方は、以下の事項に同意したものとします。
使用して生じた一切の問題に対して、いかなる責任も負いません。コードの改変は自由ですが、再配布を禁じます。
ご注意
- サンプルファイルは、Visual Studio Express 2012 for Windows Desktopで作成しました。他の開発環境での動作を保証しません。
- ソースコードは，あくまでプログラミング手法の理解を助けるためのものです。書籍にて詳しく説明しておりますので、購読をおすすめします。
- 本書サンプルプログラムおよびデータを使用して発生した障害，問題などに関して，プログラムおよびデータの作者，開発元/提供元，
筆者および㈱秀和システムは一切の責任を負いません。使用はご自身の責任で行ってください。
- サンプルファイル内のソースコードは自由に使用してかまいません。
書籍の購入はこちらから
補足と訂正
書籍に誤りが見つかりました。深くお詫び申し上げますとともに、訂正させていただきます。
テーブル設定を変更できるようにする
P.52でテーブルの定義の変更をしていますが、セキュリティ対策のためSQL Serverは初期設定で変更不可となっております。
以下の手順で設定を変更してください。
- SQL Server Management Studioの「ツール」から「オプション」を選択する
- ダイアログボックスが表示されたら、左エリアの一覧から「デザイナ」をダブルクリックして展開する
- 子要素の「テーブルデザイナーおよびデータベースデザイナー」を選択する
- 右エリアの「テーブルの再作成を必要とする変更を保存できないようにする」のチェックを外す
- OKボタンを押してダイアログボックスを閉じる
ビューを追加してください
以下の2つの圧縮ファイルをダウンロードして、任意の場所に解凍（展開）してください。
次に、以下の方法に従って、2つのビューをデータベースに追加してください。
ビュー「vwSlipList」はP.423に、ビュー「vwSalesInfo」はP.427に登場します。ビューを追加しないとアプリケーションは正しく動作しません。
◆ビューをデータベースに追加する方法◆
- SQL Server Management Studioを起動する
- ビューを追加したいデータベースを選択する（ここではSMS01とします）
- SQL Server Management Studioを最小化する
- 保存したビューのファイル（ここではvwSlipList.sqlとします）をダブルクリックする
- SQL Server Management Studioが表示されるので、改めてビューを追加したいデータベースが選択されていることを確認してから「実行」をクリックする
- 「コマンドは正常に完了しました」というメッセージが表示されていることを確認する
- データベースSMS01を展開しビューを右クリックしたら、「最新の情報に更新」を選択する
- ビューの一覧に「vwSlipList」が追加されていることを確認する
◆ビューのSQL文◆
参考として、ビューのSQL文を掲載します。
ビュー「vwSlipList」
SELECT dbo.T売上基本情報.伝票番号, dbo.T売上基本情報.日付, dbo.T顧客マスタ.顧客ID,
dbo.T顧客マスタ.顧客名
FROM dbo.T顧客マスタ INNER JOIN
dbo.T売上基本情報 ON dbo.T顧客マスタ.顧客ID = dbo.T売上基本情報.顧客ID
ビュー「vwSalesInfo」
SELECT dbo.T売上明細.商品ID, dbo.T商品マスタ.商品名,
dbo.T売上明細.単価 * dbo.T売上明細.数量 AS 金額,
dbo.T売上基本情報.日付
FROM dbo.T売上基本情報
INNER JOIN dbo.T売上明細 ON dbo.T売上基本情報.伝票番号 = dbo.T売上明細.伝票番号
INNER JOIN dbo.T商品マスタ ON dbo.T売上明細.商品ID = dbo.T商品マスタ.商品ID
