Menambah Baris Data Baru
Sudah 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.
- Buat obyek recordset dahulu melalui variable. Tentu rekan-rekan sudah mengetahui hal ini, yaitu Dim rs As New ADODB.Recordset
- 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
- Data anda sudah tersimpan.
Yang Kedua, melalui syntax SQL
- 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. - Scriptnya secara garis besar seperti ini:
Dim strUpdate As String strInsert = "INSERT INTO tbl_karyawan(nama_karyawan, usia) VALUES ('Udin', 16)" Conn.Execute strInsert
- 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.
Artikel-artikel Yang Berhubungan Dengan Artikel Ini
- Selamat Datang Visual Studio 2010! (April 18th, 2010)
- Manipulasi Registry Dengan Visual Basic 2008 (December 21st, 2009)
- Membuka File dBase (October 15th, 2009)
- Memperbarui Data Yang Sudah Ada (June 22nd, 2009)
- Mengatur Regedit Melalui Visual Basic Script (April 14th, 2009)
8 Komentar
Willy -KL on June 19th, 2009
wah..
mas jago VB toh?
Kebetulan VB + SQL g agak kurang.
Seterusnya keqnya g bakal nongkrong terus di Room SQL Anda..
hehhehe..
thanks
Bart. Edi on June 22nd, 2009
@Willy-KL: Hehhehe, ya jadi programmer kecil-kecil an lah…
Web Tukang Contek » Memperbarui Data Yang Sudah Ada on July 15th, 2009
[...] artikel tentang perintah memasukan baris data baru di Visual Basic, kali saya ingin menulis tentang memperbaharui data yang sudah ada (update data). [...]
koko on August 7th, 2009
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
Bart. Edi on August 7th, 2009
@koko: anda bisa menggunakan cara seperti ini: bla..blaa... FROM waktu ='" & label1.caption & "', con, bla.....
Memperbarui Data Yang Sudah Ada | Edi Susanto dot Com on December 18th, 2009
[...] artikel tentang perintah memasukan baris data baru di Visual Basic, kali saya ingin menulis tentang memperbaharui data yang sudah ada (update data). [...]
iwan on January 19th, 2010
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
tika on June 19th, 2009
mat kenal admin,info yg bagus dan ini jg ad info yg menarik sebelum
ketinggalan ikutan manatau beruntung ikutan yuk…!