Menambah Baris Data Baru

insertSudah lama saya tidak menulis artikel tentang dasar-dasar penggunaan SQL programming dalam Visual Basic. Setelah penggunaan syntax SELECT untuk membuka data, kali ini saya akan menulis bagaimana menyimpan data baru di database MySQL kita. Saya akan menulis 2 cara untuk metode penyimpanan, yang pertama adalah melalui obyek recordset dan yang kedua melalui syntax SQL.

Dalam kasus ini misalnya saya mempunyai sebuah tabel dengan isi field: no_urut, nama_karyawan, usia.

Yang Pertama, melalui obyek recordset.

  1. Buat obyek recordset dahulu melalui variable. Tentu rekan-rekan sudah mengetahui hal ini, yaitu Dim rs As New ADODB.Recordset
  2. Untuk menyimpan sebaris data kedalam tabel tersebut adalah sebagai berikut:
    rs.Open "select * from tbl_karyawan", Conn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs.Fields("nama_karyawan") = "Udin"
    rs.Fields("usia") = 16
    If MsgBox("Data akan disimpan?", vbYesNo) = vbYes Then
         rs.Update
    Else
         rs.CancelUpdate
    End If
    rs.Close
  3. Data anda sudah tersimpan.

Yang Kedua, melalui syntax SQL

  1. Kita akan memakai obyek koneksi anda ke database, artikel lengkap tentang obyek koneksi ke database dapat anda baca di artikel ini. Misalnya obyek koneksi kita namai dengan Conn.
  2. Scriptnya secara garis besar seperti ini:
    Dim strUpdate As String
    strInsert = "INSERT INTO tbl_karyawan(nama_karyawan, usia) VALUES ('Udin', 16)"
    Conn.Execute strInsert
  3. Data anda sudah tersimpan.

Tentu kedua metode di atas mempunyai kelemahan dan kelebihannya sendiri. Kalau saya pribadi suka memakai cara yang kedua. Tapi semua keputusan di tangan anda. Selamat mencoba.

13 comments

  1. mat kenal admin,info yg bagus dan ini jg ad info yg menarik sebelum
    ketinggalan ikutan manatau beruntung ikutan yuk…!

  2. wah..
    mas jago VB toh?
    Kebetulan VB + SQL g agak kurang.
    Seterusnya keqnya g bakal nongkrong terus di Room SQL Anda..
    hehhehe..

    thanks

  3. salam kenal mas..
    mas mohon bantuan. Saya ingin mengeksekusi script sql dibawah, tapi clausa where ’08/08/09 %’ pengin saya ganti dengan inputan tanggal dari form1 ‘form1.label1.caption’ supaya lebih fleksibel.. tapi saya bingung caranya memasukkannya ke script sql nya.. gimana mas, cara yang terbaik? mohon bantuannya mas

    Public Sub replace()
    Set rsmhs = New ADODB.Recordset
    rsmhs.Open “REPLACE INTO todaytrx (`WAKTU`,`DOWNLINE`,`DOWNLINEHP`,`NOHPISI`,`KODEPRODUK`,`PENJUALAN`,`STATUS`,`SALDOAWAL`,`SALDOAKHIR`,`ID`) SELECT `WAKTU`,`DOWNLINE`,`DOWNLINEHP`,`NOHPISI`,`KODEPRODUK`,`PENJUALAN`,`STATUS`,`SALDOAWAL`,`SALDOAKHIR`,`ID` from tbstatus where waktu like ’08/08/09 %'”, con, adOpenDynamic, adLockOptimistic
    End Sub

  4. @koko: anda bisa menggunakan cara seperti ini: bla..blaa... FROM waktu ='" & label1.caption & "', con, bla.....

  5. ms ap perbedaan antara kode penambahan bris baru untk data di vb dengan bhsa vb yaitu recordset addnew atau dengan bhsa sql insert into. untk proyek yang agak besr yang mana baik digunakan. kalo saya kebiasan make recordset. tnks ms

  6. This is the first time I am visiting your blog and happy to read this post. I found this post is really useful one. I love reading this kind of stuff. Your blog is one of a kind, i love the way you organize the topics.

  7. mas mau tanya q lg bikin program,, vb.net pke Mysql database
    q pengen klo tombol combo box q gk cma bsa d klik trus rool k bawah mncul isinya,,
    q pengen klo ketik datanya d combo bok otomatis jg rool kbwah
    intinya combo box gk cuma d klik tp jga bisa d ketik
    terima kasih sebelumya

Leave a Reply

Your email address will not be published.

CommentLuv badge

This site uses Akismet to reduce spam. Learn how your comment data is processed.