Tutorial Koding

<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 bagaimana cara menyimpan dan mencari data, kali ini saya akan menambahkan cara memperbarui/mengupdate dan menghapus/delete data Oke langsung saja Pertama – tama bu…

Tutorial Koding

CRUD Dengan VB.NET Bagian 2

Popular Posts

Random

Recent Comment