Program Simpan, Edit, Delete, Batal, Close, dan Tampil Data Menggunakan Visual Studio 2010

Oleh peistar

Saturday 18 November 2017

Bagikan :

Tweet

Artikel yang akan saya buat kali ini adalah tentang membuat Tombol Simpan, Edit, Delete, Batal, Close, dan Tampil Data Menggunakan Visual Studio 2010. Adapun cara atau langkah – langkah pengerjaanya dapat saudara ikuti tahapan – tahapan dibawah ini dengan benar.

Sebelum kita membuat Tombol Simpan, Edit, Delete, Batal, Close terlebih dahulu kita harus membuat sebuah database sebagai media penyimpanan data yang akan kita olah kemudian kita koneksikan database tersebut ke Visual Studio 2010 adapaun caranya sebagai berikut :

1. Membuat Database Dengan Microsoft Access 2007 Lebih Mudah.
2. Cara Koneksi Visual Studio 2010 dengan Database Access 2007.

Setelah itu kita langsung menuju ke TKP.

Coding Program :

Tombol Simpan :

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

            MsgBox("Data belum lengkap, Pastikan Kode Kamar 7 Digit dan Semua form terisi")

            Exit Sub

        Else

            Call Koneksi()

Dim simpan As String = "insert into Tamu values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

            cmd = New OleDbCommand(simpan, Conn)

            cmd.ExecuteNonQuery()

            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")

            Call KondisiAwal()

        End If

Tombol Edit :

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

            MsgBox("Data belum lengkap, Pastikan Kode Kamar 7 Digit dan Semua form terisi")

            Exit Sub

        Else

            Call Koneksi()

Dim edit As String = "update Tamu set Nm_Tamu='" & TextBox2.Text & "',Alamat='" & TextBox3.Text & "',No_Tlpn='" & TextBox4.Text & "' where ID_Tamu='" & TextBox1.Text & "'"

            cmd = New OleDbCommand(edit, Conn)

            cmd.ExecuteNonQuery()

            MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")

            Call KondisiAwal()

        End If

Keterangan :

Sebelum menggunakan Tombol Edit terlebih dahulu kita harus memanggil/menampilkan data yang akan kita Edit, untuk itu kita harus memasukan Coding dibawah ini kedalam area code program berdasarkan kunci utama.

Coding Panggil Data :

If e.KeyChar = Chr(13) Then

            Call Koneksi()

cmd = New OleDbCommand("Select * from Kamar where Kd_Kamar='" & TextBox1.Text & "'", Conn)

            rd = cmd.ExecuteReader

            rd.Read()

            If Not rd.HasRows Then

                ComboBox1.Text = ""

                TextBox2.Text = ""

                ComboBox1.Focus()

            Else

                ComboBox1.Text = rd.Item("Jenis_Kamar")

                TextBox2.Text = rd.Item("Tarif")

                ComboBox1.Focus()

            End If

        End If

Tombol Delete :

If TextBox1.Text = "" Then

            MsgBox("kode Barang masih kosong, silakan diisi dulu")

            TextBox1.Focus()

            Exit Sub

        Else

If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

Dim hapus As String = "delete * from Tamu where ID_Tamu='" & TextBox1.Text & "'"

                cmd = New OleDbCommand(hapus, Conn)

                cmd.ExecuteNonQuery()

                MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")

                Call KondisiAwal()

        End If

Tombol Batal :

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox1.Focus()

Tombol Close :

Me.Close()

Cara menampilkan data ke DataGrid

Buatlah sebuah Class yang diberinama KondisiAwal, namun sebelum itu kita harus menampilkan DataGrid terlebih dahulu pada Form, KondisiAwal ini diletakkan dibawah Koneksi.

Sub KondisiAwal()

        Koneksi()

        da = New OleDbDataAdapter("Select * from Tamu", Conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds, "Tamu")

        DataGridView1.DataSource = (ds.Tables("Tamu"))

    End Sub

Sekian dan terimakasih, semoga artikel kali ini dapat membantu saudara yang membutuhkannya, Wasalam...!!!

Tag : Visual Studio 2010