CRUD VB.NET (Create,Read,Update,Delete) Dengan Database SQL Server (Tutorial 3)

Pada kesempatan kali ini saya akan membagikan sebuah tutorial/source code cara membuat CRUD memkai bahasa pemograman VB.Net dengan menggunakan database SQL Server. Pada kesempatan sebelumnya saya telah membahas cara koneksi database SQL Server dengan VB.Net, jika anda belum paham cara koneksi nya silahkan buka artikel tersebut.

Ketika kita membuat aplikasi komputer yang menggunakan database, maka hampir tidak mungkin lepas dengan namanya CRUD (Create, Read, Update, Delete). Bagaimana cara membuat apalikasi CRUD VB.NET (Create,Read,Update,Delete) Dengan Database SQL Server? ikutilah langkah-langkahnya sebagai berikut ini.

Dalam Contoh ini saya akan memakai database SQL EXPRESS  dengan nama database DB_AKADEMIK dan menggunakan tabel Tbl_Mahasiswa seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar

Kemudian buat/desain sebuah form tambahkan 4 textbox, 4 Button, dan DataGridView seperti yang nampak pada  gambar berikut ini dan form nya saya beri nama CRUD_SQL

Tampilkan Gambar

Jika sudah tambahkan sebuah class dengan cara klik menu Project-Add Class kemudian beri nama ClsKoneksi seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar

Kemudian klik Tombol Add. Saya menggunkan sebuah Class untuk koneksi ke database SQL Server dan mendeklarasikan Query di dalam Class tersebut sehingga kita nanti tidak perlu lagi mendeklarasikan Variabel pada setiap form yang kita buat. Sehingga menghemat waktu dalam pengkodingan nantinya. Contohnya seperti
Dim Cmd As SqlCommand
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Dt As DataTable
dan lain-lain

Kita tidak melakukan pengulangan dalam pengetikan koding tersebut, gimana dapat dimengerti penjelasannya? Semoga dapat di pahami.
Selanjutnya kita masuk ke penulisan koding, ketikan koding berikut ini di dalam Class yang telah dibuat tadi .

Imports System.Data.SqlClient

Public Class clsKoneksi
    Protected Cmd As SqlCommand
    Protected Conn As SqlConnection
    Protected Da As SqlDataAdapter

    Protected Ds As DataSet
    Protected Dt As DataTable

    Public Function OpenConn() As Boolean
        Conn = New SqlConnection("Data Source=ROMDONI-PC\SQLEXPRESS;" _
                               & "Initial Catalog=DB_AKADEMIK;" _
                               & "Integrated Security=True")
        Conn.Open()
        If Conn.State <> ConnectionState.Open Then
            Return False
        Else
            Return True
        End If
    End Function

    Public Sub CloseConn()
        If Not IsNothing(Conn) Then
            Conn.Close()
            Conn = Nothing
        End If
    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal....!", MsgBoxStyle.Critical, " Access Failed")
            Return Nothing
            Exit Function
        End If

        Cmd = New SqlCommand(Query, Conn)
        Da = New SqlDataAdapter
        Da.SelectCommand = Cmd
        Ds = New Data.DataSet
        Da.Fill(Ds)
        Dt = Ds.Tables(0)
        Return Dt
        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing
        CloseConn()
    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal...!", MsgBoxStyle.Critical, "Access Failed")
            Exit Sub
        End If

        Cmd = New SqlCommand

        Cmd.Connection = Conn
        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = Query
        Cmd.ExecuteNonQuery()
        Cmd = Nothing
        CloseConn()
    End Sub
End Class

Keterangan:
Pada Function OpenConn ada koding Data Source=ROMDONI-PC\SQLEXPRESS;. untuk ROMDONI-PC itu silahkan disesuikan dengan database anda masing-masing, itu merupakan Computer Name saya.

Jika sudah selesai silahkan buka formnya kemudian ketikanlah koding berikut ini di dalam Prosedure Public Class (nama formnya).

Dim Proses As New clsKoneksi
Dim TblMhs As DataTable
Dim SSQL As String

Kemudian ketikan prosedure pengosongan textbox berikut ini di bawah koding variable diatas

Private Sub Kosong()
    txtNim.Text = ""
    txtNama.Text = ""
    txtAlamat.Text = ""
    txtJurusan.Text = ""
    txtNim.Focus()
End Sub

Setelah itu ketikan prosedure untuk menampilkan data ke DataGridView dibawah prosedure kosong berikut ini :

Private Sub TampilData()
   TblMhs = Proses.ExecuteQuery("SELECT * FROM tbl_Mahasiswa")
   DGV.DataSource = TblMhs
   DGV.ReadOnly = True
End Sub

Kemudian ketikan koding berikut ini pada Form Load memanggil prosedure tampil data guna menampilkan data ke dalam datagridview pada saat form diload

Call TampilData()

Kemudian silahkan double klik btnSave kemudian ketikan koding berikut ini :

Try
  If btnSave.Text = "&Save" Then
     SSQL = ""
     SSQL = "INSERT INTO Tbl_Mahasiswa VALUES('" & txtNim.Text & "'," _
               & "'" & txtNama.Text & "'," _
                      & "'" & txtAlamat.Text & "'," _
               & "'" & txtJurusan.Text & "')"
     Proses.ExecuteNonQuery(SSQL)
     Call Kosong()
     Call TampilData()
  ElseIf btnSave.Text = "&Update" Then
     SSQL = ""
     SSQL = "UPDATE Tbl_Mahasiswa Set nama='" & txtNama.Text & "'," _
       & "Alamat='" & txtAlamat.Text & "'," _
              & "jurusan='" & txtJurusan.Text & "' WHERE nim='" & txtNim.Text & "'"
     Proses.ExecuteNonQuery(SSQL)
     Call Kosong()
     Call TampilData()
     btnSave.Text = "&Save"
     txtNim.Enabled = True

  End If
Catch ex As Exception
  MessageBox.Show("Proses Penyimpanan Gagal !, Karena " & ex.Message)
End Try

Kemudian double klik btnCancel dan ketikan koding beriut ini :

Call Kosong()
btnSave.Text = "&Save"
txtNim.Enabled = True

Jika sudah double klik btnDelete lalu ketikan lagi koding berikut in :

If MessageBox.Show("Yakin Data Ini Akan dihapus?", "Konfirmasi...?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
  SSQL = ""
  SSQL = "DELETE FROM Tbl_Mahasiswa WHERE nim ='" & txtNim.Text & "'"
  Proses.ExecuteNonQuery(SSQL)

  Call Kosong()
  Call TampilData()

  txtNim.Enabled = True
  btnSave.Text = "&Save"

Else
  Call Kosong()
  txtNim.Enabled = True
  btnSave.Text = "&Save"
End If

Kemudian ketikan koding berikut ini pada tombol btnExit

Close()

Jika sudah double klik DataGridView nya kemudian cari Events DoubleKlik lalu ketikan koding berikut ini

txtNim.Text = DGV.Item(0, DGV.CurrentRow.Index).Value
txtNama.Text = DGV.Item(1, DGV.CurrentRow.Index).Value
txtAlamat.Text = DGV.Item(2, DGV.CurrentRow.Index).Value
txtJurusan.Text = DGV.Item(3, DGV.CurrentRow.Index).Value
btnSave.Text = "&Update"
txtNim.Enabled = False

Jika sudah silahkan disimpan supaya tidak gi gondol maling heheheh :), kemudian silahkan di running. Jika anda megnininkan source codenya silahkan download di link berikut ini. Source code tersebut tidak saya sertakan databasenya silahkan buat sendiri database dan tabelnya, samakan dengan contoh database di atas.

Download Link

• Link 1
• Link 2
• Link 3

Demikian tutorial dari saya semoga dapat bermanfaat bagi anda amien.



Tags:
CRUD VB.NET (Create,Read,Update,Delete) Database SQL Server, Save Edit Delete Dalam VB.Net Dengan Database SQL Server, Source Code Simpan Hapus Edit dalam VB.Net Dengan Database SQL Server, INSERT, READ, EDIT, DELETE (CRUD) VB .Net dengan databae SQL Server, TUTORIAL MEMBUAT APLIKASI CRUD SEDERHANA DI VB.NET dengan Database SQL Server, Source Code Simpan Hapus Edit Delete Dengan VB.Net,