« [ASP.NET] Dataset と DataReader | メイン | [VB6.0] Shell 関数（パラメータ付き） »

2005年10月13日

[VB6.0|Oracle] oo4o 関数

Option Explicit


Global oraSESSION As Object

Global oraDATABASE As Object



Global Const ORADB_DEFAULT = &H0

Global Const ORADYN_DEFAULT = &H0



Function oraCONNECT(ByVal USERID As String, ByVal PASS As String, ByVal TNS As String) As Boolean
    Dim FLAG As Boolean
    Dim CONNECTID As String
    On Error GoTo Err1


    FLAG = True

    CONNECTID = USERID & "/" & PASS



    Set oraSESSION = CreateObject("OracleInProcServer.XOraSession")

    Set oraDATABASE = oraSESSION.OpenDatabase(TNS, CONNECTID, ORADB_DEFAULT)



    oraCONNECT = FLAG

    Exit Function



Err1:

    FLAG = False

    oraCONNECT = FLAG



End Function



Function oraSELECT(ByVal strSQL As String, ByRef oraDYNASET As Object) As Boolean
    Dim FLAG As Boolean
    On Error GoTo Err1


    FLAG = True



    Set oraDYNASET = oraDATABASE.CreateDynaset(strSQL, ORADYN_DEFAULT)



    oraSELECT = FLAG

    Exit Function



Err1:

    FLAG = False

    oraSELECT = FLAG

    Debug.Print strSQL

End Function



Function oraEXECUTE(ByVal strSQL As String) As Boolean
    Dim FLAG As Boolean
    On Error GoTo Err1


    FLAG = True



    oraDATABASE.ExecuteSQL strSQL



    oraEXECUTE = FLAG

    Exit Function



Err1:

    FLAG = False

    oraEXECUTE = FLAG



End Function

2005 / 10 / 13