PGlabo

« [INI|VB6.0] INIファイル（初期化ファイル）の書き込み方 | メイン | [Oracle] Oracleデータ型 »

2005年07月30日

[INI|VB6.0] INIファイル（初期化ファイル）の呼び出し方

'■モジュール（basIniFile.bas）

Option Explicit

Private Declare Function GetPrivateProfileString Lib "kernel32" _

    Alias "GetPrivateProfileStringA" ( _

    ByVal lpApplicationName As String, _

    ByVal lpKeyName As Any, _

    ByVal lpDefault As String, ByVal lpReturnedString As String, _

    ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Const FileName As String = "SampleTable.ini"

Private iniName As String

Private iniSection As String

Private iniKey As String

Private iniLen As String * 255

Private L As Boolean

Private DB As String

Private User As String

Private Pass As String

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

Public Sub LoadIniFile()

    iniName = App.Path & "\" & FileName

    iniSection = "ORACLE"   'iniファイル セクション

    

    '--- Oracleサービス名

    iniKey = "OraDatabase"  'iniファイル キー

    iniLen = Space$(255)    'Bufferの初期化

    L = GetPrivateProfileString(iniSection, iniKey, "Error", iniLen, Len(iniLen), iniName)

    DB = Trim$(Left(iniLen, InStr(iniLen, Chr(0)) - 1))

    

    '--- Oracleユーザー名

    iniKey = "OraUserName"  'iniファイル キー

    iniLen = Space$(255)    'Bufferの初期化

    L = GetPrivateProfileString(iniSection, iniKey, "Error", iniLen, Len(iniLen), iniName)

    User = Trim$(Left(iniLen, InStr(iniLen, Chr(0)) - 1))

    

    '--- Oracleパスワード

    iniKey = "OraPassword"  'iniファイル キー

    iniLen = Space$(255)    'Bufferの初期化

    L = GetPrivateProfileString(iniSection, iniKey, "Error", iniLen, Len(iniLen), iniName)

    Pass = Trim$(Left(iniLen, InStr(iniLen, Chr(0)) - 1))

End Sub

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

Public Property Get pgOraDB()

    pgOraDB = DB

End Property

Public Property Get pgOraUser()

    pgOraUser = User

End Property

Public Property Get pgOraPass()

    pgOraPass = Pass

End Property

'■呼び出し方

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

Call basIniFile.LoadIniFile

    

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

OraDB = basIniFile.pgOraDB

OraUser = basIniFile.pgOraUser

OraPass = basIniFile.pgOraPass

2005 / 07 / 30