[VBS] Database - Menambah Record Dalam Table

Dim objADO,objRecordSet
Set objADO = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
Const adOpenStatic = 3
Const adLockOptimistic = 3

' Create Connection String
objADO.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = f:\Phone.mdb" 

' Open All Record in TemanKu Table With SQL Statement
 objRecordSet.Open "SELECT * FROM TemanKu ORDER By Nama" , _
 objADO, adOpenStatic, adLockOptimistic
  objRecordSet.AddNew
  objRecordSet("Nama") = "Crowja-Coderz"
  objRecordSet("Alamat") = "jlMataram No84 Kroya"
  objRecordSet("Telephone") = "6285291175712"
  ' Update Record
  objRecordSet.Update
 
 objRecordSet.Close
objADO.Close
'(c) 2010 Crowja

Jangan Lupa Komentar Yaa..