データベース接続及び切断

「ﾌﾟﾛｼﾞｪｸﾄ」 - 「参照設定」

Option Explicit

Public Cn As New ADODB.Connection
Public bDbOpenFlag As Boolean
    
    
'----------     データベースを開く     ----------
Public Sub AdoOpenDB(ConStr As String)

    bDbOpenFlag = False
    
    Cn.Open ConStr
    'Debug.Print Cn.Version
    
    bDbOpenFlag = True
    
End Sub


'----------     データベースを開く(接続文字列指定)     ----------
Public Sub ModuleOpenDB()
    
    Dim ConStr As String
        
    ConStr = "Provider=MSDAORA.1;" & _
                "Password=Pass; User ID=OraUser; Data Source=SourceName"

    'データベースを開く
    Call AdoOpenDB(ConStr)
        
End Sub


'----------     データベースを閉じる     ----------
Public Sub AdoCloseDB()

    If bDbOpenFlag = True Then
        Cn.Close
    End If
    
End Sub


'----------     SQLエラーを表示     ----------
Public Sub AdoGetError()
    
    Dim Buff As String

    If Cn.Errors.Count > 0 Then
        Buff = Cn.Errors.Item(0).SQLState & Cn.Errors.Item(0).Description & Date & "  " & Time
        MsgBox Buff, vbExclamation
    End If
              
End Sub


'----------     メインフォームが立ち上がった場合     ----------
Public Function frmMainLoad() As Boolean

    On Error GoTo Err_Handle
  
    'データベースを開く
    Call ModuleOpenDB
   
   
   '##############   処理   ##############
   

Err_Handle:

    Call AdoGetError

    MsgBox Err.Source & vbCr & Err.Description, vbCritical

    frmMainLoad = False

End Function

		    

---

<戻る>

楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル