Vb .Net - Cara Edit Data Pada Database

Pada pembelajaran kali ini, kami akan membahas perihal Visual Basic .Net 2010 yaitu VB .NET - Cara Edit Data Pada Database. Database yang kami gunakan yakni memakai database SQL Server R2.

Berikut langkahnya :
Buka komputer anda
Buka SQL Server Management Studio.
Buatlah Database dengan nama : DBJNM
Buatlah tabel dengan nama : TBL_PEGAWAI.
Design TBL_PEGAWAI yakni ibarat gambar dibawah ini :

Jika sudah silahkan Save lalu anda sanggup mengisi data ibarat gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :

Pada gambar diatas, aku menciptakan form dengan nama Form1, lalu terdapat DatagridView, TextBox1, TextBox2, TextBox3, TextBox4, Label, Button1 dan Button2

Jika sudah menciptakan form1 ibarat gambar diatas, silahkan masukan koding dibawah ini :

  Imports System.Data.SqlClient Public Class Form1     Dim Conn As SqlConnection     Dim da As SqlDataAdapter     Dim ds As DataSet     Dim CMD As SqlCommand     Dim RD As SqlDataReader     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"         Conn = New SqlConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Sub KondisiAwal()         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"))         DataGridView1.ReadOnly = True         TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         TextBox4.Text = ""     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Call KondisiAwal()     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 = "" Or TextBox4.Text = "" Then             MsgBox("Data belum lengkap, Pastikan NIP 6 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 KondisiAwal()         End If     End Sub      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         End     End Sub     Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick         Call Koneksi()         Dim i As Integer         i = DataGridView1.CurrentRow.Index         CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP='" & DataGridView1.Item(0, i).Value & "'", Conn)         RD = CMD.ExecuteReader         RD.Read()         If Not RD.HasRows Then             TextBox2.Focus()         Else             TextBox1.Text = RD.Item("NIP")             TextBox2.Text = RD.Item("Nama_Pegawai")             TextBox3.Text = RD.Item("Alamat_pegawai")             TextBox4.Text = RD.Item("Telp_Pegawai")             TextBox2.Focus()         End If     End Sub End Class 

Jika sudah, silahkan anda run, lalu untuk cara editnya yakni :

Silahkan Double Klik pada datagrid view1, jikalau sudah muncul data, silahkan edit datanya. Jika sudah final maka anda sanggup Klik Edit.

Note :
Silahkan samakan instruksi yang berwarna kuning dengan nama komputer anda

Demikianlah Tutorial VB .NET - Cara Edit Data Pada Database., agar bermanfaat untuk anda :)

Share this post