Cara Edit Database SQL Server VB Net 2013

Pada pembelajaran VB Net 2013 kali akan dibahas mengenai cara Edit database SQL Server dengan menggunakan Visual Basic 2013.

Pertama yang harus disiapkan adalah. Database dan Tabel. Setelah database terbuat pastikan anda bisa mengkoneksikan Database SQL Server dengan visual basic 2013. Jika anda belum bisa silahkan lihat pada pembelajaran kami sebelumnya yaitu dengan KLIK LINK INI

Jika sudah mengikuti langkah diatas, silahkan Buka Aplikasi VB Net 2013 anda
Pada Form1, buatlah Design form seperti gambar dibawah ini :

Kemudian masukan koding dibawah ini :

Imports System.Data.SqlClient
Public Class Form1
    Dim CONN As SqlConnection
    Dim CMD As SqlCommand
    Dim DS As New DataSet
    Dim DA As SqlDataAdapter
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=TMEDIA007;initial catalog=DB_TEST;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilGrid()
    End Sub
    Sub TampilGrid()
        Koneksi()
        DA = New SqlDataAdapter("Select * from TBL_PEGAWAI", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "TBL_PEGAWAI")
        DataGridView1.DataSource = (DS.Tables("TBL_PEGAWAI"))
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan NIP 10 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim edit As String = "update TBL_PEGAWAI set NAMA_PEGAWAI='" & TextBox2.Text & "',ALAMAT_PEGAWAI='" & TextBox3.Text & "',TELP_PEGAWAI='" & TextBox4.Text & "' where NIP='" & TextBox1.Text & "'"
            CMD = New SqlCommand(edit, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")
            Call TampilGrid()
        End If
    End Sub
    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                TextBox2.Text = ""
                TextBox3.Text =
                TextBox4.Text = ""
                TextBox2.Focus()
            Else
                TextBox2.Text = RD.Item("NAMA_PEGAWAI")
                TextBox3.Text = RD.Item("ALAMAT_PEGAWAI")
                TextBox4.Text = RD.Item("TELP_PEGAWAI")
                TextBox2.Focus()
            End If
        End If
    End Sub
End Class

Jika sudah silahkan Run, atau jalankan Project VB Net 2013 anda.

Note :
Untuk mengedit Data adalah : Masukan NIP pada Textbox1 <kemudian Tekan ENTER>
Contoh : NIP0000001 <ENTER>
Jika sudah muncul data, kemudian edit data dan Klik Simpan

Jika berhasil silahkan lanjutkan Pembelajaran kami selanjutnya.
Jika belum berhasil silahkan berkomentar dibawah.