Forum Informatika

Masih oleh -oleh dari site lalu....
mengingat banyaknya peminat topik ini ...
(sombongggggggggg....... hahaha.... bukannnnn.... semoga bisa bermanfaat...thx 2 all)

Sebelumnya...sedikit penjelasan tentang bagian2 dalam "ini" file

1.	Section	Bagian di atas yang di apit tanda "[]"
2.	Key	Bagian dalam section, seakan akan sebagai nama_object
3.	Value	Value dari key

(bingunggggg ??.... yg nulis juga nihhh.... )

Manipulasi file dengan extension "ini" ini menggunakan API, pada intinya ada 2 perintah

1.	Membaca value suatu key di suatu section	GetPrivateProfileString(nama_section, nama_key, vbNullString, Value_Result, 255, path)
2.	Men-set value suatu key di suatu section	WritePrivateProfileString nama_section, nama_key, Value, path

Download link :
http://www.box.net/shared/d7oustvmcp

Iseng2

Public HostName as String
Public DBType as String
Public RootPassword as String

Public 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

Public 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


Public Sub SetINI(strMain As String, strSub As String, strvalue As String)
    WritePrivateProfileString strMain, strSub, strvalue, App.Path & "\FileName.ini"
End Sub

Function GetINI(strMain As String, strSub As String) As String
    Dim strBuffer As String
    Dim lngLen As Long
    Dim lngRet As Long
 
    strBuffer = Space(5000)
    lngLen = Len(strBuffer)
    lngRet = GetPrivateProfileString(strMain, strSub, vbNullString, strBuffer, lngLen, App.Path & "\KeuanganSys.ini")
    GetINI = Left(strBuffer, lngRet)
End Function

Public Sub OpenINI()
    HostName = GetINI("FILE INI", "HOST")
    DBType = GetINI("FILE INI", "TYPE")
    RootPassword = GetINI("FILE INI", "ROOT")
End Sub

Private Sub Form_Load()
    OpenINI
End Sub

Private Sub cmdOK_Click()
    SetINI "FILE INI", "HOST", Text1.Text
    SetINI "FILE INI", "TYPE", IIf((Check1.Value = 0), "ACCESS", "SQLSERVER")
End Sub