PGlabo

« [VB6.0] 全フォームのUnload | メイン | [VB6.0|Oracle] パラメータを使ったSQL文 »

2005年07月30日

[VB6.0|Oracle] DB接続

'----- データベース関連 -----
Private OraSession As Object    'Oracle セッションオブジェクト
Private OraDatabase As Object   'Oracle データベースオブジェクト



Private Sub Form_Load()

    Dim OraDB As String     'Oracle サービス名(別名)

    Dim OraUser As String   'Oracle ユーザー名

    Dim OraPass As String   'Oracle パスワード

    

    

    '==============================================================

    

    '----- エラートラップ開始

    On Local Error Resume Next

    

    '----- アイキャッチ表示

    'frmLogo に「データベース接続中 …」表示

    Load frmLogo

    frmLogo.Show

    DoEvents

    

    '==============================================================

    

    '-----iniファイル 接続

    Call basIniFile.LoadIniFile

    

    '----- サービス、ユーザー設定

    OraDB = basIniFile.pOraDB

    OraUser = basIniFile.pOraUser

    OraPass = basIniFile.pOraPass

    

    

    '----- oo4o 接続

    

    Set OraSession = CreateObject("OracleInProcServer.XOraSession")

    If Err <> 0 Then

        MsgBox "データベースに接続出来ません。" & Chr(10) & "CreateObject - Oracle oo4o エラー"

        End

    End If

    

    Set OraDatabase = _

        OraSession.OpenDatabase(OraDB, OraUser & "/" & OraPass, ORADB_DEFAULT)

    If Err <> 0 Then

        MsgBox "データベースに接続出来ません。" & Chr(10) & Err & ": " & Error

        End

    End If

    

    '==============================================================

    

    '----- アイキャッチ終了

    Unload frmLogo

    

    '----- エラートラップ終了

    On Local Error GoTo 0

    

    '==============================================================

End Sub

2005 / 07 / 30