MsgBox('Data gagal diubah' + ex.Message, MsgBoxStyle.Critical) MsgBox('Data berhasil diubah', MsgBoxStyle.Information, 'Informasi') Perintah.CommandText = 'UPDATE mahasiswa SET nama = '' & txtNama.Text & '', jekel = '' & cbJk.Text & '', tempat = '' & txtTempat.Text & '', tgl_lahir = '' & dtpTgl.Text & '', alamat = '' & txtAlamat.Text & '' WHERE nim = '' & txtNim.Text & ''' Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Clickĭim perintah As New Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click Konek('localhost', 'root', '', 'perkuliahandb')ĭtpTgl.Format = DateTimePickerFormat.Custom Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox('Data gagal disimpan' + ex.Message, MsgBoxStyle.Critical)

MsgBox('Data berhasil disimpan', MsgBoxStyle.Information, 'Informasi') Perintah.CommandText = 'INSERT INTO mahasiswa (nim, nama, jekel, tempat, tgl_lahir, alamat) VALUES ('' & txtNim.Text & '', '' & txtNama.Text & '', '' & cbJk.Text & '', '' & txtTempat.Text & '', '' & dtpTgl.Text & '', '' & txtAlamat.Text & '')' Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click TabelMhs.Columns(5).HeaderText = 'ALAMAT' TabelMhs.Columns(4).HeaderText = 'JENIS KELAMIN' TabelMhs.Columns(3).HeaderText = 'TGL LAHIR' TabelMhs.Columns(2).HeaderText = 'TEMPAT' TabelMhs.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill Dim conn As New MySqlConnection('Server=localhost user=root database=perkuliahandb')Īdapter = New MySqlDataAdapter(sqlstr, conn)

Contoh program vb dengan database mysql