OO4O for Visual Basic 6 (+SP5)
‘/***********************************************************/
‘/* [ 名 称 ] subCloseDB : DBクローズ
‘/* [ 引 数 ] なし
‘/* [ 戻 値 ] なし
‘/* [ 概 要 ] オラクルDBをクローズする。
‘/* 関連するオブジェクトも開放する。
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名
‘/***********************************************************/
Public Sub subCloseDB()
On Error GoTo Err_subCloseDB
‘オラクルのOraSqlStmtオブジェクトを開放する
Set poraSQLW = Nothing
‘Oracle RDBMSとの接続(Oracleモードで接続)を終了する
Set poraDb = Nothing
‘Oracle Objects Serverとの接続を終了する
Set poraSess = Nothing
‘Oracle RDBMSとの接続(Oracleモードで接続)を終了する
Set poraDbW = Nothing
‘Oracle Objects Serverとの接続を終了する
Set poraSessW = Nothing
‘プロシージャを終了する
Exit Sub
Err_subCloseDB:
‘ランタイムエラーが発生したのでエラー処理をする
Call subErrSyori(“subCloseDB”, Err.Number, Err.Description)
End Sub
初期登録日: 2003年11月09日
最終更新日: 2008年01月26日
< Home ヘ戻る >
ブラウザ画面の文字サイズを変更するショートカットキー
Shortcut Keys
|