Save, Update dan Delete Data di VB.Net Mengunakan Database SQL Server

Save, Update dan Delete Data Ke Database SQL Server Mengunakan VB.Net

Sebelum membaca tutorial ini harap di baca terlebih dahulu tentang membuat database, koneksi dan datagridview di vb.net.

- Membuat Database dan table di Sql Server
- Koneksi Akurat Pada VB.Net ( SQL Server )
- Tampilakan Data Pada Datagridview Di VB.Net

Koding save pada vb.net

If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Data masih ada yang kosong .", , "Admin")
        Else

            Try
                If TextBox1.Text <> "" Then
                    Using Conn As New SqlConnection(WindowsApplication1.My.Settings.db1ConnectionString)
                        Conn.Open()
                        Using sql As New SqlClient.SqlCommand("Insert Into penduduk(nik,nama,jk) Values(@nik,@nama,@jk)", Conn)
                            sql.Parameters.Add(New SqlClient.SqlParameter("@nik", SqlDbType.VarChar)).Value = TextBox1.Text()
                            sql.Parameters.Add(New SqlClient.SqlParameter("@nama", SqlDbType.VarChar)).Value = TextBox2.Text()
                            sql.Parameters.Add(New SqlClient.SqlParameter("@jk", SqlDbType.VarChar)).Value = ComboBox1.SelectedItem()
                                       sql.ExecuteNonQuery()
                            MessageBox.Show("Nama Mahasiswa : " & TextBox2.Text & " Telah disimpan", "DataSukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
                            Conn.Close()
                            bersih() ' FUNGSI CLEAR PADA TEXT

                        End Using
                    End Using
                Else
                    MessageBox.Show("Ada Kesalahan !", "Gagal Menyimpan", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            TampilData() ' FUNGSI MENAMPILKAN / MEMPERBAHARUI DATAGAGRIDVIEW
        End If


Koding UPDATE pada vb.net

If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Data masih ada yang kosong", , "Admin")
        Else

            Try
                Using sql As New SqlClient.SqlCommand("update penduduk set nik=@nik,nama=@nama,jk=@jk where nik='" + TextBox1.Text + "'", Conn)
                    sql.Parameters.Add("@nik", SqlDbType.VarChar).Value = TextBox1.Text
                    sql.Parameters.Add("@nama", SqlDbType.VarChar).Value = TextBox2.Text
                    sql.Parameters.Add("@jk", SqlDbType.VarChar).Value = ComboBox1.Text
                    sql.ExecuteNonQuery()
                    MessageBox.Show("Nama penduduk : " & TextBox2.Text & " Sudah di Update !", "Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Call bersih() ' FUNGSI CLEAR PADA TEXT
                End Using

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            TampilData() ' FUNGSI MENAMPILKAN / MEMPERBAHARUI DATAGAGRIDVIEW
        End If

Koding DELETE pada vb.net

  If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Masukkan data yang sudah ada ,lalu klik hapus.", , "Admin")
        Else

            Dim Hapus As Integer
            Hapus = MsgBox("Apakah anda yakin akan menghapus ?" & vbCrLf & "Nama penduduk ini  = " & TextBox2.Text, vbYesNo, "Konfimasi Hapus")
            If (Hapus = vbYes) Then
                Using sql As New SqlClient.SqlCommand("delete from penduduk where nik='" & TextBox1.Text & "'", Conn)
                    Using dr As SqlClient.SqlDataReader = sql.ExecuteReader()
                    End Using
                End Using
                MessageBox.Show("Nama Pel : " & TextBox2.Text & " Sudah dihapus dari record !", "Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Dim Adapter As New SqlDataAdapter("select * from penduduk", Conn)
                Dim dt As New DataTable("penduduk")
                Adapter.Fill(dt)
                DataGridView1.DataSource = dt
                DataGridView1.DataSource = (dt)
                Call bersih()  ' FUNGSI CLEAR PADA TEXT
            End If
        End If

Note :

- Conn : fungsi koneksi
- penduduk : nama table dari database
- Using Conn As New SqlConnection(WindowsApplication1.My.Settings.db1ConnectionString) : 
   Mengambil koneksi sesuai file app.config

Untuk mendownload contoh program silahkan unduh file di bawah ini.

Sekian dan terima kasih

mudah mudahan bermanfaat bagi kita semua.

Browse More Articles

Tweet

Written by thoestone

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.