[VBS] Menyimpan Table Database Ke Dalam Text File

On Error Resume Next
Dim ADO, onjRecordSet, objField
Dim strTable,fso, objText, strTxtPath
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set ADO = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForAppending = 8

' Open DataBase with ConnectionString
ADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=F:\Program Files\Microsoft Visual Studio\"& _
"VB98\BIBLIO.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
 
  objRecordset.CursorLocation = 0
  'Load all Record in Titles Table
  objRecordset.Open "SELECT * FROM Titles ORDER BY Title" , ADO, _
      adOpenStatic, adLockOptimistic
      MsgBox "Press OK and Please Wait"
      With WScript
       strTxtPath=Left(.ScriptFullName,Len(.ScriptFullName)- _
       Len(.ScriptName)) & "TextDB.txt"
      End with
      fso.CreateTextFile strTxtPath,true
      Set objText=fso.OpenTextFile(strTxtPath,ForAppending)
       Do Until objrecordset.EOF
        strTable=Empty
        For Each objField In objRecordset.Fields
          strTable=strTable & objField.Name & ": " & objfield.Value & vbCrLf
        Next
        strTable=strTable & "--------------------------" & vbCrLf
        objText.WriteLine strTable
        objrecordset.MoveNext
       Loop
     objText.Close   ' Close Text I/O
  objRecordset.Close  ' Close Record
ADO.Close               ' Close DataBase
MsgBox "Saved as " & strTxtPath
'(c) 2010 Crowja

Jangan Lupa Komentar Yaa..