CRUD Dengan VB.NET Bagian 2

<div class="MsoNormalCxSpFirst"> Malam semua, kali ini saya akan melanjutkan postingan sebelumnya yaitu <a href="http://dwirandyherdinanto.blogspot.com/2013/10/crud-dengan-vbnet-bagian-1.html" rel="nofollow" target="_blank">Crud Dengan VB.Net Bagian 1</a></div> <div class="MsoNormalCxSpMiddle"> Jika kemarin kita sudah mempelajari bagaimana cara menyimpan dan mencari data, kali ini saya akan menambahkan cara memperbarui/mengupdate dan menghapus/delete data</div> <div class="MsoNormalCxSpMiddle"> Oke langsung saja </div> <div class="MsoNormalCxSpMiddle"> <br /></div> <br /> <div class="MsoNormalCxSpMiddle"> Pertama – tama buka project yang kita buat sebelumnya dengan cara File – Open Project – Nama_project_yang_telah_kita_buat</div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW6b0zNxwXNFiGeqHlHmnueXClLsn6CY7YefbCyvcgicSnIx8bdmHz8CZ5OqcL8ntkfbDOPx-wW8OMxheUYtWttr6WzgvbWSiAhnBkurhTaZgxyNDd7xaCzYQqvjM5x-2Ddgwcojha09U8/s1600/Crud_dengan_VB.Net_dan_SQL_Server_1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW6b0zNxwXNFiGeqHlHmnueXClLsn6CY7YefbCyvcgicSnIx8bdmHz8CZ5OqcL8ntkfbDOPx-wW8OMxheUYtWttr6WzgvbWSiAhnBkurhTaZgxyNDd7xaCzYQqvjM5x-2Ddgwcojha09U8/s320/Crud_dengan_VB.Net_dan_SQL_Server_1.png" width="320" /></a></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="MsoNormalCxSpFirst"> 2.  tambahkan 2 button lagi untuk tombol update dan hapus</div> <table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;"> <tbody> <tr> <td style="border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Object</div> </td> <td style="border-left: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Property</div> </td> <td style="border-left: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-themecolor: text1; mso-border-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Value</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Button1</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Name</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Btn_update</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> <br /></div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Text</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Update</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Button2</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Name</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Btn_hapus</div> </td> </tr> <tr> <td style="border-top: none; border: solid black 1.0pt; mso-border-alt: solid black .5pt; mso-border-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> <br /></div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Text</div> </td> <td style="border-bottom: solid black 1.0pt; border-left: none; border-right: solid black 1.0pt; border-top: none; mso-border-alt: solid black .5pt; mso-border-bottom-themecolor: text1; mso-border-left-alt: solid black .5pt; mso-border-left-themecolor: text1; mso-border-right-themecolor: text1; mso-border-themecolor: text1; mso-border-top-alt: solid black .5pt; mso-border-top-themecolor: text1; padding: 0cm 5.4pt 0cm 5.4pt; width: 159.6pt;" valign="top" width="213"><div class="MsoNormalCxSpMiddle" style="margin-bottom: 0.0001pt;"> Hapus</div> </td> </tr> </tbody></table> <div class="MsoNormalCxSpMiddle"> </div> <div class="MsoNormalCxSpMiddle"> Sehingga tampilan form seperti dibawah ini</div> <div class="separator" style="clear: both; text-align: center;"> </div> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ta30WnrsO4CRiZxs0GCOQNI-u7DTmnTI-nNYmYbw0mFL3JrGLQl9awC1HC938LbsT5x8CsmwIhyphenhyphens5iUiPzRKFMtddYadKsQuVZLUzfyte2JERAKCdlxoDDv2NSKhgF-f38Ljlpvk6-PD/s1600/Crud_dengan_VB.Net_dan_SQL_Server_5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8ta30WnrsO4CRiZxs0GCOQNI-u7DTmnTI-nNYmYbw0mFL3JrGLQl9awC1HC938LbsT5x8CsmwIhyphenhyphens5iUiPzRKFMtddYadKsQuVZLUzfyte2JERAKCdlxoDDv2NSKhgF-f38Ljlpvk6-PD/s320/Crud_dengan_VB.Net_dan_SQL_Server_5.png" width="320" /></a></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="MsoNormalCxSpFirst"> 3. Tambahkan script dibawah ini pada sub awal</div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        btn_update.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        btn_hapus.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">  Sehingga menjadi seperti dibawah ini<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">  Sub awal()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nis.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nama.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_alamat.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Text = ""<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Items.Clear()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Items.Add("Laki - Laki")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Items.Add("Perempuan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_tutup.Text = "Tutup"<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_cari.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_simpan.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_tambah.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Btn_tutup.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nis.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_nama.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Txt_alamat.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Cbo_kelamin.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">        btn_update.Enabled = False<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">        btn_hapus.Enabled = False<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">4. Tambahkan script dibawah ini pada tombol cari<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="color: #f1f2f3; font-family: Consolas; font-size: 9.5pt;">   </span><span style="font-family: Consolas; font-size: 9.5pt;">     btn_hapus.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        btn_update.Enabled = True<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">   sehingga menjadi seperti dibawah ini<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">   Private Sub Btn_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles Btn_cari.Click<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        If Txt_nis.Text = "" Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("Nis masih kosong", MsgBoxStyle.Exclamation, "Peringatan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        cmd = New SqlCommand("select nis,nm_siswa,alamat,jenis_kelamin from siswa where   nis='" & Txt_nis.Text & "'", conn)<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        rd = cmd.ExecuteReader<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        rd.Read()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            If rd.HasRows Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Txt_nis.Text = rd("nis")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Txt_nama.Text = rd("nm_siswa")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Txt_alamat.Text = rd("alamat")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Cbo_kelamin.Text = rd("jenis_kelamin")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Btn_simpan.Enabled = False<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">                btn_hapus.Enabled = True<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <b><span style="font-family: Consolas; font-size: 9.5pt;">                btn_update.Enabled = True<o:p></o:p></span></b></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                MsgBox("Data tidak ditemukan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            rd.Close()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">5. Tambahkan script dibawah ini pada tombol delete<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        If Txt_nis.Text = "" Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("NIS tidak boleh kosong", MsgBoxStyle.Exclamation, "Peringatan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            If MsgBox("Apakah anda akan menghapus data ini?", MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.Yes Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                cmd = New SqlCommand("delete from siswa where nis='" & Txt_nis.Text & "'", conn)<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                cmd.ExecuteNonQuery()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "Informasi")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">                Call awal()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">6. Tambahkan script dibawah ini pada tombol update<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        If Txt_nis.Text = "" Or Txt_nama.Text = "" Or Txt_alamat.Text = "" Or Cbo_kelamin.Text = "" Then<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("Data belum lengkap", MsgBoxStyle.Exclamation, "Peringatan")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        Else<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            cmd = New SqlCommand("update siswa set nis='" & Txt_nis.Text & "',nm_siswa='" & Txt_nama.Text & "',alamat='" & Txt_alamat.Text & "',jenis_kelamin='" & Cbo_kelamin.Text & "'", conn)<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            cmd.ExecuteNonQuery()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            MsgBox("Data berhasil diupdate", MsgBoxStyle.Information, "Informasi")<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">            Call awal()<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">        End If<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">    End Sub<o:p></o:p></span></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <span style="font-family: Consolas; font-size: 9.5pt;">8. jika sudah maka coba jalankan program tersebut dengan cara tekan F5 atau klik menu Debug – Start Debugging<o:p></o:p></span></div> <div class="separator" style="clear: both; text-align: center;"> </div> <div class="MsoNormal" style="margin-bottom: 0.0001pt;"> <br /></div> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJgzp-SAOlJAfaacYSFwSbPtcIhBzFXu7FZ95sdQQ_gh51QpdqLdsoE2-Rp7wbVgBzRYN5P9vVf-jTcsAdAat2ncseI8m_VVFfV6gooq-dULtpjrOxS1bScPPY9yHXmmnrNRPVGvUaOTbh/s1600/Crud_dengan_VB.Net_dan_SQL_Server_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJgzp-SAOlJAfaacYSFwSbPtcIhBzFXu7FZ95sdQQ_gh51QpdqLdsoE2-Rp7wbVgBzRYN5P9vVf-jTcsAdAat2ncseI8m_VVFfV6gooq-dULtpjrOxS1bScPPY9yHXmmnrNRPVGvUaOTbh/s320/Crud_dengan_VB.Net_dan_SQL_Server_2.png" width="320" /></a></div> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: center;"> <br /></div> <blockquote class="tr_bq"> <div style="text-align: center;"> Jika anda ingin mendownload source code silahkan klik <a href="http://adf.ly/cshu9" rel="nofollow" target="_blank">disini</a></div> <div style="text-align: center;"> dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div> <div> <br /></div> </blockquote> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: left;"> <br /></div> <div class="separator" style="clear: both; text-align: justify;"> <span style="font-family: Arial, Helvetica, sans-serif;"><span style="line-height: 20px;">semoga berhasil<br />sekian untuk postingan saya kali ini</span></span></div> <div class="separator" style="clear: both; font-family: Consolas; font-size: 9.5pt; text-align: left;"> <br /></div>

CRUD Dengan VB.NET Bagian 2

Malam semua, kali ini saya akan melanjutkan postingan sebelumnya yaitu Crud Dengan VB.Net Bagian 1 Jika kemarin kita sudah mempelajari ba...

Read more »