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/