How To Export Access Database into Text File Using vbScript

Yah daripada ngga ada kerjaan.... Ini ada sesuatu yg bisa bikin otak kita kejang dikit^^

Note :
Database dan datanya tidak dilampirkan jadi siapin sendiri yach~
Simpan Database difolder yang sama dengan file vbs berikut.
Modalnya cuma Copy paste kedalam Notepad aja.
Lalu save dengan format ".vbs"
Buat yang masih belum tau cara nge-save filenya :
Setelah Dialog Box Save As terbuka, simpan file : "AccessIntoTextFile.vbs" [jangan lupa tanda petiknya^^]
Untuk menjalankan double click file vbs tersebut.

Here we go....

'==============================================
'Script is start form here
'How To Export Access Database into Text File Using vbScript
'File : AccessIntoTextFile.vbs
'==============================================

Const adOpenStatic = 3
Const adLockOptimistic = 3

'Siapkan penampungnya
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

'Siapkan Text File
Set objFSOW = CreateObject("Scripting.FileSystemObject")
Set objFileW = objFSOW.CreateTextFile(".\" & "ExportResult.txt", True)

'membuka Koneksi menuju Access
objConnection.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = " & ".\" & "Database.mdb"

'Query isi Database
objRecordSet.Open "SELECT name, address " & _
"FROM CustMaster", objConnection, adOpenStatic, adLockOptimistic

'Membaca hasil query baris pertama sampai terakhir
objRecordSet.MoveFirst

Do Until objRecordSet.EOF = True
objFileW.Writeline objRecordSet(0) & " " & objRecordSet(1)
objRecordSet.MoveNext
Loop

'Tutup koneksi, semua file dan bersihkan penghubung
objRecordSet.Close
objConnection.Close
objFileW.Close

'End of Script.