Iseng-Iseng doang

<<>Ini merupakan tutorial lanjutan dari tutorial sebelumnya yaitu Metode Execute Scalar Pada ADO.NET. Metode Execute Non Query digunakan untuk menjalan perintah-perintah query seperti INSERT, UPDATE dan DELETE pada proses maintenance data. Metode ini umumnya digunakan setelah membuat objek command. Metode ini akan menghasilkan sebuah nilai bertipe integer yang menandakan berapa baris dalam tabel yang termodifikasi. Contoh programnya adalah sebagai berikut :

Desain tampilan sebagai berikut :

Properties untuk kontrol yang digunakan adalah :

• Data Grid View name : dgSupplier
• text kode name : txt_kode
• text nama name : txt_nama
• text alamat name : txt_alamat
• button ok name : btn_ok
• button cancel name : btn_cancel
• button entry name : btn_entry
• button update name : btn_update
• button delete name : btn_delete

Database yang digunakan adalah db_supplier seperti pada pembahasan sebelumnya.

Langkah-langkah pembuatannya adalah sebagai berikut :

Tambahkan directive berikut pada inisialisasi namespace :

  Imports System.Data.SqlClient 

Kemudikan inisialisasikan class variabel berikut :

  'inisialisasi class variabel   Private xKoneksi As New SqlConnection   Private xAdapter As New SqlDataAdapter   Private xCommand As New SqlCommand   Private xDataset As New DataSet 

Kemudian isi datagrid dengan data dari database pada saat event form load. Kodenya adalah sebagai berikut :

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         'koneksi dengan windows autothentication         xKoneksi.ConnectionString = _         "Data Source=(Local);" & _         "Initial Catalog=db_supplier;" & _         "Integrated Security = SSPI"         'buka koneksi         xKoneksi.Open()         'koneksi yg dipakai untuk command         xCommand.Connection = xKoneksi         'isi perintah command         xCommand.CommandText = _         "Select * from tbl_supplier"         'tipe command yg digunakan         xCommand.CommandType = CommandType.Text         'command yg dipakai untuk mengisi data adapter         xAdapter.SelectCommand = xCommand         'mengisi data adapter ke dataset         xAdapter.Fill(xDataset)         'mengisi dataset ke datagrid         dgSupplier.DataSource = xDataset.Tables(0)         'bikin datagrid read only         dgSupplier.ReadOnly = True     End Sub 

Kemudian masukkan program untuk menampilkan data keisian. Program ini digunakan untuk menampilkan data yang dipilih dari Data Grid View ke dalam text isian. Masukkan kode berikut pada event Data Grid di Klik:

 Private Sub dgSupplier_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgSupplier.Click         With dgSupplier             Dim baris As Integer             'baris keberapa yg diklik?             baris = .CurrentRow.Index()             'isikan data ke isian             txt_kode.Text = .Item(0, baris).Value             txt_nama.Text = .Item(1, baris).Value             txt_alamat.Text = .Item(2, baris).Value         End With     End Sub 

Kemudian tambahkan kode program untuk pencarian data. Program pencarian ini sangat penting untuk kemudian dapat digunakan untuk proses lainnya seperti edit dan hapus. Klik dua kali tombol OK kemudian masukkan kode berikut :

    Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click         Dim teks As String         Dim data As DataRow         'data row cari dalam bentuk array         'untuk menyimpan hasil pencarian         Dim cari() As DataRow         'jika kode kosong         If txt_kode.Text = "" Then             MsgBox("Kode masih kosong!")             Exit Sub         End If         'perintah SQL         teks = "Kode = '" & txt_kode.Text & "'"         'jalankan perintah dan masukkan hasilnya         'ke data row cari         cari = xDataset.Tables(0).Select(teks)         If cari.Length > 0 Then             For Each data In cari                 txt_kode.Text = data(0)                 txt_nama.Text = data(1)                 txt_alamat.Text = data(2)             Next         Else             MsgBox("Data tidak ditemukan!")         End If     End Sub 

Program berikutnya adalah program untuk menambahkan data baru. Klik pada tombol Entry dan masukkan kode berikut :

Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click         Dim teks As String         Dim data As DataRow         'data row cari dalam bentuk array         'untuk menyimpan hasil pencarian         Dim cari() As DataRow         'jika kode kosong         If txt_kode.Text = "" Then             MsgBox("Kode masih kosong!")             Exit Sub         End If         'perintah SQL         teks = "Kode = '" & txt_kode.Text & "'"         'jalankan perintah dan masukkan hasilnya         'ke data row cari         cari = xDataset.Tables(0).Select(teks)         If cari.Length > 0 Then             For Each data In cari                 txt_kode.Text = data(0)                 txt_nama.Text = data(1)                 txt_alamat.Text = data(2)             Next         Else             MsgBox("Data tidak ditemukan!")         End If     End Sub 

code diatas merupakan contoh dari penggunaan command Execute NonQuery