22 Des 2012

Menggunakan .ini file sebagai external configuration - VB 6

Pengalaman saya nih, saat membuat aplikasi client server supermarket dengan menggunakan database MySQL. Lalu di saat komputer client digunak... thumbnail 1 summary
Pengalaman saya nih, saat membuat aplikasi client server supermarket dengan menggunakan database MySQL. Lalu di saat komputer client digunakan sebagai POS ( Point Of Sale ), harus konfigurasikan host,user dan password MySQL tersebut. Waduh, gmn caranya ya...

Download modulenya dulu di sini

Nah buka VB 6 sobat, lalu add file MODini.bas tersebut ke satu folder project. Cara menggunakannya cukup mudah sob. Contoh yg saya berikan seperti berikut :

1. Buat sebuah file config.ini atau nama apa aja yg penting extension .ini hehehhe.. lalu ketikkan berikut :

[Mysql]
host=localhost
user=root
pass=sukasukaaku
db=kadai

Keterangan :
[Mysql] => Section
host => key
localhost => value

2. Buat sebuah module lagi untuk function tulis dan baca

Public Sub SetINI(secINI As String, keyINI As String, keyValINI As String)
ModINI.AddToINI App.Path & "\config.ini", secINI, keyINI, keyValINI
End Sub

Function getINI(secINI As String, keyINI As String) As String
getINI = ModINI.GetKeyVal(App.Path & "\config.ini", secINI, keyINI)
End Function

3. Lalu panggil value nya dengan menggunakan variable script berikut :
    host = getINI("Mysql", "host")
    user = getINI("Mysql", "user")
    pass = getINI("Mysql", "pass")
    db = getINI("Mysql", "db")

4. Klo mau ngubah value tinggal masukkan script seperti ini :

            SetINI "Mysql","host","192.168.1.1"

Mudahkan?? jika belum mengerti, add aja facebook saya