Membuat CRUD Command Parameter Mysql Beda Form di VB .Net | VB.Net Tutorial MySQL

Video Sebelumnya : https://youtu.be/9A9pyaICATI VB.Net Project : https://www.youtube.com/playlist?list=PLDg4gZj__sMo6lqOA2cEl56eB6OZHcWnr . Dalam sebuah aplikasi melakukan proses create read update delete (crud) sangat lah penting, karena jika tidak data tidak akan bisa diolah. ================== Sub tampilbarang() Try Call koneksi() ds = New DataSet str = "select * from tbl_barang order by kd_barang" da = New MySqlDataAdapter(str, conn) da.Fill(ds) dgvtampil.DataSource = ds.Tables(0) tutup() Catch ex As Exception End Try End Sub ================== Sub desaindgv() cek https://youtu.be/GEGxOeEHg94 ================== Sub tutup() conn.Close() conn.Dispose() End Sub 'Sub tutup() terlatak pada module koneksi ================== Coding : kodeauto() Call koneksi() str = "insert into tbl_barang values (@kode,@nama,@stok,@hargabeli,@hargajual)" cmd = conn.CreateCommand With cmd .CommandText = str .Connection = conn .Parameters.Add("kode", MySqlDbType.String).Value = kode .Parameters.Add("nama", MySqlDbType.String).Value = txtnama.Text .Parameters.Add("stok", MySqlDbType.UInt64).Value = txtstok.Text .Parameters.Add("hargabeli", MySqlDbType.UInt64).Value = txthargabeli.Text .Parameters.Add("hargajual", MySqlDbType.UInt64).Value = txthargajual.Text .ExecuteNonQuery() End With MessageBox.Show("Data berhasil disimpan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information) frbarang.tampilbarang() bersih() tutup() #crud #commandparameter #bedaform Situs Web : https://www.priacoding.com/