Pada pembelajaran kali ini, kami akan membahas tentang Visual Basic .Net 2010 yaitu VB .NET - Cara Edit Data Pada Database. Database yang kami gunakan adalah menggunakan 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 adalah seperti gambar dibawah ini :
Jika sudah silahkan Save kemudian anda bisa mengisi data seperti 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 :
Jika sudah membuat form1 seperti 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, kemudian untuk cara editnya adalah :
Silahkan Double Klik pada datagrid view1, jika sudah muncul data, silahkan edit datanya. Jika sudah selesai maka anda bisa Klik Edit.
Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
Demikianlah Tutorial VB .NET - Cara Edit Data Pada Database., semoga bermanfaat untuk anda :)
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
