PGlabo

[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

[INI|VB6.0] INIファイル（初期化ファイル）の書き込み方

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

Option Explicit

Private Declare Function WritePrivateProfileString Lib "kernel32" _

    Alias "WritePrivateProfileStringA" ( _

    ByVal lpApplicationName As String, _

    ByVal lpKeyName As Any, ByVal lpString As Any, _

    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 L As Boolean

Private NewDB As String



Public Sub SaveIniFile()

　　iniName = App.Path & "\" & FileName

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

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

    

　　L = WritePrivateProfileString(iniSection, iniKey, NewDB, iniName)

End Sub



Public Property Let plOraDB(ByVal strDBName As String)

　　NewDB = strDBName

End Property

'■呼び出し方

basIniFile.plOraDB = "OraDB_NewName"

basIniFile.SaveIniFile

2005 / 07 / 30

[INI] INIファイル（初期化ファイル）の中身

;■INI ファル（SampleTable.ini）

;＊ SampleTable 用 INIファイル ＊　　　→　何のINIファイルか

--Oracle関連　　　　　　　　　　　　　　　→　コメント

[ORACLE]　　　　　　　　　　　　　　　　　→　セクション名

OraDatabase = OraDB2　　　　　　　　　→　セクションのキー = 値

OraUserName = YAMADA

OraPassword = MISAKO

--Access関連

[MDB]

MdbPath = .\DB

MdbName = .\data.mdb

2005 / 07 / 30