TIPS DAN TRIK MEMBUAT TOMBOL SIMPAN DATA DAN TOMBOL UBAH DATA PADA MICROSOFT VISUAL BASIC.NET

TIPS TRIK MEMBUAT TOMBOL SIMPAN DATA DAN UBAH DATA PADA DATABASE MICROSOFT VISUAL BASIC. NET (DATABASE MSC ASSCESS)

Kali ini saya akan berbagi pengelaman pribadi saya untuk membuat tombol simpan data dan ubah data yang sudah tersimpan pada database pada pemrograman Microsoft visual basic.net

Langkah-langkah sebagai berikut:

a.      Tombol simpan

1. Buatlah sebuah database dan lakukan koneksi dengan form pada halaman kerja (misalnya             table data   barang/T_barang) lihat postingan saya mengenai koneksi database
2.Pilih tombol yang akan kita jadikan tombol simpan
3.Tulis koding seperti dibawah ini

If TextBox1.Text = " " Or TextBox2.Text = "" Then

           MsgBox("Lengkapi Data Barang")

            Exit Sub

        Else

            Cmd = New OleDbCommand("select * from T_barang where Id_barang= " & _

                   " '" & Trim(TextBox1.Text) & " ' ", conn)

            dr = Cmd.ExecuteReader

            dr.Read()

            If dr.HasRows = True Then

                Dim pesan = MessageBox.Show("Id_barang: " + " " & Trim(TextBox1.Text) & " " + " sudah ada")

            Else

                Cmd = New OleDbCommand("select * from T_barang  where Id_barang= " & _

                                       " '" & Trim(TextBox1.Text) & " ' ", conn)

                dr = Cmd.ExecuteReader

                dr.Read()

                If Not dr.HasRows = True Then

                    Dim SQLTambah As String = "Insert into T_barang " & _

                     " (Id_barang, Nama_barang)  " & _

                     "  values('" & Trim(TextBox1.Text) & "', " & _

                      " '" & Trim(TextBox2.Text) & "' )"

                    Cmd = New OleDbCommand(SQLTambah, conn)

                    Cmd.ExecuteNonQuery()

                End If

                Button1.Enabled = True

            End If

        End If

    End Sub

b.      Tombol ubah data

Dim SQLUpdate As String = "Update T_barang set " & _

"Nama_barang='" & TextBox2.Text & "' where Id_barang='" & TextBox1.Text & "'"

        Cmd = New OleDbCommand(SQLUpdate, conn)

        Cmd.ExecuteNonQuery()

        MsgBox("Data Berhasil DiUbah")

    End Sub

Penjelasanya sebagai berikut:

1.       Textbox1.text  dan TextBox2.Text adalah nama text pada jendela form yang saya gunakan untuk mengisi data

2.    Cmd = New OleDbCommand("select * from T_barang where Id_barang= " & _

                   " '" & Trim(TextBox1.Text) & " ' ", conn)

            dr = Cmd.ExecuteReader

            dr.Read()

ini adalah listing untuk mencari Id barang pada textbox1.text pada table barang (T_barang) Cmd, conn, dan dr adalah nama deklarasi koneksi database pada module (lihat postingan saya mengenai koneksi database)

3.  If dr.HasRows = True Then

Dim pesan = MessageBox.Show("Id_barang: " + " " & Trim(TextBox1.Text) & " " + " sudah ada")

Artinya jika id barang sudah ada maka ada pesan berupa msgbox dan jika id barang tersebut belum ada pada database maka:

            Else

                Cmd = New OleDbCommand("select * from T_barang  where Id_barang= " & _

                                       " '" & Trim(TextBox1.Text) & " ' ", conn)

                dr = Cmd.ExecuteReader

                dr.Read()

                If Not dr.HasRows = True Then

                    Dim SQLTambah As String = "Insert into T_barang " & _

                     " (Id_barang, Nama_barang)  " & _

                     "  values('" & Trim(TextBox1.Text) & "', " & _

                      " '" & Trim(TextBox2.Text) & "' )"

                    Cmd = New OleDbCommand(SQLTambah, conn)

                    Cmd.ExecuteNonQuery()

                End If

Ini adalah perintah exekusi simpan data pada table Barang (T_Barang)

Sekian postingan saya kali ini semoga dapat bermanfaat untuk kita semua