Langkah pertama kita buat terlebih dahulu file dengan isi sebagai berikut : host=localhost user=user pass=password db=database Setelah itu disimpan ke dalam file [dot] ini dengan nama file koneksi.   lcOldOnError = ON("ERROR") lnfile_handle = FOPEN("koneksi.ini") DO WHILE !FEOF(lnfile_handle) lcstring = FGETS(lnfile_handle) IF AT("host",lcstring,1) > 0 then h...

Membaca File [dot] ini dengan vfp

Langkah pertama kita buat terlebih dahulu file dengan isi sebagai berikut :

host=localhost
user=user
pass=password
db=database

Setelah itu disimpan ke dalam file [dot] ini dengan nama file koneksi.

Berikut ini cara membaca data yang berada didalam file koneksi.ini dengan menggunakan foxpro

lcOldOnError = ON("ERROR")
lnfile_handle = FOPEN("koneksi.ini")
DO WHILE !FEOF(lnfile_handle)
   lcstring = FGETS(lnfile_handle)
   IF AT("host",lcstring,1) > 0
          host=SUBSTR(lcstring,6)
   ENDIF 
   IF AT("user",lcstring,1) > 0
   	  user=SUBSTR(lcstring,6)
   ENDIF
   IF AT("pass",lcstring,1) > 0
   	  pass=SUBSTR(lcstring,6)
   ENDIF
   IF AT("db",lcstring,1) > 0
   	  db=SUBSTR(lcstring,4)
   ENDIF   
ENDDO
=FCLOSE(lnfile_handle)

FOPEN digunakan untuk membuka file koneksi.ini,

FGETS digunakan untuk mendapatkan data yang ada dalam file yang telah dibuka sebelumnya,

Jika ditampilkan dengan menggunakan MESSAGEBOX(host), MESSAGEBOX(user), MESSAGEBOX(pass) dan MESSAGEBOX(db), maka hasilnya akan seperti pada gambar dibawah ini :

Sekian dulu pembahasan tetang foxpronya, nantikan tutorial-tutorial berikutnya.


About Author

Irvan Riswanto

Just An Ordinary People


Comment & Discussions

  • Cecep Yusuf
    Keren gan tutorialnya.. mudah2an tutorial foxpro dibanyakin.. lagi pengen belajar Foxpro nih.. :D

  • Please LOGIN before if you want to give the comment.