29 March 2019

Cara Untuk Mengedit File Teks (.TXT) Lewat Visual Basic

www.niguru.com
Niguru.com | Jumat, 29 Mar 2019 | Pada 2 posting sebelumnya Niguru.com sudah menjelaskan langkah-langkah untuk melakukan koneksi file teks (.TXT) via ODBC.

Sayangnya koneksi file teks pada aplikasi front end hanya menghasilkan otoritas "read only", dimana user hanya dapat melihat dan mengambil data, tanpa otoritas untuk edit data.


Berikut ini cara untuk melakukan edit data pada file teks:   

Dim MyConn As String
Dim angka1 As Integer
Dim angka2 As Integer
Dim huruf1 As String

Private Sub ConnectToODBC()
MyConn$ = "Dsn=uji"

angka1 = 1
huruf1 = "bambang"
angka2 = 12348

Open MyConn For Output As #1 'menghapus semua dan buat record baru
Print #1, angka1 & Chr(59) & huruf1 & Chr(59) & angka2
Close #1

'note: chr(59) adalah semicolon
End Sub

Cara diatas akan menghapus isi dari file teks dan menggantinya dengan data baru.
Bila ingin menambah data, dan mempertahankan isi data yang sudah ada gunakan instruksi "Append", perhatikan pada contoh berikut:

Dim MyConn As String
Dim angka1 As Integer
Dim angka2 As Integer
Dim huruf1 As String

Private Sub ConnectToODBC()
MyConn$ = "Dsn=uji"

angka1 = 1
huruf1 = "bambang"
angka2 = 12348

Open MyConn For Output As #1 'menghapus semua dan buat record baru
Open MyConn For Append As #1 'nambah record
Print #1, angka1 & Chr(59) & huruf1 & Chr(59) & angka2
Close #1

'note: chr(59) adalah semicolon
End Sub

Note:
Selain instruksi PRINT, instruksi untuk menuliskan data pada file teks adalah WRITE.
Bila anda tidak mengetahui benar mengenai fungsi WRITE sebaiknya hindari saja, karena instruksi ini akan membuat data yang tersimpan menjadi STRING, dengan tambahan double apostrophe ("").

Demikianlah cara untuk melakukan edit data pada file teks. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

No comments:

Post a Comment