Cara Edit Database SQL Server VB 2008

Pada Pembelajaran kali ini akan dibahas mengenai Cara Edit Database SQL Server VB 2008. Fungsi tutorial ini sebenarnya nanti akan berguna dalam melanjutkan Step by Step membuat Aplikasi Apotek pada pembelajaran sebelumnya.

Baiklah, sebelum anda bisa membuat Form Input Database SQL Server dengan VB 2008, anda harus membuat database dan Tabel terlebih dahulu.

#1. Membuat Database dan Tabel
Buatlah Database dengan Nama : DB_APLIKASI
Buatlah Tabel dengan Nama : TBL_SISWA
Berikut Design tabelnya :

Kemudian agar terlihat tidak kosong, silahkan isi manual terlebih dahulu, serikut contohnya :

#2. Membuat Form pada VB 2008 dan Kodingnya
Buka aplikasi VB .Net 2008 anda
kemudian buatlah design Form1 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=TMEDIA003;initial catalog=DB_APLIKASI;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_SISWA", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "TBL_SISWA")
        DataGridView1.DataSource = (DS.Tables("TBL_SISWA"))
        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
        TextBox1.MaxLength = 10
        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 Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim edit As String = "update TBL_SISWA set Nama_SISWA='" & TextBox2.Text & "',ALAMAT_SISWA='" & TextBox3.Text & "',TELP_SISWA='" & TextBox4.Text & "' where NIS='" & 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_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
        Call Koneksi()

    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_SISWA where NIS='" & 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_SISWA")
                TextBox3.Text = RD.Item("Alamat_SISWA")
                TextBox4.Text = RD.Item("Telp_SISWA")
                TextBox2.Focus()
            End If
        End If
    End Sub
End Class

Kemudian silahkan Run Project Aplikasi VB 2008 anda dan untuk koding yang berwarna kuning, silahkan ganti dengan nama komputer anda

Baca Juga : Step by Step Membuat Aplikasi Apotek Database SQL Server

Caranya adalah, anda masukan NIS SISWA kemudian TEKAN ENTER
Kemudian akan muncul data SISWA, kemudian anda Edit dan KLIK SAVE

Maka data akan berhasil anda Edit ke Tabel : TBL_SISWA

Mohon diperhatikan untuk anda :
Anda boleh merepost Tutorial kami diatas, asalkan anda mencantumkan sumbernya

Semoga bermanfaat untuk anda, salam Pemograman Visual Basic .Net...........................................