 |
| 現在位置 ： HOME ＞ ＩＴの活用 ＞ プログラミング ＞ データベースの操作（OO4O） |
|
Page Index
|
||||||||||
|
||||||||||
| （別ページへジャンプ） | ||||||||||
| コードサンプルを中心にプログラミングに必要な情報を提供しています | ||||||||||
|
||||||||||
| OO4O は Oracle データベースのみを対象にしています。OO4Oは、OLE に対応したアプリケーション（Visual Basic, Access, Excelなど）から利用することができます。 | ||||||||||
| Page Index | ||||||||||
| ①事前の準備 | ||||||||||
| ②オブジェクト変数の定義 | ||||||||||
| ③データベースに接続 | ||||||||||
| ④レコードセットを作成 | ||||||||||
| ⑤レコードを更新 | ||||||||||
| ⑥レコードを追加 | ||||||||||
| ⑦レコードを削除 | ||||||||||
| ⑧オブジェクトを閉じる | ||||||||||
|
||||||||||
| ORACLEシステムの定義 (tnsnames.oraなど)の定義 OO4OからOracleへ接続する為には、接続用のサービス名をOracle用の名前解決 ファイル(TNSNAME.ORA)に設定しておく必要があります。通常はNet8 Configuration- Assistantにより設定します。 |
||||||||||
|
||||||||||
| データベースオブジェクトの変数を定義します | ||||||||||
| Dim wk_CN As Object ’セッション Dim wk_DB As Object ’データベース Dim wk_RS As Object ’レコードセット |
||||||||||
|
||||||||||
| データベースに接続します | ||||||||||
|
|
dim OraUSER as string */ユーザＩＤ/* dim OraPSWD as string */パスワード/* dim OraDB as string */データソース/* Set wk_CN = CreateObject("OracleInProcServer.XOraSession") ' セションの生成 Set wk_DB = OraSession.OpenDatabase(OraDB , OraUSER & "/" & OraPSWD , 0&) ' データベースへの接続 |
|||||||||
|
||||||||||
| strSql = "select * from P_TABLE" strSql = & "where P_ID > 100" Set rs = OraDatabase.CreateDynaset(strSql, 0&) 'データの取得 Do Until rs.EOF ・ ・ rs.MoveNext Loop |
||||||||||
|
||||||||||
| wk_CN.DbBeginTrans strSql = "update P_TABLE set ・・・・・・・・・・・・・・" wk_DB.ExecuteSQL strSql wk_CN.DbCommitTrans |
||||||||||
|
||||||||||
| wk_CN.DbBeginTrans strSql = "insert into ・・・・・・・・・・・・・・" wk_DB.ExecuteSQL strSql wk_CN.DbCommitTrans |
||||||||||
|
||||||||||
| wk_CN.DbBeginTrans strSql = "delete from・・・・・・・・・・・・・・" wk_DB.ExecuteSQL strSql wk_CN.DbCommitTrans |
||||||||||
|
||||||||||
| 'オブジェクトのクローズ wk_RS.Close '各種オブジェクトの開放 Set wk_CN = Nothing Set wk_DBe = Nothing Set wk_RS = Nothing |
||||||||||
くすりのこと
| |||||||||||||||||
