10:46:00 AM
2

Dalam setiap transaksi aplikasi yang terintegrasi dengan aplikasi lain baik resmi atau tidak, pemerintah atau swasta pasti di butuhkan export dan import data agar aplikasi yang berbeda bisa melakukan pengolahan data yang sama. Banyak macamnya, tapi yang sering saya temui itu file yang berbentuk CSV. file ini selalu tertanam pada aplikasi besar baik export, import, upload atau download. Berikut cara untuk melakukan Export/Convert data ke CSV yang saya lakukan pada Visual Basic 6.


simpan code ini di paling atas :

Dim strLokasi As Object
Dim lSize As Long
Dim folderAda As Boolean
Sebelumnya kita membuat string dulu buat napung tanda kutip, karna ini sebagai pemisah di csv tersebut sedangkan di VB tanda kutip ini pasti dibaca code.
Dim kuTip, X, Y, strNPWP, strTGL As String
kuTip = """"
Lalu kita siapin tempat untuk penyimpanan file CSV yang akan kita buat .
Set fileLokasi = CreateObject("Scripting.FileSystemObject")
lSize = -1
Set strLokasi = fileLokasi.CREATETextFile("Lokasi dan Nama File) & ".CSV")
Setelah itu baru deh kita bikin kolom perkolom, ini contoh headernya.
strLokasi.writeline (kuTip & "NO" & kuTip & ";" & kuTip & "NAMA BARANG" & kuTip & ";"& kuTip & "HARGA" & kuTip & ";")
Terus untuk isi detailnya kita bisa looping deh di ambil dari table dan field yang kita tentukan, code nya sama kayak diatas tinggal ganti No, Nama Barang dan Harga sesuai tabel dan field yang di inginkan. Buat cara nge looping bisa di cari di google.
Tarrraaaa. File CSV langsung jadi :))



Semoga Bermanfaat .
Like and Share yah :))




2 komentar: