Cara Menambah Update Database Visual Basic

By | February 18, 2018
Hello Sobat Blogger !

“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
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

Menambah Updute Databse Visual Basic

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
Menambah Updute Databse Visual Basic
oke cukup sekian artikel kali ini, jika ada kritik saran atau pertanyaan silahkna dikolom komentar!
Nb: jangan biasakan COPAS program karena akan memperlambat kita dalam memahami belajar
keyword :
tutorial visual basic
cara membuat update database visual basic
update database vb
cara membuat crud vb
membuat crud visual basic
anak kendali vb
anak kendali visual basic

(Visited 17 times, 1 visits today)

Leave a Reply

Your email address will not be published. Required fields are marked *