Tutorial Vb.Net : Simpan & Baca Data File .Txt (Import & Save Txt File)

Membuat dan Membaca Kembali File .Txt dan Menampilkan di TextBox

Tutorial Visual Basic Net Sebelumnya yaitu tentang Tutorial  CRUD (Create, Update, Delete) Vb.Net menggunakan database MySQL, namun kita juga bisa membaca dan menyimpan data tanpa menggunakan Database MysQL ataupun Database Access, yaitu dengan menggunakan File.Txt, ikuti tutorial Vb.net ini step by step

Langkah pertama Menyimpan Data Ke File Txt

Buatlah Form baru dengan nama FrmUtama.vb, masukkan field - field sehingga tampak seperti gambar berikut :

Keterangan :
Label, TextBox, Button,MenuStrip dan DateTimePicker


Pada MenuStrip Isi Field seperti gambar berikut :

Selanjutnya pada button Simpan klik 2x dan masukkan Code Berikut :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objStreamWriter As StreamWriter
        Dim tahun = Format(CDate(DateAndTime.Now), "yMMddhhss")
        Dim NamaFile As String = "Kwitansi-" & TextBox4.Text & "-Tgl-" & tahun
        objStreamWriter = New StreamWriter(My.Application.Info.DirectoryPath & "\DATA\" & NamaFile & ".txt")
        objStreamWriter.WriteLine(TextBox1.Text)
        objStreamWriter.WriteLine(TextBox2.Text)
        objStreamWriter.WriteLine(TextBox3.Text)
        objStreamWriter.WriteLine(DateTimePicker1.Value)
        objStreamWriter.WriteLine(TextBox4.Text)
        MsgBox("Data Tersiman !")
        objStreamWriter.Close()
    End Sub

Button Keluar

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

Menu Import kwitansi

    Private Sub ImportKwitansiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportKwitansiToolStripMenuItem.Click
        Dim vimport As New OpenFileDialog
        vimport.Filter = "Text File(*.txt)| *.txt"
        vimport.InitialDirectory = My.Application.Info.DirectoryPath & "\DATA\"
        If vimport.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim myfile As String = vimport.FileName
        Dim bacafile As New System.IO.StreamReader(myfile)
        TextBox1.Text = bacafile.ReadLine
        TextBox2.Text = bacafile.ReadLine
        TextBox3.Text = bacafile.ReadLine
        DateTimePicker1.Value = bacafile.ReadLine
        TextBox4.Text = bacafile.ReadLine
        bacafile.Close()
    End Sub

Kalau semuanya selesai, tinggal jalankan aplikasi anda, tekan F5 dan sukses, jangan lupa untuk bertanya jika ada yang bermasalah, jika masih ada yang bingung dengan tutorial diatas silahkan lihat video tutorial simpan dan baca file text berikut :


 terima kasih ;)