スライド 1

Size: px

Start display at page:

Download "スライド 1"

ときなちゅうか
5 years ago
Views:

2 自己紹介 Z80 アセンブラ 6809 アセンブラ F-BASIC N88-BASIC FORTRAN 77 COBOL LISP Turbo Pascal Prolog KABA C 言語 M シリーズアセンブラ PL/I VB3.0~ PL/SQL T-SQL VB2005/2008

3 タイトルの意味は?

4 Visual Basic Oracle Database 11g Release 初音玲 Part.2

5 index 接続データ取得データ更新権限

6 ADO.NET の基本的な構造.NET データプロバイダ Parameter DataAdapter プログラミング Command Connection DataReader Transaction DataSet プログラミングデータベース Windows コントロール ASP.NET コントロール

7 ODP.NET の基本的な構造 ODP.NET OracleParameter OracleDataAdapter プログラミング OracleCommand OracleConnection OracleDataReader OracleTransaction DataSet プログラミング Oracle Database Windows コントロール ASP.NET コントロール

8 Visual Studio ビルドアセンブリ ODT デプロイ.NET ストアド ( アセンブリ ) ODP.NET ODP.NET ODE.NET ODP.NET ODP.NET:Oracle Data Provider for.net ODT :Orace Developer Tools for Visual Studio ODE.NET:Oracle Database Extensions for.net Oracle Database

9 対応 DB バージョン ODT 10.1.x.x Oracle 9i Database Release 2 Oracle Database 10g Release 1 ODT Oracle 9i Database Release 2 Oracle Database 10g Release 1 Oracle Database 10g Release 2 対応 Visual Studio Visual Studio.NET 2003 Visual Studio.NET 2003 ODT Oracle8i R 以降 Visual Studio.NET 2003 Visual Studio 2005 ODT Oracle 9i Database Release 2~ Visual Studio.NET 2003 Visual Studio 2005 Visual Studio 2008 ~ODT 10.2: サーバーエクスプローラとは別 ODT 11.1~: サーバーエクスプローラに統合

10 専用ミドルウェアはやっぱり速い OLE DB.NET Data Provider OLE DB Provider for Oracle ODP.NET oo4o ログオン参照追加更新 VB2005+oo4o の処理時間を 1 としたときの相対比独自プログラムによる測定 10

11 DataSet クラスメモリ上の仮想データベース DataTablesコレクション DataTable クラス DataRowsコレクション DataColumnsコレクション Constraintsコレクション DataRelations コレクション RDBMSのリレーション定義に相当親子関係を定義行列主キー, 外部キー制約

12 ODP.NET OracleConnection オブジェクト特定のデータソースへの接続を確立 OracleCommand オブジェクトデータソースに対してコマンドを実行 OracleDataReader オブジェクトデータソースから前方向読取専用でデータ取得 OracleDataAdapter オブジェクト DataSet を設定しデータソースを使用して更新内容を解決

13 index 接続データ取得データ更新権限

14 Connection オブジェクト SQL Server SqlConnection Dim cn As New SqlConnection() cn.connectionstring = "User Id=sa;" & _ "Password=aU98rrx2;" & _ "Initial Catalog=pubs;" & _ "Data Source=servername;" cn.open() Oracle(ODP.NET) OracleConnection Dim cn As New OracleConnection() cn.connectionstring = "User Id=scott;" & _ "Password=tiger;" & _ "Data Source=orcl.world;" cn.open()

15 接続文字列の設定タイミング変数宣言時点 Dim cn As New OracleConnection("User id= ") cn.open 任意 Dim cn As New OracleConnection() : ( 中略 ) : cn.connectionstring = "User id= " cn.open()

16 Try~Catch ADO.NET からのエラーの取得 cn.open を Try~Catch で囲む Catch には OracleException? OracleException ex.message ex.stacktrace Exception でいいかも?

17 接続接続処理切断疑似接続疑似切断疑似接続疑似アプリケーション切断 ODP.NET 疑似 DB サーバ User Id={0};Password={1};Data Source= ホスト文字列 ; ODP.NET のデフォルト動作は Pooling=True

18 index 接続データ取得データ更新権限

19 Command オブジェクト SQL Server SqlCommand Using _cmd As New SqlCommand() _cmd.connection = cn _cmd.commandtext = "SELECT * FROM employee" : End Using Oracle(ODP.NET) OracleCommand Using _cmd As New OracleCommand() _cmd.connection = cn _cmd.commandtext = "SELECT * FROM employee" : End Using

20 変数宣言時点 SELECT 文設定タイミング Using _cmd As New OracleCommand(sql, cn) : End Using 任意 Using _cmd As New OracleCommand() _cmd.connection = cn _cmd.commandtext = sql : End Using 接続タイミングは? Connection

DataReader オブジェクト SQL Server SqlDataReader Dim rd As SqlDataReader() rd = _cmd.executereader Do While rd.read Me.ResultList.Items.Add(rd.Item("fname").ToString) Loop rd.

21 DataReader オブジェクト SQL Server SqlDataReader Dim rd As SqlDataReader() rd = _cmd.executereader Do While rd.read Me.ResultList.Items.Add(rd.Item("fname").ToString) Loop rd.close() 必須なのは? Oracle(ODP.NET) OracleDataReader Dim rd As OracleDataReader() rd = _cmd.executereader Do While rd.read Me.ResultList.Items.Add(rd.Item("fname").ToString) Loop rd.close() 必須なのは?

DataReader を使う上での注意点 Using _cn As New OracleConnection(CnString) _cn.open() Using _cmd As New OracleCommand(SqlString, _cn) Dim rd As OracleDataReader = Nothing rd = _cmd.executereader Do While rd.

22 DataReader を使う上での注意点 Using _cn As New OracleConnection(CnString) _cn.open() Using _cmd As New OracleCommand(SqlString, _cn) Dim rd As OracleDataReader = Nothing rd = _cmd.executereader Do While rd.read Me.ResultList.Items.Add(rd.Item("fname").ToString) Loop End Using Using _cmd As New OracleCommand(SqlString, _cn) Dim rd As OracleDataReader = Nothing rd = _cmd.executereader Do While rd.read Me. ResultList.Items.Add(rd.Item("fname").ToString) Loop End Using _cn.close() End Using 間違いはどこ?

23 列単位でデータを実取得する rd = _cmd.executereader() rd.read メソッドで 1 行分を読み込む 1 行前の読みなおしは不可行を飛ばして読み込むのも不可 rd = _cmd.executereader( _ CommandBehavior.SequentialAccess) rd.item(0) で 1 項目分を読み込む rd.getbytes(0,stp,outsize,0,buffersize) で分割読み込み先頭項目から順番に取得項目取得後にそれより前の項目取得不可項目を飛ばして取得不可

24 Parameter オブジェクト SQL Server SqlParameter sqlstring = _"SELECT * FROM employee " & _ "WHERE fname=@fname AND lname=@lname" Using _cmd As New SqlCommand(sqlString, _cn) _cmd.parameters.add(new SqlParameter("fname", Me.FName.Text)) _cmd.parameters.add(new SqlParameter("lname", Me.LName.Text)) : End Using Oracle(ODP.NET) OracleParameter sqlstring = "SELECT * FROM employee " & _ "WHERE fname=:fname AND lname=:lname" Using _cmd As New OracleCommand(sqlString, _cn) _cmd.bindbyname = True _cmd.parameters.add("fname", Me.FName.Text) _cmd.parameters.add("lname", Me.LName.Text) : End Using なぜ違う?

25 Parameter オブジェクト以下の条件を与えたときの実行結果は?

26 GUI 操作による DB アプリ作成マスターディテール形式の画面を作成 GUI 操作のみ詳細 DEPT SplitContainer EMP DataGridView 26

27 GUI 操作による開発と生産性 GUI でお手軽開発で良いか検討すべてをカバーするものではない意図したタイミングで意図したデータを取得業務の特性に合わせて画面の特性に合わせてお客様の特性に合わせてそのためにはやはりコーディングが必要 27

28 index 接続データ取得データ更新権限

29 SQL 文の直接実行 (Command オブジェクト ) SQL Server SqlParameter sqlstring = _ "UPDATE employee SET minit=@minit WHERE emp_id=@emp_id" Using _cmd As New SqlCommand(sqlString, _cn) _cmd.parameters.add(new SqlParameter("emp_id", Me.Emp_Id.Text)) _cmd.parameters.add(new SqlParameter("minit", Me.Minit.Text)) _cmd.executenonquery End Using Oracle(ODP.NET) OracleParameter sqlstring = _ "UPDATE employee SET minit=:minit WHERE emp_id=:emp_id" Using _cmd As New OracleCommand(sqlString, _cn) _cmd.bindbyname = True _cmd.parameters.add("emp_id", Me.Emp_Id.Text) _cmd.parameters.add("minit", Me.Minit.Text) _cmd.executenonquery End Using

30 データソースと DataSet クラスの対応付け.NET データプロバイダには更新可能セットがない DataSet は仮想的なデータベースもちろん更新も可能.NET データプロバイダと DataSet の相互乗り入れ DataSet によるデータソースの更新可能セットを実現アプリデータソース Command DataAdapter Dataset

DataAdapter オブジェクト SQL Server SqlDataAdapter Using _cn As New SqlConnection(CnString) Using _cmdas New SqlCommand("SELECT * FROM employee", _cn) Using _da As New SqlDataAdapter(_cmd) _da.

31 DataAdapter オブジェクト SQL Server SqlDataAdapter Using _cn As New SqlConnection(CnString) Using _cmdas New SqlCommand("SELECT * FROM employee", _cn) Using _da As New SqlDataAdapter(_cmd) _da.fill(ds, "employee") Me.ResultGrid.DataSource = ds.tables("employee") End Using End Using End Using Oracle(ODP.NET) OracleDataAdapter Open タイミングは? Using _cn As New OracleConnection(CnString) Using _cmdas New OracleCommand("SELECT * FROM employee", _cn) Using _da As New OracleDataAdapter(_cmd) _da.fill(ds, "employee") Me.ResultGrid.DataSource = ds.tables("employee") End Using End Using End Using

32 CommandBuilder で SQL 作成 _cn.open() Using _tr As SqlTransaction = _cn.begintransaction() Using _cmd As New SqlCommand("SELECT * FROM employee ", _cn) _cmd.transaction = _tr '### 重要 ### Using _da As New SqlDataAdapter(_cmd) Using _cb As New SqlCommandBuilder(_da) _da.updatecommand = _cb.getupdatecommand() _da.insertcommand = _cb.getinsertcommand() _da.deletecommand = _cb.getdeletecommand() Try _da.update(ds, "employee") _tr.commit() Catch ex As Exception MessageBox.Show(ex.Message, ) _tr.rollback() End Try End Using End Using End Using End Using

33 CommandBuilder オブジェクト SetAllValues プロパティ True:UPDATE SQLのSET 句にすべてセット False:UPDATE SQLのSET 句に変更値だけをセット利用状況モニタで確認実装すらされていません SET [minit] ConflictOption プロパティ CompareAllSearchableValues WHERE (([emp_id] AND ([fname] AND ((@p11 = 1 AND [minit] IS NULL) OR ([minit] AND ([lname] AND ([job_id] AND ((@p15 = 1 AND [job_lvl] IS NULL) OR ([job_lvl] AND ([pub_id] AND ([hire_date] CompareRowVersion WHERE (([emp_id] OverwriteChanges This property is not supported. WHERE (([emp_id]

34 DataSet の利用時の注意点 SQL Server の 10 進数型の扱い Oracle の NUBER 型の有効桁数 38 桁 DataSet (CLR) の 10 進数型の有効桁数 28 桁実行時エラー Fill メソッド実行時に 10 進数型の値が 28 桁を超えたとき対策 Oracle.DataAccess.Types.OracleDecimal

35 DataSetの利用時の注意点 Fillメソッドで全データ取得 selectメソッドで必要な情報取得 Fillメソッドで必要データのみ取得表示データから選択データ抽出 selectメソッド利用

36 トランザクション処理 GUI 操作で作成した DB アプリには致命的障害保存ボタンで保存されるのは DEPT のみ Me.Validate() Me.DEPTBindingSource.EndEdit() Me.DEPTTableAdapter.Update(Me.DataSet1.DEPT) EMP への Update メソッドを追加で解決? DEPT 更新後 EMP 更新に失敗すると.. トランザクション制御が必要 36

EMPTableAdapterオブジェクト OracleCommand OracleConnection オブジェクトオブジェクト

37 暗黙的なトランザクション TableAdapter ごとに Connection が存在 Connection に対するトランザクションでは無理 DEPTTableAdapterオブジェクト OracleCommand OracleConnection オブジェクトオブジェクト EMPTableAdapterオブジェクト OracleCommand OracleConnection オブジェクトオブジェクト Oracle Database MS-DTC ( マイクロソフト分散トランザクションコーディネータ ) System.Transactions クラスを使う 37

38 暗黙的なトランザクション Try Me.Validate() Using _trn As New System.Transactions.TransactionScope Me.DEPTBindingSource.EndEdit() Me.DEPTTableAdapter.Update(Me.DataSet1.DEPT) ' Me.EMPBindingSource.EndEdit() Me.EMPTableAdapter.Update(Me.DataSet1.EMP) ' _trn.complete() ' トランザクション完了 End Using Catch ex As System.Transactions.TransactionAbortedException MessageBox.Show(ex.Message) Catch ex As Exception End Try MessageBox.Show(ex.Message) ADO.NET 2.0 からは COM+ カタログ登録不要 GAC への登録不要 System.Transactions の参照設定を忘れないように 38

39 Connection が 1 つ明示的なトランザクション Connection に対するトランザクションで可能 OracleCommand オブジェクト OracleCommand オブジェクト OracleConnection オブジェクト Oracle Database 39

40 明示的なトランザクション _trn = cn.begintransaction() Try : _DBCmdEMP.Transaction = _trn _DBCmdDEPT.Transaction = _trn _DBCmdEMP.ExecuteNonQuery() _DBCmdDEPT.ExecuteNonQuery() _trn.commit() Catch ex As Exception _trn.rollback() End Try 40

41 ( おまけ )LINQ to SQL LINQtoSQL クラスを追加 (.dbml) サーバエクスプローラから Drag&Drop 標準クエリ演算子を記述

42 index 接続データ取得データ更新権限

43 接続はアプリ固有ユーザ ID 権限コネクションプーリングアプリ側でアクセス制御直接ツールで接続されたら? アプリ側にバグがあったら? 接続は利用者固有ユーザ ID コネクションプーリング DB の設定でアクセス制御直接ツールで接続されても安全アプリ側にバグがあっても安全

44 Oracle におけるユーザ管理 Oracle 認証 Oracle インスタンスユーザー Security Policy 認証権限 Windows 認証 Windows Oracle インスタンスユーザーユーザー Security Policy 認証 Security Policy ローカル認証だと 4 万人くらいが限界なので AD 認証も考慮権限

45 Windows アプリにおけるお勧め認証構造 Win アプリ XML WEB サービス DB ID/ パス渡し DB 認証 Windows 認証

46 WEB アプリにおけるお勧め認証構造ブラウザ WEBアプリ XML WEBサービス DB ID/ パス渡し DB 認証

47 まとめ接続接続プーリングデータ取得コード記述開発 GUI 操作開発権限 Oracle 認証 Windows 認証データ更新 CommandBuilder トランザクション

いまさら聞けないVB2008 ADO.NET超入門

いまさら聞けないVB2008 ADO.NET超入門自己紹介 Z80 アセンブラ 6809 アセンブラ F-BASIC N88-BASIC FORTRAN 77 COBOL LISP Turbo Pascal Prolog KABA C 言語 M シリーズアセンブラ PL/I VB3.0~ PL/SQL T-SQL VB2005/2008 index 接続データ取得データ更新権限 ADO.NET の基本的な構造.NET データプロバイダ Parameter