Membuat Perintah Tambah, Ubah dan Hapus di Vb.Net [Bag 1]

Pada bagian 1 ini kita membuat perintah Tambah, Ubah dan Hapus data umum (Data Wilayah), fungsi data ini akan digunkan pada kepala/kop surat – surat kependudukan.

Nah langsung saja, pertama – tama buka database dan buat table baru berinama Tbl_Umum  dan buatlah komponennya sebagai berikut ;


Lalu buka project anda, pada form1 (Form Utama) bagi yang belum melalui bagian ini klik disini, tambahan menu sebagai berikut ;


Untuk menggeser menu Data Umum agar berada ditengah seperti milik saya, klik kiri tahan pada Data Umum geser keposisi yang diinginkan

Kemudian buat lah form baru dan beri nama Frm_Wilayah, lalu buatlah dan disainlah komponennya seperti ini ;


Dan set properties koponennya sebagai berikut ;

Jenis Komponen

Nama

Text

GroupBox

GroupBox1

 

Texbox1

Txt_ID

 

Texbox2

Txt_Prov

 

Texbox3

Txt_Kab_Kot

 

Texbox4

Txt_Kec

 

Texbox5

Txt_Des_Kel

 

Texbox6

Txt_Jln

 

Texbox7

Txt_No_Jln

 

Texbox8

Txt_Tlp

 

Texbox9

Txt_Pos

 

PictureBox

Pb_Logo

 

Label

Alm_Logo

Alamat Gambar

Button1

Btn_Logo

Logo

Button2

Btn_Mulai

&Mulai

Button3

Btn_Smp

Simpan

Button4

Btn_Hps

Hapus

Button5

Btn_Btl

Batal


Kemudian pada My Project klik kanan pada Form1 >   lalu copy dan pastekan sintaksis berikut ;

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        KoneksiDB()

    End Sub

   

    Private Sub DataWilayahToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataWilayahToolStripMenuItem.Click

        Frm_Wilayah.ShowDialog()

    End Sub


Sintaksis ini berfungsi untuk mengkoneksikan software dengan database, sesuai dengan yang telah kita buat pada Mdl_Config, bagi yang belum faham pada bagian ini klik disini, dan berfungsi untuk menampilkan frm_wilayah saat menu Data Wilayah diklik

Selanjutnya pada mdl_config tambahkan sintaksis berikut 
 

Public dt As DataTable


Pada posisi ini ;



Kebali pada My Project klik kanan pada Frm_Wilayah >   lalu copy dan pastekan sintaksis berikut ;

Imports System.Data.OleDb


Pastekan di sini ;


1. Perintah untuk mengunci komponen

Sub kunci()

        GroupBox1.Enabled = False

        Btn_Mulai.Enabled = True

        Btn_Smp.Enabled = False

        Btn_Hps.Enabled = True

        Btn_Btl.Enabled = False

    End Sub


2. Perintah untuk membuka kunci komponen 

Sub buka()

        GroupBox1.Enabled = True

        Btn_Mulai.Enabled = False

        Btn_Smp.Enabled = True

        Btn_Hps.Enabled = False

        Btn_Btl.Enabled = True

    End Sub


3. Perintah untuk membaca data pada database 

Sub readdata()

        On Error Resume Next

        Dim ds As New DataSet

        Dim dt As New DataTable

        ds.Tables.Add(dt)

        Dim da As New OleDbDataAdapter

        da = New OleDbDataAdapter("Select * From Tbl_Umum", conn)

        da.Fill(dt)

        Txt_ID.Text = dt.Rows(0).Item(0)

        Txt_Prov.Text = dt.Rows(0).Item(1)

        Txt_Kab_Kot.Text = dt.Rows(0).Item(2)

        Txt_Kec.Text = dt.Rows(0).Item(3)

        Txt_Des_Kel.Text = dt.Rows(0).Item(4)

        Txt_Jln.Text = dt.Rows(0).Item(5)

        Txt_No_Jln.Text = dt.Rows(0).Item(6)

        Txt_Tlp.Text = dt.Rows(0).Item(7)

        Txt_Pos.Text = dt.Rows(0).Item(8)

        Alm_Logo.Text = dt.Rows(0).Item(9)

        If Alm_Logo.Text = "Alamat Gambar" Then

            Pb_Logo.Image = Nothing

        Else

            Pb_Logo.ImageLocation = Alm_Logo.Text

        End If

    End Sub


4. Perintah  untuk menyimpan data baru pada database

Sub databaru()

        Dim cmd As New OleDbCommand

        Dim Simpan As String = "insert into Tbl_Umum values ('" & Txt_ID.Text & "','" & Txt_Prov.Text & "','" & Txt_Kab_Kot.Text & "','" & Txt_Kec.Text & "','" & Txt_Des_Kel.Text & "','" & Txt_Jln.Text & "','" & Txt_No_Jln.Text & "','" & Txt_Tlp.Text & "','" & Txt_Pos.Text & "','" & Alm_Logo.Text & "')"

        cmd = New OleDbCommand(Simpan, conn)

        cmd.ExecuteNonQuery()

        kunci()

    End Sub


5. Perintah untuk mengubah data pada database

Sub ubahdata()

        Dim cmd As New OleDbCommand

        cmd.Connection = conn

        cmd.CommandType = CommandType.Text

        cmd.CommandText = "update Tbl_umum set [Prov] = '" & Txt_Prov.Text & "', [Kab_Kot] = '" & Txt_Kab_Kot.Text & "', [Kec] = '" & Txt_Kec.Text & "', [Des_Kel] = '" & Txt_Des_Kel.Text & "', [Jalan] = '" & Txt_Jln.Text & "', [No] = '" & Txt_No_Jln.Text & "', [Telp] = '" & Txt_Tlp.Text & "', [Pos] = '" & Txt_Pos.Text & "', [Logo] = '" & Alm_Logo.Text & "' where [ID_Wilayah] = '" & Txt_ID.Text & "'"

        cmd.ExecuteNonQuery()

        kunci()

    End Sub


6. Perintah saat tombol simpan diklik

Sub simpandata()

        If Txt_ID.Text = "" Or Txt_Prov.Text = "" Or Txt_Kab_Kot.Text = "" Or Txt_Kec.Text = "" Or Txt_Des_Kel.Text = "" Or Txt_Jln.Text = "" Or Txt_No_Jln.Text = "" Or Txt_Tlp.Text = "" Or Txt_Pos.Text = "" Then

            MsgBox("Data Belum Lengkap", MsgBoxStyle.Critical, "Peringatan")

        ElseIf Alm_Logo.Text = "Alamat Gambar" Then

            MsgBox("Gambar Logo Belum diSet", MsgBoxStyle.Critical, "Peringatan")

        Else

 

            str = "select * from Tbl_Umum where ID_Wilayah = '" & Txt_ID.Text & "'" 'CARI DATA ID YANG SESUI DI TABEL

            cmd = New OleDbCommand(str, conn)

            dr = cmd.ExecuteReader

            dr.Read()

            If Not dr.HasRows Then 'JIKA TIDAK ADA

                'LAKUKAN TAMBAH DATA BARU

                databaru()

                readdata()

            ElseIf dr.HasRows Then 'JIKA ADA

                'LAKUKAN UBAH DATA

                ubahdata()

                readdata()

            End If

        End If

    End Sub


7. Perintah untuk menghapus data pada database 


    Sub hapusdata()

        str = "Delete * From tbl_Umum where ID_Wilayah = '" & Txt_ID.Text & "'"

        cmd = New OleDbCommand(str, conn)

        cmd.ExecuteNonQuery()

        'kosongkan data

        Txt_ID.Text = ""

        Txt_Prov.Text = ""

        Txt_Kab_Kot.Text = ""

        Txt_Kec.Text = ""

        Txt_Des_Kel.Text = ""

        Txt_Jln.Text = ""

        Txt_No_Jln.Text = ""

        Txt_Tlp.Text = ""

        Txt_Pos.Text = ""

        Alm_Logo.Text = "Alamat Gambar"

        Pb_Logo.Image = Nothing

    End Sub


8. Perintah saat Frm_Wilayah baru dijalankan/buka 

    Private Sub Frm_Wilayah_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kunci()

        readdata()

    End Sub


9. Perintah klik tombol mulai

    Private Sub Btn_Mulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Mulai.Click

        buka()

    End Sub


10. Perintah klik tombol logo dan cari gambar

    Private Sub Btn_Logo_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Logo.Click

        On Error Resume Next

        Dim open As New OpenFileDialog

        open.Filter = "JPG Files(*.jpg)|*.jpg"

        open.FileName = ""

        If open.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Pb_Logo.Image = New Bitmap(open.FileName)

            Alm_Logo.Text = open.FileName

            Pb_Logo.Image = Image.FromFile(open.FileName)

        End If

    End Sub


11. Perintah klik tombol simapn

    Private Sub Btn_Smp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Smp.Click

        simpandata()

    End Sub


12. Perintah klik tombol hapus

    Private Sub Btn_Hps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hps.Click

        If MsgBox("Data Akan di Hapus!", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Peringatan") = MsgBoxResult.Yes Then

            hapusdata() 'JIKA KLIK YES HAPUS DATA

        ElseIf MsgBoxResult.No Then

            'JIKA KLIK NO JANGAN LAKUKAN APA - APA

        End If

    End Sub

13. Perintah klik tombol batal

    Private Sub Btn_Btl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Btl.Click

        kunci()

        readdata()

    End Sub


Selanjutnya silahkan coba jalankan dengan klik   atau F5 pada keyboard, saya rasa cukup sekian postingan saya kali ini, terima kasih dan selamat mencoba.

Jangan lupa baca juga


Hapus iklan Youtube di Android Geratis
Rumus terbilang di excel tanpa add-ins

Dan berikut postingan saya selanjutnya.


Membuat Perintah Tambah, Ubah dan Hapus di Vb.Net [Bag 2]
Membuat Perintah Tambah, Ubah dan Hapus di Vb.Net [Bag 3]

Comments

Popular posts from this blog

Cara Membuat Aplikasi Kasir Dengan Microsoft Excel

Cara Membuat Menu Utama dan Form Login di Vb.Net 2010 - 2019

Membuat Form Login dengan hak akses di Vb.Net 2010 – 2019

Belajar Memulai Pembuatan Aplikasi Berbasis DataBase Access di Vb.Net 2010 - 2019

Cara Megunci dan Menyembunyikan Rumus di Microsoft Excel

Rumus Terbilang di Excel

Cara Mendapatkan Kuota Geratis Telkomsel

BG-100DH Baterai Grip For Canon Eos 100D

Cara mendapatkan paket termurah telkomsel