Insert, Update, Delete data di VB6
Setelah selesai Menampilkan data yang ada di database kedalam Grid VB6 .. sekarang saya akan berbagi koding untuk Insert, Update, Delete data pada VB6 🙂
Sebelum memulai … saya ingin bilang nih … kan banyak tuh teman – teman di facebook bertanya “Gimana Caranya Coding simpan vb6 menggunakan database ini, itu , anu ???” Saya terangkan disini. Apapun databasenya…mau MS.Access, mau SQL Server, Mau Mysql … itu mah sama saja…
Oke kita mulai…Tutorial disini adalah sambungan dari totorial menampilkan data pada datagrid sebelumnya 🙂
1. Coding Simpan.
Dim SQLTambah As String nama = Text2 Text2 = Replace(Text2, "'", "''") SQLTambah = "Insert Into Barang values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "')" Conn.Execute SQLTambah
2. Coding Update
Dim SQLEdit As String nama = Text2 Text2 = Replace(Text2, "'", "''") SQLEdit = "Update Barang Set NamaBrg= '" & Text2 & "', HargaBeli='" & Text3 & "', HargaJual='" & Text4 & "',JumlahBrg='" & Text5 & "' where KodeBrg='" & Text1 & "'" Conn.Execute SQLEdit
3. Coding Untuk Delete / Hapus Data
Dim SQLHapus As String SQLHapus = "Delete From Barang where kodebrg= '" & Text1 & "'" Conn.Execute SQLHapus
Namun ingat…!! Contoh yang saya perlihatkan disini hanya khusus pada Coding utamanya saja…jika ingin seperti permainan tombol, atau yang lainnya…tergantung selera anda…bisa menggunakan struktur if dan yg lainnya 🙂
Tks kang, akhirnya bisa update juga .. 😀
Iya sama sama om 😀
kalo koding untuk filter pake text, data combo, dan DTPicker skaligus tau g kang??
lgi butuh bgt nih 🙂
Bisa saja oom….tinggal ditambahkan “And” di SQL Statement nya 🙂
untuk coding update diatas indexnya biasa gak mau beubah mas, mohon pencerahanya
Index bagaimana ni om ?
makasih masbrooooooo
thanks ma scriptnya gan,,
simpell dan suksesss
Sipp… sama sama… senang bisa membantu…
misi kang kalo script untuk bikin browse truss nyimpan foto ke database gmna caranya??
sample untuk tombol browse Bisa dilihat disini om…
http://kolektor-veebee.blogspot.co.id/2010/05/menampilkan-dialog-browse.html
untuk menyimpan fotonya ke database banyak caranya om, bisa dengan hanya menyimpan URL dari foto, atau langsung menyimpan fotonya ke database.
kang mohon cording nya lebih di jelasin lagi donk,
maksud nya dari cording ini : SQLTambah = “Insert Into Barang values (‘” & Text1 & “‘,'” & Text2 & “‘,'” & Text3 & “‘,'” & Text4 & “‘,'” & Text5 & “‘)” . text nya ada 5 ya ?. trus apa apa text nya di urutin berdasar kan nama database nya…? terima kasih sebelum nya
Iya om, Maksud dari code itu ada 5 buah textbox yang memiliki value yang akan dikirim ke tabel yang ada di database.
Untuk urutan text, sebenarnya tidak mesti urut berdasarkan nama databasenya om, hanya saja, agar mudah di mengerti saja kok om.
klo coding simpan ke 2 tabel gmn? misal simpan ke tbl barang dan tbl detail, terus stok di tbl barang update otomatis
Dicopy saja om kodenya, lalu pastekan saja dibawahnya lagi… lalu sesuaikan nama tabel yg ke 2 itu om…
Lakukan saja dua kali query dalam satu aksi om…. dalam satu kali klik tombol, bisa dimasukkan lebih dari satu query kok 🙂
thank artikelnya sangat membantu
Sama sama om, senang bisa membantu
mas maksudnya syntaxx ini apa ya
Dim SQLTambah As String
nama = Text2
Text2 = Replace(Text2, “‘”, “””)
Dim SQLTambah As String artinya, jadikan variable “SQLTambah” itu menjadi variable yang akan memberikan nilai berupa string.
Nama = Text2 artinya, variable “Nama” akan sama nilainya dengan nilai (value) yang ada di text 2.
Text2 = Replace(Text2, “‘”, “””), artinya fungsi Replace akan melakukan Replace menjadi spasi, jika didalam nilai yang diberikan oleh text2 terdapat karakter kutip 1.
Dim sqlmasuk as string
sqlmasuk = “insert into tblpembelian” _
& ” (faktur_beli,tgl_beli,id_sup,user) ” _
& ” values ( ‘” & txtfaktur& “‘,'” &dtpicker1.value& “‘,'” & combosup.text& “‘,'” &txtuser.text& “‘)”
Koneksi.execute sqlmasuk
punya saya begini, errornya “Syntax error in isert into statement” Gimana cara mengatasinya ? 😦
isii modulnya kurang lebih begini :
Option explicit
Public koneksi as new adodb.connection
public rs as adodb.recordset
public sqlmasuk as string
public sqlubah as string
public sqlhapus as tring
public Sub bukadb ()
Set koneksi = new adodb.connection
set rs = new adodb.recordset
koneksi.open “provider=microsoft.jet.OleDB.4.0; data source=” + App.path + “\dbkasir.mdb”
Exit sub
errornya “Syntax error in insert into statement”
error itu berasal dari syntax query yang masih salah, yakni terletak pada kode ini :
——————————
sqlmasuk = “insert into tblpembelian” _
& ” (faktur_beli,tgl_beli,id_sup,user) ” _
& ” values ( ‘” & txtfaktur& “‘,’” &dtpicker1.value& “‘,’” & combosup.text& “‘,’” &txtuser.text& “‘)”
——————————-
Coba kodenya di luruskan saja mbak, jangan dikasi karakter _ .
masih tetap min, sudah di coba itu 😥
letak errornya ada di Koneksi.execute sqlmasuk
minta bantuan minnn 😦
Iya mbak irma, letak errornya memang saat execute, tapi hal yg membuat error itu muncul adalah karena query yang masih salah…coba sertakan foto pesan errornya itu ke komentar ini mbak…biar saya tahu dimana letak salahnya.
coba copy paste saja punya saya ya mbak :
—————————————————————
sqlmasuk = “INSERT INTO tblpembelian (faktur_beli,tgl_beli,id_sup,user) VALUES (‘” & txtfaktur & “‘, ‘” & format(dtpicker1.value, “dd-mm-yyyy”) & “‘, ‘” & combosup & “‘,'” & txtuser & “‘)”
—————————————————————
coba pake itu mbak… mudah2 an bisa jalan 🙂
Sudah bisa min 🙂
kalau untuk perintah UPDATE yang ketika kita klik tombol SIMPAN akan mengurangi/menambahkan stok barang, itu bagaimana??
Tinggal tambahkan saja kode UPDATE setelah kode SIMPAN mbak irma…logikanya, total barang – jumlahjual…
Contoh Querynya bisa seperti ini :
Ubah = “UPDATE tbname SET stok = stok – txtJumlah WHERE idnya = ‘” & txtIdnya & “‘”
Reblogged this on Oke Oce Blog.
mau nanya, saya pakai vb.net dengan database sqlserver 2008
mau masukkan ke tabel dtbeli dan hd beli secara bersamaan, coding saya seperti ini, tp cek ke sql server, datanya masih kosong. gimana ya? makasih sebelumnya
Private Sub btnsimpan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan1.Click
Dim str1 As String
Dim str2 As String
conn = New SqlConnection
Try
bukadb()
cmd = New SqlCommand
cmd.Connection = conn
cmd.CommandType = CommandType.Text
str1 = “insert into tblhdbeli (no_nota_beli, tgl_beli,status_pembayaran,kode_pemasok,tot_harga,nama_pemasok) values (@no_nota_beli,@tgl_beli,@status_pembayaran,@kode_pemasok,@tot_harga,@nama_pemasok)”
str2 = “insert into tbldtbeli (no_nota_beli,kode_barang,harga_beli,jumlah,subtotal,nama_barang) values (@no_nota_beli,@kode_barang,@harga_beli,@jumlah,subtotal,@nama_barang)”
cmd = New SqlCommand
cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = str1
cmd.ExecuteNonQuery()
‘cmd.CommandText = str2
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(“Sukses”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, “Data Pembelian Berhasil disimpan”)
End Try
End Sub
slide ended lines glorious edition http://forum.d-dub.com/member.php?61847-StroFlibe doomed miami elliott misses funk dialogue
factories problem pretend http://jailbait.me/member.php?807326-orasorb contents find misfortune muslims
What is the last episode of the good doctor http://vibrafusionlab.com/153/how-far-is-gonzales-from-new-orleans What are the top 10 rivalries in sports