Access File

Dalam versi visual basic sebelumnya, Access File dilakukan dengan statement open dan fungsi lainnya. Dalam Visual Basic. NET fungsi Access File disediakan didalam namespace System.IO.File sehingga untuk dapat menggunakan fungsi tersebut anda harus mengetikkan perintah dibawah ini terlebih dahulu dibagian General

Imports System.IO



Tipe Access File dan Fungsinya


Visual Basic menyediakan 3 tipe Access File
  1. Sequential,  untuk membaca dan menulis teks file dalam blok berurutan
  2. Random, untuk membaca dan menulis teks atau binary files dengan struktur dan ukuran record yang tetap
  3. Binary, untuk membaca dan menulis dalam bentuk sembarang
Sequential Access didesign untuk digunakan dalam teks file biasa. Dimana setiap karakter dalam file tersebut dianggap mewakili baik karakter teks atau urutan teks-format, seperti karakter baris baru. Data disimpan sebagai karakter ANSI.



Random Access File diasumsikan terdiri dari record yang memiliki ukuran tetap, atau set field yang berisi informasi. Anda dapat menggunakan user-defined type untuk membuat structure yang terdiri dari berbagai field, masing-masing dapat memiliki tipe data yang berbeda.



Binary Access memungkinkan Anda untuk menggunakan file untuk menyimpan data dalam bentuk yang sesuai dengan kebutuhan Anda, apakah itu berupa angka, string, atau keduanya. Akses biner mirip dengan akses acak kecuali bahwa tidak ada asumsi yang dibuat tentang tipe data atau panjang record. Namun, Anda harus tahu persis bagaimana data ditulis ke dalam file untuk dapat dibaca dengan benar. Sebagai contoh, jika Anda menyimpan serangkaian nama dan nomor telepon, Anda perlu ingat bahwa field pertama (nama) adalah teks dan kolom kedua (nomor telepon) adalah numerik.



Fungsi Access File


  1. EOF
Berfungsi mengembalikan nilai True jika akhir dari file telah tercapai pada saat dibuka secara Random atau Sequential
 
Public Function EOF(ByVal FileNumber As Integer) As Boolean
 
 
  1. FileLen
Berfungsi mengembalikan ukuran dari file dalam bentuk bytes

Public Function FileLen(ByVal PathName As String) As Long

Cth :
Dim MySize As Long
MySize = FileLen("TESTFILE")   ' Returns file length (bytes).

  1. FreeFile
Berfungsi mengembalikan nilai integer yang mewakili nomor file yang tersedia untuk dibuka

Public Function FreeFile() As Integer

Cth : 

Dim fileNumber As Integer
fileNumber = FreeFile() ‘mengembalikan nilai 1 - 255


Random Access


Deklarasi Variabel untuk Random Access File


Sebelum membuka file untuk Random Access, deklarasikan variable kedalam bentuk structure dengan ukuran tetap terlebih dahulu

Cth
Structure Mahasiswa
        <VBFixedString(10)> Dim NIM As String
        <VBFixedString(20)> Dim Nama As String
        <VBFixedString(20)> Dim Alamat As String
End Structure

Membuka File untuk Random Access


FileOpen(FileNumber, FileName, OpenMode.Random, , , RecordLength)
 

Cth  :

Sub Main()
   Dim FileNum As Integer, RecLength As Long, datMahasiswa As Mahasiswa
   ' Calculate the record length.
   RecLength = Len(datMahasiswa)
   ' Get the next available file number.
   FileNum = FreeFile
   ' Open the new file with the FileOpen statement.
   FileOpen(FileNum, "c:\data.txt", OpenMode.Random, , , RecLength)
End Sub

Menuliskan Variabel kedalam Random Access


FilePut(FileNum, Employee, Position)
 

Cth :
FilePut(FileNumber, DatMahasiswa, 1) ‘menuliskan variable datmahasiswa kedalam record 1

Membaca Record dari Random Access


FileGet(FileNum, Employee, Position)
 


Cth  :

FileGet(FileNumber, DatMahasiswa, 1)


Labels: