Kamis, 24 Juni 2010

2

[VBS] Database - Menambah Record Dalam Table

  • Kamis, 24 Juni 2010
  • Nurkholish Ardi Firdaus
  • Share


  • 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..
    Related Posts Plugin for WordPress, Blogger...

    2 Komentar Untuk “[VBS] Database - Menambah Record Dalam Table”

    Blogger mengatakan...
    Kamis, 13 Oktober 2016 23.25.00 WIB Reply To This Comment

    Did you know that you can earn money by locking special pages of your blog or website?
    Simply open an account with AdscendMedia and run their content locking tool.


    Blogger mengatakan...
    Jumat, 03 Agustus 2018 11.38.00 WIB Reply To This Comment

    Easily Boost Your ClickBank Banner Traffic And Commissions

    Bannerizer made it easy for you to promote ClickBank products by banners, simply go to Bannerizer, and grab the banner codes for your selected ClickBank products or use the Universal ClickBank Banner Rotator to promote all of the ClickBank products.


    Posting Komentar

    Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe

    Subscribe