“Berbagi Harta Tidak Akan Membuatmu Terlihat Miskin”
“Berbagi Ilmu Tidak Akan Membuatmu Terlihat Bodoh”
kali ini saya akan melanjutkan menulis tentang membuat CRUD pada Visual Basic, dimana sebelumnya saya sudah membuat tutorial lain tentang Visual Basic,
diantaranya tutorial Visual Basic ini
Belajar Pemograman Visual Basic untuk Pemula
Tutorial Pemograman Visual Basic untuk Pemula Part 2
 |
| Menambah Updute Databse Visual Basic |
Tutorial Membuat aplikasi Kasir Sederhana
cara mengkoneksikan visual basic dengan MySQL
jika sobat sudah memvabaca tutorial Visual Basic yang diatas sekarang kita lanjutkan untuk bagaimana Cara Menambahkan Update Database Visual Basic sebelumnya saya juga sudah menulis tentang Cara Membuat Input Database pada Visual Basic silahkan jika belum bisa untuk terlebih dahulu membacanya
1. kita akan melanjutkan projek sebelumnya, sehingga yang saya butuhkan adalah membuat Form baru bernama “Form_Update”
2. pada form1 atau form utama silahkan tambahkan tombol Updute lalu berikan program berikut didalamnya
Private Sub update_Click(sender As Object, e As EventArgs) Handles update1.Click Form_Update.txt_no.Text = DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value Try Form_Update.ShowDialog() Catch ex As Exception MsgBox(“Data Belum di-Pilih !”, vbInformation, “Informasi”) End Try End Sub
3. Buatlah Design pada Form_Update seperti pada gambar dibawah ini
pada daerah yang saya lingkari terdapat Labe satu untuk label No dan satu nya untuk label waktu
untuk No saya berikan tag name “txt_no” dan untuk waktu saya berikan tag name “txt_waktu”
jika belum bisa, pastikan sobat sudah membaca artikel sebelumnya
karena sebelumnya saya belum membuat kolom No pada database MySQL nya,, saya menambahkan kolom No, dengan tipe data integer, PRIMARY dan auto increment, karena saya akan menggunakan projek ini untuk menerima data sensor langsung dari hardware arduino, sehingga no secara otomatis bertambah jika ada data yang masuk,
4. selanjutnya membuat program untuk form update seperti dibawah ini.
Imports System.Data.Odbc
Public Class Form_Update
Dim con As OdbcConnection
Dim dr As OdbcDataReader
Dim da As OdbcDataAdapter
Dim dt As DataTable
Dim ds As DataSet
Dim str As String
Dim cmd As OdbcCommand
Sub koneksi()
con = New OdbcConnection
con.ConnectionString = “dsn=kendali-elektro”
con.Open()
End Sub
Sub edit()
koneksi()
cmd = New OdbcCommand(“select * from data_sensor where no like ‘” & txt_no.Text & “‘”, con)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
txt_no.Text = dr.Item(0)
txt_waktu.Text = dr.Item(1)
txt_ph.Text = dr.Item(2)
txt_pt100.Text = dr.Item(3)
txt_turbidity.Text = dr.Item(4)
txt_salinity.Text = dr.Item(5)
Else
MsgBox(“Data Tidak Valid”, vbInformation, “Informasi”)
End If
con.Close()
End Sub
Sub simpan()
koneksi()
Dim sql As String = “update data_sensor set ” +
“sensor_pt100 = ‘” & txt_pt100.Text & “‘, ” +
“sensor_ph = ‘” & txt_ph.Text & “‘, ” +
” sensor_turbidity = ‘” & txt_turbidity.Text & “‘, ” +
“sensor_salinity = ‘” & txt_salinity.Text & “‘” +
“where no ='” & txt_no.Text & “‘”
cmd = New OdbcCommand(sql, con)
cmd.ExecuteNonQuery()
Try
MsgBox(” Berhasil Merubah Data”, vbInformation, “Informasi”)
Form1.tampil()
reset()
Me.Close()
Catch ex As Exception
MsgBox(“Gagal Merubah Data”, vbInformation, “Informasi”)
End Try
con.Close()
End Sub
Sub reset()
txt_waktu.Text = “”
txt_ph.Text = “”
txt_no.Text = “”
txt_salinity.Text = “”
txt_turbidity.Text = “”
End Sub
Private Sub update_Click(sender As Object, e As EventArgs) Handles update2.Click
simpan()
End Sub
Private Sub Form_Update_Load(sender As Object, e As EventArgs) Handles MyBase.Load
edit()
End Sub
jika sudah selesei maka hasil ouputnya akan tampil seperti ini
 |
| Menambah Updute Databse Visual Basic |